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i 
Do-lt-Yourself-Computer Graphics 


THE rushing stream of progress in microcomputer graphics 
is leaving behind a surprising amount of unfinished busi- 
ness. One of the underdeveloped areas of this field, far re- 
moved from the razzle-dazzle of color and motion in three 
dimensions, is printer graphics—the use of dot-matrix print- 
ers for high-resolution graphics. At the risk of setting the field 
back several years, this book will try to show the size and 
scope of possibilities that have been neglected in this area. 


The Do-It-Yourself Approach 


Throughout the book we will be dealing with the program- 
ming of drawings, graphs, diagrams, and tables for the 
printer, using BASIC programs and widely used personal- 
computing hardware. There are many graphic forms that can 
be produced by almost any microcomputer cabled to almost 
any printer that is dot-addressable—that is, any printer that 
allows you to program the firing of individual pins in its 
printhead. 

This do-it-yourself approach need not involve any sacrifice 
of quality. Quite the contrary, in fact; nearly all printers have 
a higher resolution than the display screens of even the more 
expensive microcomputers. The Epson MX-80, FX-80, and 
RX-80 printers, for example, offer 960 dot positions in an 
eight-inch line and up to 216 dot positions per inch verti- 
cally. Even the monitors of the recent Tandy and Sperry 
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computers, which have 400 by 640 pixels (dots of light), can’t 
match that. The resolution of the Epson printers, which is 
approached by a good many other brands in the three- 
hundred- to six-hundred-dollar price range of 1984, means 
that a high degree of detail and accuracy can be a routine 
matter. 

This means that the do-it-yourselfer can get better print- 
outs than those produced by some of the commercial soft- 
ware packages for graphics. Often the latter’s approach is to 
create the desired graph or diagram on the computer screen 
and then do a “screen dump’ to the printer, that is, print the 
contents of the screen. At best, this provides a close copy of 
what the screen displays, and it is precisely this that dooms 
the printout to a lower resolution than what the printer is 
capable of producing. 

Often the result is an eyesore—lines and curves that have 
too obvious, jagged-looking “stair steps’; numbers along the 
axes that don't line up with hash marks or data points; prim- 
itive labeling of the axes that depends entirely on the orien- 
tation of the computer's and printer’s built-in alphabetic 
characters; and other sins that would make the printout un- 
acceptable for presentation in a respectable publication. For 
that matter, some of the software packages that don’t depend 
on screen dumps commit many of the same sins. On the other 
hand, there are some on the market that produce excellent 
printed graphs, but even the quality of the best can be 
closely approached, if not equaled, by direct programming of 
the printer. 

In nearly all of the programs presented in this book, no 
attempt is made to draw the graphic figure on the computer’s 
screen. Instead, the computer is used to deliver the control 
and data codes required to generate high-resolution figures 
on the printer. The computer’s screen still plays an important 
role in providing readouts of the codes being sent to the 
printer, displaying calculations, and producing other infor- 
mation for checking the programming during a printout. In 
addition, of course, the screen is used in the line-by-line 
programming itself. 

In most of these programs the codes delivered to the 
printer are mainly directed to the firing of the individual pins 
of the printer’s printhead, of which there are usually seven 
or eight that can be addressed at a particular instant in time. 
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Typically the pattern of the pin firing depends directly on 
the individual bits of an eight-bit byte (a dot code). This is 
why this approach is commonly called “bit-image,” “bit- 
graphics, or “bit-mapping.” For an eight-bit printer such as 
the IBM (Epson) or the Apple Imagewriter, there are 256 
different codes for 256 different patterns of dots produced by 
the firing of the pins—all possible combinations of the eight 
pins. 

With this degree of control over the pins and the fineness 
of detail provided by the printhead pins, we should be able 
to draw almost anything—not just graphs, but complex dia- 
grams, detailed maps, and photographlike pictures. This 
turns out to be true, but as we'll see in later chapters, some 
drawings are much harder to do than others, in a reasonable 
period of time at least. 


Some Samples 


Harnessing the dots by programming in bit-image mode re- 
leases the user from many rigid printing formats and limits 
on the number of data values, variables, etc., which are im- 
posed by a typical commercial graphics package. Most even 
limit you as to the type of graph you can produce—some 
software offerings costing over two hundred dollars limit you 
to pie charts and bar, line, and scatter graphs. 

An investor wanting to track prices of stocks in the stan- 
dard high-low-close fashion, for example, won't be able to 
with such restriction. But with the do-it-yourself approach, 
the investor can design (or copy) a BASIC program that plots 
stock prices and volumes in a good imitation of Wall Street 
Journal style, as in figure 1-1. The more dedicated investor 
can add more measures to the plots, such as moving averages, 
relative strength, and the price/earnings ratio. Once the pro- 
gram is in good working form, plotting dozens or hundreds 
of stocks becomes a simple matter of typing more names and 
numbers into the computer's datafiles. And if there are so 
many values that it takes a six-foot printout to display them, 
so be it. . 

Let’s switch to a radically different kind of graphics, such 
as the cartoon in figure 1-2. This drawing was created by a 
BASIC program which, outside of its DATA statements, is 
only eight lines long. With different items in the DATA state- 
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Daily changes in the price and trading volume of Dandy Corporation stock in 


the early part of 1994. (For details, see program 8-9, WALLSTOK, in chapter 8.) 


FIGURE 1-1. 


FIGURE 1-2. Cartoon 
drawn by the Radio Shack 
DMP-400 printer. (See 
program 5-10, LINEDRAW/ 
TRS, in chapter 5.) (Dennis 
the Menace® used by 
permission of Hank Ketcham 
and copyright © by News 
Group Chicago, Inc.) 


ment, the same program will produce other freehand draw- 
ings, simple or complex diagrams, or highly detailed maps 
(see programs 5-9 through 5-13). And with a few more pro- 
gram lines for calling subroutines, it will provide you draw- 
ings of nearly photographic quality. 

For another example, a scientist may wish to plot a batch 
of bar graphs like the one in figure 1-3. Using the typical 
commercial program for a bar graph, there wouldn't be any 
problem displaying the means (arithmetic averages) of the 
data values, but if the researcher also wanted to indicate how 
the values were spread out from each mean, the program 
provides no way to add the customary thin vertical line rep- 
resenting a standard error or standard deviation at the top of 
each bar. This is an easy feature to program in BASIC, even 
when different shadings are used for the bars, as in our ex- 
ample. With a fresh ribbon in the printer, or with boldface 
graphic printing, homemade graphs done this way would 
meet journal quality in the eyes of most editors. 

Or take the case of an illustrator for a newspaper that em- 
phasizes graphics, such as USA Today. With the baseball 
season ending, the sports pages may be calling for a graphic 
overview of the major-league pennant races. A microcompu- 
ter driving a dot-matrix printer can plot the weekly standings 
of all teams in a division for the whole season as in figure 
1-4. The lines connecting the letter symbols for each team 
can also be plotted by the printer, or the illustrator can 
choose to do these for one or all teams by hand, using draft- 
ing tapes, ink, or other graphic aids, to make the curves of 
certain teams stand out and to be sure of a more polished 
appearance. 


PERFORMANCE LEVEL 


BEFORE OURING AFTER 


FIGURE 1-3. A bar graph in scientific journal style. (See 
program 8-7, MSEGRAPH, in chapter 8.) 


This idea of “tampering” with the printout can be carried 
much further—to the whole realm of computer-aided graph- 
ics. Those things that computers and printers are good at can 
be combined with those things that are best done by hand. 
Take the political map in figure 1-5, for example. This was 
produced by taking two copies of the map of the United 
States, which were printouts from a BASIC-programmed dot- 
matrix printer. One copy was printed white-on-black and the 
other printed regular black, both printouts on white paper. 
The regular black printout was identical to the one in figure 
11-5 in chapter 11. The states ending up black (i.e., those 
won by the Republicans) in the finished map were cut out of 
the second copy with an X-Acto knife. Then on a light table 
the second copy was overlaid on the first, with state bounda- 
ries lined up as exactly as possible, making the cut-out states 
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emerge as black with white boundaries where they were ad- 
jacent to one another. Those states won by the Democrats 
were left white with black boundaries, and those won by the 
third party were covered with shading film on the second 
copy. Then a clear plastic overlay was taped over the first 
two sheets. Using dry-transfer (“rub-on”) characters, the 
states were numbered and lettered, in white over the black- 


FIGURE 1-4. A major-league baseball pennant race portrayed in 
a line graph. The graph was constructed by a program similar to 
MULTLING (program 9-2 in chapter 9) in combination with a 
second program for listing the teams and their won-lost records. 
Manual graphic finishing touches were added. (Reprinted with 
permission of Macmillan Publishing Company from The Detroit 
Tigers by George Sullivan and David Cataneo, graphics by John 
W. Davenport. Copyright © 1985 by Macmillan Publishing 
Company, a division of Macmillan, Inc.) 
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FIGURE 1-5. How the 1996 presidential election was thrown to the House of Representatives by a third party. 
Produced by overlays of printouts from a map-drawing program. (See chapters 11 and 12.) 
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ened states, and in black otherwise. Finally, the printer was 
used as a typesetting machine to produce the title and key of 
the map, which were applied to the clear overlay with ordi- 
nary glue. 

These examples suggest the wide applications of directly 
programmed printer graphics. When you add this graphics 
capability to the several other roles served by printers—as 
text printers in word processing, as typesetting machines, 
as copying machines, etc.—the potential uses of the well- 
programmed dot-matrix printer run an even wider gamut. 
Not only scientists, businesspersons, and journalists, but 
meteorologists, cartographers, architects, self-publishers, 
graphic artists, and (one would think) computer-graphics 
buffs may find some useful material in later chapters. 


Tepics Not Covered in This Book 


By now you can guess what this book is not about. Except for 
a short section about bit-image screen dumps in BASIC 
(chapter 4), almost nothing about screen graphics, especially 
color graphics, will be taken up. As a result, we will also not 
be concerned with animation (getting images to move on 
paper is not very easy!), or dynamic three-dimensional visu- 
alizations, or the various input devices—digitizers, X-pads, 
KoalaPads, and so forth—for graphic creations on the com- 
puter’s display. And we will leave it to the hordes of com- 
puter magazines to review the commercial software, even 
though most of those packages provide printed copy on a 
printer or plotter. 

Although we will concentrate on black-and-white products 
of printers (plotters are another whole book), we don't nec- 
essarily have to do completely without color in printer graph- 
ics. For one thing, some dot-matrix printers (e.g., the IDS 
Prism, the Transtar T315) print in several colors, depending 
on the position of a multicolored ribbon, which can be pro- 
grammed. In addition, almost any printer can be fitted with a 
solid-color ribbon that is red, green, or brown, as you wish. 
And these colors need not be printed on white paper; for a 
Christmas design, why not try red printing on green paper? 

Some clever work by Francis Kalinowski (in 80 Micro, No- 
vember 1983) shows several intricate four-color printouts 
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from an Epson MX-80 printer with Graftrax Plus. He printed 
each color using a different ribbon and started print runs for 
the different colors at the same point on the paper. His work 
also points the way toward generating unusual colors and 
shadings by combining colored inks in overlapping print 
runs. 

Beyond these color possibilities, notice the color ink-jet 
printers coming into the microcomputer market in 1983 and 
1984 at prices well under a thousand dollars. These printers 
use the same dot-matrix principle and the same kinds of con- 
trol codes as the black-and-white printers except for a few 
additional commands for control of the colors. 


Hardware and Software 


Many of the programs in this book were originally designed 
for the Radio Shack TRS-80 Model LPVIII and Model DMP- 
400 printers, the latter being a widebody machine for large 
graphs, architectural plans, and tables up to fifteen inches in 
width. These were driven by the TRS-80 Models III and 4, 
and the TRS-80 Model 100 and Epson HX-20 briefcase por- 
tables. 

Many of these TRS-80 programs were modified to run on 
the Epson FX-80 and related printers such as the IBM 
Graphics printer, and some programs were also written for 
the Apple Imagewriter. The IBM PC, Apple IIe (with Apple- 
soft BASIC), and Apple Macintosh (with Microsoft BASIC) 
computers were used to test these programs, and the Tandy 
Model 2000 computer was also used to test some of the orig- 
inal programs for TRS-80 printers. 

This has resulted in three main orientations of the book— 
Tandy, IBM, and Apple—with respect to both computers and 
printers. This plan should provide a good deal of help to 
users of other printers (Okidata, IDS, NEC, C. Itoh, Star, and 
Mannesmann Tally, among others), because printhead pin 
configurations and control codes within “families” of print- 
ers are fairly similar. 

The main emphasis will necessarily be on programming 
for TRS-80 and TRS-80-related printers in later sections of 
the book, because these are the easiest to program when 
printer graphics becomes complex, and many of the drawings 
require a fifteen-inch printer such as the DMP-400. For the 
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benefit of IBM and Apple users, specific steps are presented 
for converting any program for TRS-80 printers in Microsoft 
BASIC to an IBM PC program (also Microsoft BASIC) for 
IBM-Epson printers, or to an Applesoft BASIC program for 
Apple printers. Examples are also given. 

Computers with 64K or more of random-access memory 
and two disk drives would be most convenient for the pro- 
grams in this book, but even a cassette-based computer 
within only 16K of memory will handle nearly all of the pro- 
grams. A system that costs under a thousand dollars (includ- 
ing computer, printer, cassette recorder, and cables), then, 
can do the job even on some of the more complex programs 
for eight-inch printers, whose prices have recently fallen 
well below five hundred dollars in many cases. Anyone seri- 
ously interested in the full range of printer graphics, how- 
ever, would be wise to spend another four hundred to six 
hundred dollars for a widebody printer. (Three of the five 
illustrations in this chapter were printed on a fifteen-inch 
printer.) 

So far as computer capabilities are concerned, what matters 
nearly as much as memory size is how strong the computer's 
BASIC language is. With Microsoft BASIC in the versions 
found in the IBM PC, all the recent Tandy computers, and 
the Macintosh, you’re in good shape. But if your computer 
lacks the STRING$ function and a few other features of Mi- 
crosoft that are particularly handy for printer graphics, it will 
be tougher going. An even greater handicap can result from 
the computer’s inability to send eight-bit codes to a printer 
(this is most likely to be a problem with Apple II computers, 
as is the weakness of Applesoft BASIC). Ways of dealing with 
these problems will be presented. 

This book assumes some working knowledge of BASIC, 
but only what an average person would pick up in ten to 
twenty hours starting from zero. Many programs do not go 
beyond such familiar BASIC terms as PRINT, LPRINT, 
READ, DATA, INPUT, FOR, NEXT, and RND. Some of the 
more advanced programs do involve setting up and sorting 
arrays, manipulating strings (STR$, VAL, concatenation), and 
reading information from datafiles, but these are accom- 
panied by explanations. Almost no use will be made of 
machine language or other high-level languages such as 
PASCAL, FORTRAN, or FORTH. 


2 
A Primer on Printers 


YOU might be thinking how nice it would be if we could 
plunge right into programming some graphic creations, but 
getting well acquainted with your printer first will prevent 
some disasters. This chapter will present some general infor- 
mation about dot-matrix printers and also cover the mostly 
nongraphic functions of these printers when they are used in 
text mode. (“Text mode” in this book will refer to what 
printer manuals variously call “text,” “data processing,” or 
“word processing” modes—in other words, any status out- 
side of the bit-graphics mode.) The next chapter will deal 
with the graphic features and the control codes for all the 
things a printer can do in graphic mode. Both chapters are 
important for graphics, though, because we often have to in- 
termix bit-image graphics with the printer’s built-in charac- 
ters (in labeling graphs, for example) and with certain control 
functions that can only be reached outside of graphic mode. 


How Microcomputers Produce Hard Copy 


Material that is printed on paper is known in computerese as 
hard copy, as opposed to the “soft,” temporary, and often 
moving images and characters displayed on the computer’s 
screen. Quite a few devices are used to produce hard copy— 
letter-quality “daisy-wheel” and “thimble” printers, impact 
dot-matrix printers, thermal printers, ink-jet printers, laser 
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printers, electrosensitive printers, line-matrix printers, and 
plotters. This list can be boiled down to three categories: 
formed-character printers, dot-matrix printers, and plotters, 
since impact, thermal, ink-jet, electrosensitive, laser, and 
line-matrix printers all use a matrix of dots to print characters. 

The formed-character printers are the ones most like type- 
writers. They have formed characters that produce an 
impression on the paper by striking through a ribbon much 
the way the formed characters on typewriters do. Also, the 
way in which characters are selected on a daisy-wheel or 
thimble printer (which are usually under the control of a 
word-processing program) is similar to the way characters on 
the “golf ball’ of an IBM Selectric typewriter are selected 
by presses of the typewriter’s keys. Formed-character print- 
ers are excellent for producing high-quality printing of ver- 
bal and numerical material, but they are slower than impact 
dot-matrix printers and of almost no use in printing graphics. 

At the other extreme, plotters are mainly designed to make 
graphic drawings and are rather limited in the quality of 
built-in characters they produce. By definition, plotters differ 
from printers in drawing with pens, usually several having 
different colored inks. Since the whole principle and pro- 
gramming procedures of plotters are so different from those 
of dot-matrix printers, there is very little in this book that 
applies to plotters, even though they can do most of the same 
things a printer can do in graphics. 

A great deal of the material in this book, on the other hand, 
may applv to thermal, ink-jet, laser, and line-matrix printers. 
Some of the control codes may be different from those dealt 
with here, but all of these printers use the dot-matrix princi- 
ple. Thermal printers make the dots with a printhead that has 
heated wires that create an impression on special tempera- 
ture-sensitive paper. Electrosensitive printers also make use 
of special paper that blackens from tiny electrical charges. 
Ink-jet printers make dots by literally spraying miniature ink 
drops on ordinary bond paper or on higher-quality, polyes- 
ter-based paper. You ll probably be seeing a lot more of 
these in the future, because they are quiet, faster than impact 
printers, and in several cases offer a range of select- 
able colors. And at least three ink-jet models were priced 
under nine hundred dollars in early 1984. Electrosensitive 
printers, on the other hand, are well beyond the price range 
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FIGURE 2-1. Printheads and 
surrounding features of the 
WF Epson FX-80 and Radio Shack 
S ro DMP-400 dot-matrix printers. 
tw PRINTHEAD (Reprinted with permission of 
Epson America, Inc., and 
CARTRIDGE Tandy Corporation.) 
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of impact printers in the personal computing market, and 
laser printers have only recently begun to approach this price 
range. 

Another innovation by Radio Shack that is also approach- 
ing that range is the line-matrix printer. The LMP-2150, ini- 
tially offered for $3,995 in early 1984, prints whole lines at a 
time and operates at a speed of up to 150 lines per minute. It 
uses the standard Radio Shack bit-image graphics codes, so 
much of the rest of this book should apply to its program- 
ming. 

Certainly the most common type of dot-matrix printer is 
the impact type, in which moving pins (also called wires or 
needles) of the printhead strike an inked ribbon to make an 
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impression on paper. Figure 2-1 shows what the printheads 
of two widely used impact printers look like. You would have 
to be an Incredible Shrinking Person to see the printing as it 
happens because of the small spaces separating the print- 
head, ribbon, and paper. 

Figure 2-2 lets you see a side view of the business end of 
a printhead and its pins in relation to the ribbon, paper, and 
platen (the cylinder carrying the paper). There is also a dia- 
gram of how the pins of the printhead look from the ribbon’s 
point of view. 


Three types of printers. We can sort most ordinary dot- 
matrix printers into three “families” on the basis of the num- 
ber of printhead pins that are available for bit graphics and 
the top-to-bottom order of the pins. We’ll call these the 
“IBM-Epson,” “Apple,” and “Tandy” (Radio Shack) fami- 
lies. Table 2-1 lists many other printers that are members of 
these families. 

The first two of these clusters include all printers having 


FIGURE 2-2. Side view (left) and ribbon’s-eye view (right) of a 
typical printhead. 
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eight addressable pins, while the Tandy group consists of 
seven-pin printers. But the IBM-Epson and Apple families 
of printers differ in having their pins in opposite orders. 
Whereas the Apples have their top pin fired by the low bit 
(the 1 bit) of an eight-bit dot code, and their bottom pin fired 
by the high (128) bit, the arrangement is exactly reversed on 
the IBM-Epson printers—the high bit fires the top pin, and 
the low bit fires the bottom pin. 

To those who are used to counting or numbering things 
from the top down, the IBM-Epson printers are upside down 
while the Apple is right side up, but this is the opposite of 
the way computing engineers view the world of bits and 
bytes. Printers in the Tandy family are like the Apples in 


TABLE 2-1 
Three Families of Dot-Matrix Printers 


IBM-EPSON 


IBM Graphics Printer Apple Imagewriter TRS-80 LPVIII 

m Apple Dot Matrix TRS-80 DMP-110, -120 
Epson FX-80, FX-100 7 TRS-80 DMP-200 
Epson RX-80, RX-100 C. Itoh Prowriter I TRS-80 DMP-400, -420, -S00 


Epson Mx-80, MX-100 C. Itoh Prowriter IT TRS-80 CGP-220 


% 
~ ~ 


Star Gemini 10, 15 NEC 8023A Okidata Microline 82, 93 


ee ~w ~ 
Mannesmann Tally MT160 Anadex DP-9000A, 9S00A IDS Prism 80, 132 
Mannesmann Tally Spirit Transtar T315 


% ~ 


Inforunner Riteman Canon A-1200 


~ ne 


Panasonic KX-P1090 Personal Micro DMP-85 
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FIGURE 2-3. How upper- and lowercase characters are formed 


on the Epson FX-80 printer. 
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shiba P1350, and Epson LQ-1500, and those having eighteen 


their printheads, such as the Radio Shack DMP-2100, 
pins, such as the Radio Shack DMP-430. 


3 indicates how characters are made out of dot 


patterns by dot-matrix printers. These samples are from a 


Figure 2- 


and 


and to provide for underlining as well. Each character is 


> 


case letters having true descenders (the “legs” in g, p, q, 


printer having nine pins, which is enough to produce lower- 
y) 
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made from a matrix that is six dot-columns wide, but (except 
for the underline) the last column is blank and is not used for 
anything except spacing between characters. 

It isn’t accurate to call this a six-by-nine matrix, though. If 
you look closely at the characters in figure 2-3, you'll see that 
many of the dots are not entirely within the dot columns but 
instead are halfway between two columns. These are inter- 
mediate “half-dot-column” positions that the printer can use 
in forming the built-in characters, but which, unfortunately, 
are not available to the BASIC programmer. This amounts to 
a nine-by-nine matrix for the character plus a two-by-nine 
matrix of blanks for spacing, but with the horizontal positions 
more densely packed than the vertical dot positions. Ob- 
viously the quality of the printed characters is much better 
with these intermediate positions than would be the case if 
the printer were unable to use them. 

Printing samples from the heads of our three families are 
shown in figure 2-4. You will see that all three produce good 
but not true letter-quality printing, and that there are differ- 
ences among them. The Epson printers have an italic char- 
acter set, which the IBM Graphics, Imagewriter, and Radio 
Shack DMP-400 printers do not. (The more recent DMP-430 
in the Tandy line does, however.) The DMP printers offer a 
“correspondence font that is closer to letter quality, but the 
E:pson and Apple printers do almost as well in bold or em- 
phasized printing. There are also differences in the number 
of “pitches” (characters per inch, or CPI); all three printers 
provide standard pica (10 CPI), elite (12 CPI), condensed 
(16.7 CPI), and elongated (5 CPI) pitches, but the Imagewri- 
ter offers two intermediate pitches (13.5 CPI and 15 CPI). 

Of more interest to graphics buffs are the block and line- 
graphics characters. Thirty-one of these can be seen in figure 
2-4 in the DMP-400 print sample, right after the lowercase 
alphabet. Although they are not available on the Epson FX- 
80, there are a few line-graphics characters on the MX-80, 
and a thirty-two-character set on the Epson RX-80. The IBM 
Matrix and Graphic printers have more extensive (sixty-four- 
character) sets than the Tandy DMP-series and RX-80 print- 
ers have. (This and the resulting lack of italic characters 
represent the main differences between the IBM and Epson 
printers, both of which are manufactured by Epson America, 
Inc.). The Imagewriter also lacks these built-in graphics 


EPSON FX-80 


SINGLE-STRIKE PICA SINGLE-STRIKE PICA 
SINGLE-STRIKE ELITE SINGLE-STRIKE ELITE 

SINGLE-STRIKE COMPRESSED SIHGLE-STRIKE COMPRESSED 

SINGLE-STRIKE EMPHASIZED PICA SINGLE-STRIKE EMPHASIZED PICA 
DOUBLE-STRIKE FICA DOUBLE-STRIKE PICA 
DOUBLE-STRIKE ELITE DOUBLE-STRIKE ELITE 

DOUBLE~STRIKE COMPRESSED DOUBLE-STRIKE COMPRESSED 


DOUBLE-STRIKE EMPHASIZED PICA DOUBLE-STRIKE EMPHASIZED PICA 
SMNGL—-S TRE ESP ANDED FIiCr 

SNGL-STRK EXFANDED ELITE 

SNGL-STRIKE EXP. COMPRESSED 

SNGL—-STRIKE EMPH. E xr. Fick 
DEL-—-Ss TRI-E EE XF. Pe rCcaA 

DBL-STRIKE EXP. ELITE 

DBL-STRIKE EXPANDED COMPRESSED 

DEBL—-STRK EMPH. EXP. FricAaA 


APPLE IMAGEWRITER 


0123456789: ; <=> ?3ABCDEFGHI JKLMNOPQRSTUVWXY20N)]*_‘abcdef ghi jkImnopaqrstuy 
123456789: ; <=> ?3ABCDEFGHI JKLMNOPQRSTUVWXYZC\J°_‘abcdefghi jKImnopqrstuyw 
23456789: : <=> 79ABCDEFGHI JKLMNOPQRSTUVWXYZ(\)°_*abcdefgh i jKImnopqrstuywx 
34546789: : <=) ?@ABCDEFGHI JKLMNOPQRSTUVWXYZ(\)*_‘abcdefghi jKimnopqrstuywxy 
4546789: : <=) ?2ABCDEFGHI JKLMNOPQGRSTUVWXYZE\)*_‘abcdefghiJ Kimnopqrstuywxyz 
546789: 3 <=) ?8ABCDEFGHI JKLMNOPQRSTUVWXYZINI]*_‘abcdefahiJjk Imnopqrstuvwxyz¢ 
6789: : <=) ?3ABCDEFGH] JKLMNOPQRSTUVWXYZIN)*_‘abcdefghijkKi mnopqrstuvwxyz{l 
789: 3 <=> ?3ABCDEFGHI JKLMNOPGRSTUVWXY20\]°_‘abcdefghiskimnopqrstuywxyz{l) 
89: <=) ?2ABCDEFGHI JKLMNOPGRSTUUWXY20\)]*_‘abcdefghijKimn opqrstuuwxyz {1 3” 


TRS-80 DMP-400 


NORMAL PICA 

NORMAL ELITE 

NORMAL CONDENSED 

BOLD PICA 

BOLD ELITE 

BOLD CONDENSED 

NMOnI—BOLD ELONGATED PICs 
NON—-BOLD ELONGATED ELITE 
NON-—-BOLD ELONGATED CONDENSED 

(BOLD AND ELONGATED CANNOT BE COMBINED) 


ABCDEFGHI JKLMNOPQRSTUVWXYZ1234567890<>7: 10 3/ 
abcdefghi jklmnoparstuvuxyz 'a#SZ4&#() _+-=,. 
58, fe PE oe Fl HY 1 Vs. 


FIGURE 2-4. Printing samples from the heads of three printer families. 
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characters, but a close relative in the Apple family, the NEC 
8023A printer, has an excellent set of fifty-six straight-line, 
curved-line, and block characters (shown in figure 11-1 in 
chapter 11). 


BASIC printing commands. Like a microcomputer, a dot- 
matrix printer has a microprocesser and both read-only mem- 
ory (ROM) and random-access memory (RAM) provisions. 
And just as the computer has a section of memory space for 
printing characters on its display, the printer has ROM sec- 
tions for printing characters and interpreting control codes 
that it receives. Over much of the range of ordinary character 
codes in text mode, the printer's characters will faithfully 
match the characters appearing on the computer's screen. 
With most systems, for example, PRINT CHR$(48) will pro- 
duce a capital H on the screen and LPRINT CHR$(4&4) will 
produce a capital H on the printer. 

LPRINT is in fact the most common printing command for 
most combinations of computers and printers. The LPRINT 
command operates like the PRINT command in several 
ways. Just as PRINT "A" puts a letter A on the screen, LPRINT 
"a" will result in a hard-copy print of the letter A. LPRINT A 
will produce a print of the value of variable A, as with PRINT 
A on the screen. In fact, the identical operation of PRINT and 
LPRINT extends to computations (LPRINT A/B-C), concaten- 
ation of strings (LPRINT A$+B$), printing in spaced print 
zones (LPRINT A,B,C), formatted printing (LPRINT USING 
commands), and blank line feeds (LPRINT alone). And like 
LIST, the command LLIST gives you a line-by-line printout 
of a BASIC program. 

Screen and printer outputs are similar, but not identical, 
for the PRINT TAB(N) and LPRINT TAB(N) commands. On a 
fifteen-inch printer LPRINT TAB(N) commands when N is 
above 80 may behave in strange ways; the TAB function is 
mainly designed for screen output. Suppressing line feeds 
by placing a trailing semicolon at the end of a BASIC state- 
ment also falls into the “‘similar but not identical” category. 
Near the far right end of a print line on a fifteen-inch printer, 
at least, a line feed may occur even if you try to prevent one 
with a trailing semicolon. 

There is one type of PRINT command that has no corre- 
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sponding LPRINT command. That is the PRINT@ (or 
PRINT AT, or PRINT preceded by LOCATE) command. 
This type of command refers only to the computer’s screen. 
The only way to locate the starting of printing in a similar 
way on the printer's page is to combine horizontal position- 
ing with line feeds. 


Some computers, the IBM PC being one of them, can use 
PRINT# as well as LPRINT for sending codes to a printer. 
The # in PRINT#, however, must be followed by a num- 
ber that refers to a computer buffer, and that buffer must 
be numbered in a preceding OPEN statement, such as 
OPEN "LPT1:" AS #1 (“LPTI1:” refers to “line printer 1’). 
After the OPEN statement (and usually a WIDTH statement 
as well) the full print command takes the form PRINT#¢1, 
CHRS$(N) instead of LPRINT CHR$(N). PRINT#1, USING can 
be used instead of LPRINT USING, and in general the 
PRINT# command can do all the things that LPRINT can, 
and more. We'll see in the next chapter that PRINT# solves 
some problems with unwanted carriage returns and line 
feeds when you are programming the PC for bit graphics. 

Some other computers, such as the Epson HX-20, do not 
use LPRINT at all for delivering codes to an external printer. 
Instead, they use a communications (COMO) channel, which 
has to be opened with an OPEN command along with the 
PRINT# command. The HX-20 uses LPRINT only for its 
built-in miniature printer, and communicates with an exter- 
nal printer with the statements OPEN "0", #1, "COMO:" and 
PRINT#1, CHRS$(N). 

Still another form of PRINT# in place of LPRINT shows 
up with the TRS-80 Color Computer. In this case, 
PRINT#2 must be used to send codes to a printer. 

The Apple II computers have never used LPRINT in Ap- 
plesoft BASIC. Instead, they use PRINT for both the screen 
and the printer. If the PRINT command is preceded by 
PR#O0, the output will go to the screen; if preceded by PR#1, 
to the printer. In later examples, however, we'll see that it is 
usually necessary to substitute the POKE command for 
PRINT in Applesoft BASIC. The Macintosh, on the other 
hand, has Microsoft BASIC as standard software, and that 
makes it equivalent to the IBM PC in offering a choice be- 
tween LPRINT and PRINT#. 
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Control Codes 


Every dot-matrix printer has a set of control codes for select- 
ing pitches, boldface printing, line feeds, carriage returns, 
and other nongraphic functions. As if it weren’t already bad 
enough that printers differ in their pin arrangements, here 
we find not only differences among the three families, but 
some large differences within families. And yet it is not com- 
pletely accurate to say that every printer has a different set 
of control codes. 


TABLE 2-2 
Control Codes in Text Mode for the Three Printer Families 


IBM-EPSON APPLE TANDY 


CHRS (18) 


CHRS (18) 


LINE FEED (ACTIVATE) 
HORIZONTAL TAB (ACTIVATE) 


CARRIAGE RETURN 
BACKSPACE CHRS(8) CHRE (8) CHRS (8) § CHRE(N) 


DIRECT POSITIONING CHRS(27)°Fnnnn® CHRS (27) § CHRS (16) § CHRO (NI) § CHRO(N2) 
(nnnn=8880-9999) 
HORIZONTAL TAB SET CHRS$ (27) °D" CHRS(N1)... CHRO(NK) CHRS(27)°)*CHRO(N1)... CHRS(NK) 
CHRS(@) (1 to 32 tab positions) (cleared by CHRS$(27)CHRS(@)) 
VERTICAL TAB SET CHRS (27) °B* CHRS(N1)... CHRS(NK) CHRS (31) CHRS(N) 
CHRS$(@) (1 to 16 tab positions) (N=66 to 76) 
SET PICA (10-CPI) PITCH CHR$(27)°N° CHRS (27) ¢ CHRE(19) 
SET ELITE (12-CPI) PITCH ON--CHR$(27)°M® OFF--CHRS(27)°P® CHRS(27)°E* CHRS (27) ¢ CHRS$ (23) 


SET CONDENSED (16. 7-CPI) CHRS(15) or CHRS(27)CHRS(15) CHRS (27) °Q° CHRS (27) § CHRS (28) 
(13.4- and 15-CPI also available) 

EXPANDED PRINT -- ON CHRS(14) or CHRS(27)°W1° CHRS (14) CHRS (27) §CHRS (14) 

EXPANDED PRINT -- OFF CHRS(28) or CHRS(27)°WO" CHRS (15) CHRS (27) 3CHRS(15) 

provonrrow iro fewmcamacz7ieeis orr—omeczrveer | emcee | ameczrivcuRNCAT 


UNDERLINE -- ON CHR$(27)°-1° CHR$(27)°X° CHRS (15) 

UNDERLINE -- OFF CHRE(27)°-@° CHR$(27)°Y° CHRS (14) 

BOLDFACE PRINTING -- ON CHRS(27)°E° or CHRS(27)°G* CHR$(27)"!° CHRS (27) 4 CHRE (31) 
BOLDFACE PRINTING -- OFF CHRS(27)°F° or CHRS(27)°H° CHRS(27)°°°* CHRS (27) $ CHRS (32) 
PROPORTIONAL SPACING CHR$(27)°sn° (n=@8 to 9) CHRS (27) ;CHRS(N) (N=!t to 9) 
LEFT MARGIN SET CHRS(27)° 1° CHRS(N) CHR$(27)°Lnnn® (nnn=888 to 999) CHRS (27) § CHRS (16) § CHRS(N1 ) 3 CHRS(N2) 


REPEAT PRINTING CHRS$(27)"Rnnn* (nnn=88d to 9979) CHRS (2B) ; CHRS(N) 


CHR$(27)°a" 


LINE FEED SET ~-- 1/6° CHRS(27)°2° CHR$(27)°A° CHRS (27) § CHRS (54) 
LINE FEED SET -- 178° CHRS(27)°@" CHR (27)°B* (REPEAT CHRS(27)$CHRS(58) 9 TIMES) 
LINE FEED SET -- 1/12° CHRS (27) °A° CHRS (6) (NONE ) CHR$ (27) § CHRS (28) 


REVERSE LINE FEED SET CHRS(27)° 5° CHRS(N) CHR$(27)°r® CHRS (27) 3 CHRS (38) 
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For some sample differences, look at table 2-2. This table 
presents the control codes of the “family heads” for all the 
important nongraphic commands. In order for these control 
codes to do their job, they have to be sent to the printer by 
LPRINT, PRINT, PRINT#, or whatever a computer uses as 
its primary line-printer command for printing characters in 
regular text mode. 

For some commands only a single code is necessary to 
execute the command. For example, CHR$(13) is the almost 
universal code for a carriage return, CHR$(8) is widely used 
for backspacing, and CHR$(10) is a common code for activat- 
ing a line feed. In the American Standard Code for Informa- 
tion Interchange (ASCII) system, you'll see that these codes 
are called CR, BS, and LF, respectively (see the ASCII chart, 
table 2-3). These single codes are all lower than the ASCII 
decimal code 32, because that is where the numbering of 
regular letters, numbers, and punctuation marks begins. 

There are many other printer functions that require a dou- 
ble code. And almost always, the first of the two codes is 
CHR$(27), for which the ASCII abbreviation is ESC, for “es- 
cape.’ When a sequence of codes starts with this ESC code, 
it is telling the printer to ignore (escape from) the usual 
meaning of the code that immediately follows and execute a 
special command instead. 

For all codes that start with CHR$(27) and have a second 
code (and sometimes a third) above 32, the ASCII characters 
themselves can be used, provided they are in quotes, instead 
of the decimal code inside the parentheses of CHR$(). The 
sequence CHR§$(27)"E” for the Epson printers, for example, 
is just as effective for turning on boldface (‘““emphasized’’) 
printing as CHR$(27)+CHR$(69), the decimal equivalent. 
Most of these double codes have been selected by the de- 
signers of the printers to remind you of their functions (e.g., 
the Imagewriter’s “f” for setting forward line feed, ‘“‘r’ for 
setting reverse line feed). With triple codes, both characters 
following CHR$(27) can be placed inside a single pair of 
quotation marks. For example, to switch to proportional let- 
ter widths on the Epsons, CHR$(27)“pl” can be used instead 
of CHR$(27)CHR$(112)CHR$(48). 

Programmers working with the IBM-Epson and Apple- 
type printers use these often-mnemonic abbreviations in- 
stead of decimals a great deal. This is not only because it’s 
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easier to associate and remember the codes and functions, 
but also because it cuts down on the amount of typing. Un- 
like the printers in these two families, the Tandy printers 
have very few codes above 32, so their manuals advise you 
to stick to decimals and, for clarity, separate the CHR$()’s 
with semicolons. Even with the few codes above 32, they’ll 
tell you to use CHR$(27); CHR$(50) for setting a Y%2-inch line 
feed, but CHR$(27)*2” will do just as well. With most com- 
binations of computers and printers, including Tandy com- 


Character 
Dec Hex or Function 
0 00 none 
1 01 none 
2 02 none 
3 03 none 
4 04 none 
5 05 none 
6 06 none 
7 07 BEL 
8 08 BS 
9 09 HT 
10 OA LF 
11 08 VT 
12 0c FF 
13 00 CR 
14 OE SO 
15 OF SI 
16 10 none 
17 11 DC1 
18 12 OC2 
19 13 DC3 
20 14 DC4 
21 15 none 
22 16 none 
23 17 none 
24 18 CAN 
25 19 none 
26 1A none 
27 18 ESC 
28 1C none 
29 1D none 
30 1E none 
31 1F none 
32 20 (space) 
33 21 $ 
34 22 ie 
35 23 # 
36 24 $ 
37 25 7 
38 26 & 
39 27 * (apostrophe) 
40 28 ( 


29 ) 


2A 
2B 


TABLE 2-3 
ASCII Codes 0-125 


Character 
Dec Hex or Function 


* 

+ 

» (comma) 
— (en dash) 
- (period) 


CONG UM AWN oN 


OMOVOSAFAGCHTANMOODVDDA Dw U ~ 


Character 
or Function 


,eFAN<xKECCA 


* (tick) 


(vertical bar) 


wer ANX KECK CPYVN DTOHOVTIAOISa—” Turwr TFTORRANT Dw 
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puters driving Tandy printers, it doesn’t matter a whit 
whether you put in the semicolons or leave them out. 

It also doesn’t matter whether you use plus signs instead 
of semicolons; LPRINT CHR$(2?7)+CHR$(31) will turn on 
boldface printing as readily as LPRINT CHR$(27);CHR$(31). 
We will be following the Tandy convention with semicolons 
in this book, because the code sequences are easier to read 
when the semicolons are placed between all those CHR$()’s. 
Plus ‘signs will be used in abbreviating code sequences in 
the text of the book and for concatenation of strings in BASIC 
programs. 

With the IBM-Epson and Apple printers there are times 
when you Il want to use decimals instead of ASCII characters 
in quotes. This is especially the case when the printer codes 
themselves are values of a numerical variable. If the program 
contains several LPRINT CHR$(27);CHRS$(A) or LPRINT 
CHR$(2?7)+CHRS$(A) statements to set different pitches, and 
the values of A are supplied by DATA statements, for exam- 
ple, those A values would have to be decimals (or be con- 
verted from string to numerical values by the VAL function) 
for the pitch-selection command to be executed properly. 

Of the various printer functions listed in table 2-2, the most 
important ones for bit-graphics programming are print den- 
sity (pitch), boldface printing, line feeds, and horizontal po- 
sitioning. And there are some important differences between 
printer families to note in regard to these functions. 


Print density. For printers in the IBM-Epson family, pitch 
is a term that usually refers to regular text mode, not to the 
bit-image graphics mode. So the control codes for chang- 
ing from standard 10-CPI (the default pitch) to condensed 
16.7-CPI printing—the sequence CHR$(27)CHR$(15) or 
CHR$(15) alone—change the print density only for printing 
regular letters, numbers, punctuation marks, and built-in 
graphics characters outside of the graphics mode. The first 
table in the next chapter will show that these printers have 
very different codes for setting or changing print density in 
the graphics mode; for example, the sequence 27+ 
“L” +N1+N2 for setting a density of 120 dots per inch on 
the IBM and Epson printers. In other words, the print den- 
sity (pitch) set in text mode does not automatically carry over 
to the bit-graphics mode in these two families. 
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But with Tandy and Apple printers, there is a complete 
carryover. Whatever pitch has been selected in text mode for 
regular character printing will also determine the print den- 
sity in graphic mode. In fact, once you are in graphic mode 
on the Tandy printers, the only way you can change the print 
density is to go back to the text mode by the exit-graphic 
code, CHR$(30), and follow that with your choice of standard 
(27+19), elite (27+23), condensed (27+20), or elongated 
(27+14) pitches. This may sound like a disadvantage, but 
often the carryover from text to graphic mode helps to keep 
the programming simpler. 

Figure 2-5 demonstrates this carryover on the Radio Shack 
DMP-400 printer, using an inexpensive commercial software 
package called Dotplot-80. The programs in this package, 
designed by J. Anthony Cervantes for the TRS-80 Models I, 
III, and 4, print bit-image renditions of mathematical func- 
tions, computer art, and graphs on five different Radio Shack 
printers. 

The upper part of figure 2-5 shows a “nested squares” fig- 
ure that was produced by Dotplot-80 on the DMP-400 in 
standard 10-CPI (60-dots-per-inch) pitch. The same program 
produced the lower figure, except that running the program 
was preceded by LPRINT CHR$(30);CHRS$(27);CHRS$(20). 
This switched the pitch to condensed 16.7 CPI in text mode 
and also changed the print density in graphic mode to 100 
dots per inch. This squeezed in the horizontal printing with- 
out affecting the vertical line feeds, resulting in a flattened 
figure. If you turn the page ninety degrees, you can see that 
the change in density converted the nested squares to nested 
diamonds. 


Bold printing. There’s another carryover feature in the 
codes for the Radio Shack printers, and the Apple Imagewri- 
ter as well, that is a big advantage in bit graphics—boldface 
printing. Unlike the IBM and Epson printers, which have 
emphasized, double-strike, and bold printing in the text 
mode only, most of the Tandy and Apple printers also pro- 
vide bold printing in the bit-image graphics mode. If you 
don’t have a well-inked ribbon in your printer, this makes an 
enormous difference in the quality of graphic printouts. For 
a demonstration, see figure 2-6. 
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FIGURE 2-5. A 
demonstration of how 
printing density, set in text 
mode, carries over to 
graphics mode on TRS-80 
printers. 


Once you get spoiled by the better printing quality with 
bold-printed graphics, it can be quite a comedown to run 
similar programs on the IBM or Epson printers. But there are 
two remedies that will enable users of the latter to pull up 
close to even with the TRS-80 users. One is to use a new or 
freshly reinked ribbon (a reinking machine like the Mac 
Inker, sold by Computer Friends, 100 N.W. 86th Ave., Port- 
land, OR, 97229, is well worth the fifty-five- to seventy-dollar 
cost). 

The other remedy is to use high-density printing in the 
graphics mode as much as possible. This means going to 
double density (120 dots/inch) on the IBM or Epson MX-80 
printers, and to that same density or even quadruple density 
(240 dots/inch or 1920 dots/line) on the Epson FX-80 and RX- 
80 printers. (See the next chapter for the graphic codes con- 
trolling these densities.) 


Line feeds. About the only size of line feed you'll ever use 
outside of graphic mode is the %-inch (or !%2-inch) feed that 
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NORMAL BOLD 


FIGURE 2-6. How printing quality is improved by bold printing 
in graphic mode with printers having that feature. The same well- 
worn ribbon was used on the DMP-400 for printing both the left 
and right figures. 


spaces lines of text so that they adhere to the standard six 
lines per inch of typewriters. This nicely accommodates dot- 
matrix letters that are usually nine dots high (taking %2 inch) 
combined with a three-dot-sized (32-inch) blank space be- 
tween lines for good legibility. 

An exception to using this standard line feed in text mode 
is when you are programming a diagram with the built-in 
line and block graphic characters. In order for these to fit 
together properly, half-line spacing (“12 inch or %e inch) is 
needed when (as is common) the graphic characters are only 
six dots high, so that there won’t be any blank space between 
the print lines vertically. Other spacing is sometimes 
needed, such as 1%- and double-spaced text, but these are 
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more likely to occur in word processing (and be handled by 
the word-processing software) than in BASIC programming. 

And yet many other line-feed sizes are provided to the 
programmer by some dot-matrix printers—‘/2 inch, %2 inch, 
%2 inch, Ye inch, “144 inch, 216 inch, plus the freedom to set 
N at whatever you want in N/e-inch, “44-inch, and N416-inch 
sizes. Who needs these? You will, if you do a lot of bit- 
graphics programming. As we'll see in more detail in many 
later chapters, you ll need the 72-inch feed if you're printing 
dot patterns seven dots high and you want the lines of print 
to butt together vertically. And you'll want an %2-inch feed 
if the patterns are eight dots high, and % inch if, as is pos- 
sible on the FX-80, the patterns are nine dots high. (By now 
you have probably caught on to the fact that a single dot is 
Yoo inch high, and this too is standard for nearly all printers.) 

The tinier line feeds can be helpful in bit-image graphics 
if you have to make small adjustments of larger feeds for 
more exact butting of lines of print. More importantly, they 
are essential if you want to draw in what we call ultra-high- 
resolution graphics. In this “mode,” a drawing is made— 
slowly—by dozens or even hundreds of passes of the print- 
head, in which only a single dot is printed and the horizontal 
dot patterns are “spaced” only Ye inch, “144 inch, or Yaie inch 
“apart” (they would actually be touching or overlapping). 
Many printers offer enough large and small sizes of line feed 
that you can program just about any oddball size you want by 
combining or repeating them. 

Sometimes reverse line feeds are needed in graphics as 
well as all these forward feeds. One of the hardest parts 
of graphics programming—labeling graphs—can be made 
much easier with reverse feeds. These give you a way of 
backing up vertically, printing a few characters, and backing 
up again to return to where you started. But surprisingly, 
some printers offer only forward line feeds, leaving you with 
no way to back up vertically. 

The most famous of these is the very popular Epson MX- 
80 (with or without Graftrax). Epson has corrected this defi- 
ciency with the newer FX-80 and RX-80, but for some strange 
reason not the fifteen-inch versions of those, the FX-100 and 
RX-100. The Transtar 315 Color Graphics and Okidata Micro- 
line 82 printers also lack the reverse line feed. Many printer- 
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graphics programmers would not dare to buy these forward- 
only machines. 


Horizontal tabbing. There are also big differences among 
printers in horizontal tab functions. While nearly all 9.5-inch 
printers respond to LPRINT TAB(N) in much the same way as 
characters are positioned on the computer’s screen by PRINT 
TAB(N), many printers also have special control codes for 
presetting a series of tab stops across the page. These are 
usually activated by CHR$(9). The Radio Shack printers, 
however, have no horizontal presetting of tab stops. And yet 
they are even easier to program for horizontal positioning, 
especially in graphics mode, because they have a direct po- 
sitioning command, 27+16+N1+N2, which moves the 


FIGURE 2-7. Upper portion: sine curve produced by text-mode 
positioning using the TAB function (TABMATH1 program). 
Lower: sine and cosine curves printed simultaneously using the 
CHR$(27)"D”... tabbing function (TABMATH2 program). 
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printhead precisely to the dot column specified by the com- 
bination of N1 and N2. 

The Apple Imagewriter, NEC, and C. Itoh printers have 
an even simpler code for this function, 27+ “F’’+N, where 
N can range from 0000 to 9999. But the IBM and Epson 
printers do not offer this direct and more exact way of ad- 
dressing a particular dot column. We'll see in the next chap- 
ter that this often makes positioning with these printers 
rather inconvenient, even for computers (such as the IBM 
PC) which have the BASIC function SPACE$, another 
method of horizontal tabbing in text mode. 

This is as good as any place to demonstrate some kinds of 
printer graphics that can be done entirely outside of graphics 
mode using horizontal tabbing. Even though these are con- 
fined to low resolution, it’s good to know that they’re avail- 
able for some purposes. In program 2-1 (TABMATH]1), the 
TAB() feature is used by an IBM PC to draw a sine wave on 
the Epson FX-80 (the top of figure 2-7). This is simply a 
matter of putting a variable, N, in the parentheses of TAB(A) 
and letting A’s value be determined by the SIN() function. 
An unusually small line feed for text mode, %2 inch, was 
used to compress the drawing into steeper curves. 


PROGRAM 2-1. TABMATHI1. Plotting a sine curve using the 
TAB function in text mode. 


10 *PROGRAM 2-15 "TABMATHI" -- SINE CURVE DRAWING (IBM PC AND EPSON FX-80) 


2@ OPEN “LPT1:° AS #1: WIDTH #1, 255 "SET PRINTER WIDTH TO ’INFINITY’ 
3@ PRINT #1, CHR$(27)°9"; "MASTER RESET 

40 PRINT #1, CHR$(27)°A"CHRS(5) "SET 5/72" LINE FEED 

5@ FOR N=-18 TO 1@ STEP .2 

60 =40-INT(20*SIN(N))2 PRINT N, A "SINE FUNCTION 

7@ = PRINT #1, TAB(A)“#* "PRINT ASTERISK AT TAB STOP A 
80 NEXT N 


90 CLOSE #1: END 


The second example of horizontal tabbing (program 2-2, 
TABMATH2) uses the IBM PC and IBM Graphics printer 
so that two different text-mode graphic characters can serve 
as data points for two curves at a time (see the bottom 
of figure 2-7). Instead of TAB(A), the horizontal tab-setting 
code, CHR$(27)“D’ CHR$(A)CHR$(B)CHR$(0), and the tab- 
activating code, CHR$(9), are used to position the data 
points. 
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PROGRAM 2-2. TABMATH2. Plotting sine and cosine curves 
using the 27+ “D” horizontal positioning command. 


1Q "PROGRAM 2-2: "TABMATH2" ~- SINE AND COSINE CURVES (IBM PC & EPSON FX-80) 


2@ OPEN "LPT1:" AS #1: WIDTH #1, 255 "SET PRINTER TO ’INFINITE" WIDTH 

J@ PRINT #1, CHR$(27)"9"5 "MASTER RESET 

4Q@ PRINT #1, CHR$(27)"A°CHRS(3) ; "SET 3/72° LINE FEED 

1Q@ FOR N=-18 TO 10 STEP .2 

110 A=4Q-INT(20*SIN(N) ) "SINE FUNCTION 

120 = =6B=40-INT(20*COS(N)) "COSINE FUNCTION 

130 PRINT N,A,B "DISPLAY VALUES ON MONITOR 

140 IF B>A THEN PRINT #1, CHR$(27)"D" CHRS(A) CHRS(B)CHR$(@) $2 PRINT #1, CHRS(9) 
“#° CHRS (9) “o* "PLOT A (*) AND B (0) VALUES 

158 IF A>=B THEN PRINT #1, CHR$(27)"D"CHR$(B) CHR$(A)CHR$(Q)$2 PRINT #1, CHRS(9 
)"o" CHRS(9) °#* "PLOT B FIRST IF A EQUALS OR EXCEED B 


168 CLOSE #1: END 


A and B are two different tab stops determined by sine and 
cosine functions, respectively. Since A is greater than or 
equal to B some of the time and B is greater than A the rest 
of the time, two different CHR$(27)“D”...CHR$(9) state- 
ments are needed (lines 140 and 150 in program 2-2). These 
could be replaced by TAB(A) and TAB(B) or SPACE$(A) and 
SPACE$(B) statements for simplicity’s sake, although with 
some systems it is risky to have two (or more) TABs on the 
same print line when the order of TAB(A) and TAB(B) is 
continually changing. 

In these examples PRINT#1 (preceded by an OPEN 
“"LPTL:" AS #1 statement) was used instead of the simpler 
LPRINT to guard against “trouble codes” delivered to the 
printer by the IBM PC’s software. When LPRINT is used, for 
example, an A or B value of 13 triggers an unwanted line 
feed in the midst of printing a line. A good deal of space in 
the next chapter is devoted to ways of detecting and dealing 
with such trouble codes, since they pose many more prob- 
lems in the bit-graphics mode than in the text mode. 


In case you re thinking that we’ve covered most of the fea- 
tures found in dot-matrix printers, look in your printer man- 
ual. There are another two dozen or so functions, many with 
special control codes, which we haven’t mentioned yet. And 
again we find large differences among printers in their offer- 
ings. In most cases, these finer features will be explained as 
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needs arise in later chapters. But some miscellaneous com- 
ments about a few of them are needed at this point. 


Printing speed. If you're only acquainted with typewriters, 
dot-matrix printers will dazzle you with their speed. Despite 
the fact that up to ten firings of the printhead pins may be 
required to print just one character in text mode, many print- 
ers can print over one hundred characters per second. In 
bit-image mode, printing over five hundred dot patterns 
per second is commonplace. 

Often it hardly matters how fast a printer can print in bit- 
image graphics, because the printer is spending a lot of time 
waiting for the computer to deliver the codes. This is espe- 
cially likely to happen when the programming contains large 
arrays, many FOR-NEXT loops, poorly placed subroutines, 
and so many strings that the computer's string storage space 
in RAM must be reorganized in the midst of a program run. 


DIP switches. Every printer has a set of manual function 
switches for presetting or changing such things as interna- 
tional alphabets, baud rates in serial interfacing, and control 
of line feeds and carriage returns. These are called DIP (dual 
in-line package) switches. By far the most important of these 
for bit-image graphics is the line feed (LF) and carriage re- 
turn (CR) control. Unlike text printing, bit-graphics printing 
often requires several different commands for the same line 
of print, including CR’s, which may be located at any point, 
and sometimes at more than one point within a series of 
BASIC statements. Many computers are designed to deliver 
automatic LF commands with every CR or end-of-line signal 
in text mode, and carry this over to graphic mode, producing 
a lot of unwanted line feeds. Often the best way to remedy 
this is to set the CR-LF DIP switch to the position that will 
prevent all line feeds until a specific LF code, such as 
CHR$(10), is received by the printer. As we'll see, things can 
get even more complicated when the computer automatically 
converts all CHR$(10) codes to the CR code, CHR$(13), as 
with some TRS-80 computers. 


Buffer space and operation. Dot-matrix printers do not im- 
mediately print each character code (ASCII or bit-image) as 
it is received. They all have a temporary storage space, called 
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the print buffer, in which many codes are collected before 
any one of them is printed. Some print buffers can hold over 
two thousand bytes of such information (including control 
codes as well as character or dot-pattern codes). While hold- 
ing the information in the buffer, the printer also organizes it 
into lines of print. Usually the signal for the buffer’s contents 
to be printed comes at the occurrence of a CR code or at the 
end of a print line, when a CR code is automatically gener- 
ated. Emptying the buffer (by printing its contents) can also 
occur when the buffer is full, or when certain other control 
codes are received; the manual for your printer should indi- 
cate what events trigger the printing from the buffer. In mis- 
behaving bit-graphics programs, knowing these conditions 
can sometimes be crucial to debugging, especially in high- 
density printing on fifteen-inch printers. 


Custom characters. A few of the more recent printers, in- 
cluding the FX-80 and Apple Imagewriter, allow you to de- 
sign your own dot-matrix characters—letters, numbers, and 
punctuation marks—and store them in the printer’s memory. 
This can be very useful in graphics programming, again be- 
cause of challenges that arise in the labeling of graphs or 
diagrams. These user-defined characters could even be up- 
side down, which might be just what you need for labeling 
the vertical axis of a graph. They can also be just parts of 
letters, which can be combined with other parts to form 
extra-large letters. Chapter 7 goes into this topic deeply, ex- 
plaining how to make custom alphabets even if your printer 
doesn't have special codes or storage space for doing this as 
the FX-80 and Imagewriter do. (The homemade characters 
can be stored in the computer instead of the printer.) 

The lesson, then, is: Learn everything you can about your 
printer's nongraphic features, and you'll be in a position to 
accomplish much more in bit-image graphics. 


3 
Welcome to Dotland! 


IF you’ve never been there before, get ready for a few jolts 
when you enter the world of bit-image graphics. In text 
mode, you're used to seeing the printhead move and hearing 
it impact with every character printed. The first time you try 
to make it print a dot or dot pattern you may not see or hear 
anything—even if you succeed. 

Here is the likely scenario. You send a print command to 
the printer and nothing happens. You try a second time— 
nothing again. It quickly becomes a situation like telekinesis 
—maybe if you will it hard enough, you think, you can get 
that printhead to budge! You might well have printed noth- 
ing in those first two attempts—there are lots of ways to get 
neither a text character nor a dot pattern after typing, say, 
LPRINT CHRS(?2). 

But look again: You probably printed a dot pattern but 
can’t see it because the printhead is in the way. And if you'd 
been attending closely to the printer when you hit the 
ENTER key, you probably would have heard a small sound 
and seen the printhead move a tiny distance. Trouble is, 
printing a single dot pattern in normal density takes only 
one-sixth the horizontal distance that printing a letter or 
number does. So you’ve entered a world of graphics that 
operates on a miniature scale. 

But let’s suppose that after cranking up the paper by hand 
for a better look, you find that there is not a single black dot 
on it. It could be that you didn’t use the right control codes 
to get into graphic mode in the first place. More likely, per- 


45 


46 GRAPHICS FOR THE DOT-MATRIX PRINTER 


FIGURE 3-1. Two-inch bar, produced on the DMP-400 by the 
command LPRINT STRINGS$(120,2S5). 


haps you entered graphic mode all right, but didn’t send as 
many dot codes to the printer as it was expecting—many 
printers have to be told how many dot columns of space in a 
line to reserve for bit-image codes as part of the coding for 
entering graphic mode. If you don’t match the number of dot- 
columns with the number of dot codes you send, the printer 
usually won't be very cooperative. 

The Epson printers can be especially punishing to the user 
who sends too few or too many dot codes. They will cough, 
sputter, hiccup, sound their beepers (a pretty good imitation 
of R2D2, in fact), disobey the next commands you send, or 
sit in ominous silence, seemingly according to their mood. 
This business of having to match the amount of graphic space 
reserved is, as we'll see, a major difference between printers 
that can also be a major headache at times. 

A better way to start in bit-image graphics is to try some 
repeated codes, so that most of what you print won’t be hid- 
den behind the printhead. With an IBM system, LPRINT 
CHRS(e?)"K"CHRS$(120) CHR$(0) STRING$(120,255) will 
give you a solid bar that is two inches long and eight dots 
high, as in figure 3-1. 

With an Apple system using Applesoft BASIC the equiva- 
lent command would be: 


PR#1L: PRINT CHRS$(27);CHRS$(43); 
“OL44"; CHRS (27); CHRS (86) ;"O144"; CHRS (255) 


or 


PR#1: PRINT CHR$(27)"SOL4Y4": FOR N=1 TO 120: 
PRINT CHRS$(25S): NEXT N 


(but it may be necessary to use a POKE command in place of 
PRINT to get the two-inch bar—see the section on trouble 
codes later in this chapter). Tandy users should try LPRINT 
CHRS$ (18) ;STRING$(120,255). 

Better yet, get a look at the whole range of dot patterns 
your printer can print with the statements in programs 3-1A, 
3-1B, and 3-1C. 

These three sets of commands will reveal the dot patterns 


PROGRAM 3-1A. DOTPRINT/EPS. Printing the entire range of 
dot codes for IBM-Epson printers. 


10 "PROGRAM 3-1A: “DOTPRINT/EPS" -- FOR IBM PC AND IBM-EPSON PRINTERS 

2@ OPEN “LPT1i:* AS #1: WIDTH #1, 255 "SET PRINTER TO ’INFINITE’ WIDTH 
30 PRINT #1, CHRS$(27) "K" CHRS(255) CHRS(@) § "RESERVE 255 COLS. FOR GRAPHICS 
40 FOR I=1 TO 255 

5Q@ PRINT #1, CHRS(1)§ "PRINT DOT-PATTERN FOR DOT-CODE I 
6@ NEXT I 


PROGRAM 3-1B. DOTPRINT/APL. Printing the entire range of 
dot codes for Apple printers. 


1@ REM -- PROGRAM 3-1B: "DOTPRINT/APL" -- FOR APPLE Ile AND IMAGEWRITER 
20 PR#1 

25 PRINT CHR$(27)+"p"5: REM -- 160 DOTS PER INCH DENSITY 

3Q@ PRINT CHRS(27)+"GO256"3: REM -- RESERVATION OF 256 DOT COLUMNS 

40 FOR I=@ TO 255 

50 IF PEEK(49305) <> 16 THEN GOTO 50 

55 POKE 49304,1: REM -- SEND DOT CODE TO PRINTER 

6@ NEXT I 


PROGRAM 3-1C. DOTPRINT/TRS. Printing the entire range of 
dot codes for Tandy printers. 


1@ ?PROGRAM 3-1C: “DOTPRINT/TRS* -- FOR TRS-80 COMPUTERS AND PRINTERS 


20 LPRINT CHRS$(18) § "ENTER GRAPHIC MODE 

3@ FOR I=129 TO 255 

40 LPRINT CHRS(T); *PRINT DOT-PATTERN FOR DOT-CODE I 
5Q NEXT I 


in a compressed fashion, as in figure 3-2. In the Apple exam- 
ple (program 3-1B), the use of PRINT for sending control 
codes and POKE (with PEEK) for sending dot codes is dem- 
onstrated. 

Notice that the IBM-Epson and Apple Imagewriter sam- 
ples are eight dots high and show twice as many patterns as 
the Tandy printout, which is seven dots high. Notice also 
that all 255 of the IBM-Epson dot patterns are “upside 
down’ (mirror images) with respect to the Imagewriter dot 
patterns, and the first half of the IBM-Epson patterns are 
mirror-images of the Tandy DMP-400 patterns. The next 
chapter provides a close-up of each dot pattern on each 
printer. 

You can spread out the dot patterns by putting a blank code 
—CHR$(0) on the IBM-Epson and Imagewriter printers, 
CHR$(128) on the Tandys—after CHR§(I) in the print com- 
mands above. But before running on the IBM and Imagewri- 
ter, you'll have to double the number of dot columns to be 
reserved for bit graphics. This means changing CHR$(0) to 
CHR$(1) in line 30 of the IBM program and changing 
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FIGURE 3-2. Printouts of all dot codes by Epson, Apple, and 
Tandy printers. 


G0256” to “G0512” in line 30 of the Apple program. The 
Tandy printers don’t care how many columns of space you 
need—once you put them in graphic mode they'll just stay 
there until you send CHR$(30) to exit and return to the text 
mode. 

Before trying to do much more, you’d be wise to learn all 
the control codes for bit-image graphics. 


Graphic-Mode Control Codes 


Table 3-1 is a summary of all the control codes available in 
graphic mode on the Epson FX-80, the Apple Imagewriter, 
and the Radio Shack DMP-series printers other than the 
DMP-2100. In the lower part of the table, there are also a 
few control codes you're likely to need in graphics but that 
are not available unless you temporarily exit the graphic 
mode. 


Entering and exiting graphic mode. With the IBM and 
Epson printers the seemingly simple matter of entering 
graphic mode turns out to be three different functions con- 
trolled by a single four-byte command. The command starts 
with the escape code, CHR$(27), and is immediately fol- 
lowed by a code that determines which printing density will 
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TABLE 3-1 
Control Codes in Graphic Mode for the Three Printer Families 


IBM-EPSON APPLE TANDY 


EPSON FX-80 
CHRS(27)°K* CHRS(N1) CHRS(N2) CHRS(27)°Gnnnn® or 
ENTEn OROene ner CHRS (27) °L* CHRS (NI) CHRS(N2) CHRS(27)°Snnnn*, where CHRS(18) 
("K*ssingle, “L°= double density) nnnn2888e-79977 


(Automatic after reserved graphic (Automatic after reserved graphic 
EXE T GROPRES MODE dot-coluans are filled) dot-coluans are filled) CHBS (30) 


CHRS (27) °#° CHRS(D) CHRS(N1) CHRS(N2), 

where D=@ (60 dpi), 1 (120 dpi, low 

speed), 2 (120 dpi, high speed), 3 

(240 dpi), 4 (80 dpi), 5 (72 dpi), or 
& (90 dpi). 


9-pin graphics: CHR$(27)°4° CHRS(D) 
CHRS(N1)CHRS(N2), where D=@ 


(60 dpi) or 1 (128 dpi) 
CHRS (27) } CHRS (16) § CHRS (NI) § CHRS(N2) 


- ks) 
DIRECT POSITIONING NONE (use repeat-blanks = MLD; 
REPEAT PRINT NONE (use STRINGS or FOR-NEXT loop) CHRS(27)°Vnnnn®, where nnnn = 8882- tah Feoka iepoie 
1,268 (or STRINGS(N, DOTCODE)) do 


BACKSPACE CHRS(8), in text aode CHRS (8) CHRS (8) 5 CHRS(N) 
(In text mode) 
PROPORTIONAL SPACE CHRS (27) CHRS(N) CHRS(27) 5 CHRS(N) 
(N=1-6) (In text mode, N=8-9) 


7/72" CINE FEED CHRS(27)°1°, activated by CHRS(18) CHRS(27)°T14° 


N/72° LINE FEED 


IMAGEWRITER 


TRS-80 DMP-400 


i 
2 
4 
8 
16 
32 
64 
128 


1 
(For 9-pin y 128 (2nd byte) 


graphics) 


72 dpi (576 dpl): CHR$(27). “n° CHRS$ (27) 3 CHRE(19): 60 dpa 
80 dpi (640 dpl): CHR$(27) °N® CHRS$(27)$CHRS(23): 70 dpi 
96 dpi (768 dpl): CHRS(27) °E* CHR$(27)3CHRS(28): 100 dpi 
120 dpi (960 dpl): CHRS$(27) *%q® (Must be set in text mode) 
136 dpi (1,088 dpl): CHR$(27)°Q° 
144 dpi (1,152 dpl): CHRS(27)"p* 
(1,260 dpl): CHRS(27)°P® 


PRINT DENSITY 
(dpi=dots/inch) 


CHRS(27)"Fnnnn", where nonn = 8680- 
1,260 dot-colusns from left margin 


(Automatic in graphics aode) 


CHRS(27)3CHRS(5@) = 1/72° 
(Repeat for higher N values) 


N/144° LINE FEED 
Z Csi aac BooMmCelcl °C? a 
N/216" LINE FEED CHRS(27)°J°CHRS(N), executive 


CHRS(27)3CHRS(51) = 1/216° 
(Repeat for higher N values) 


be in effect. After that comes a pair of codes controlling the 
number of dot columns being reserved for bit-image graph- 
ics. With the IBM Graphics and MX-80 printers, the choice 
of densities is limited to “single” (60 dots/inch, 480 dots/line) 
and “double” (120 dots/inch and 960 dots/line). For single 
density the second of the four bytes must be “K’” or 
CHR$(75) and for double density the code is “L’ or 
CHR3$(76). 

The pair of codes determining the dot-column space must 
be in a particular order and neither may exceed 255, because 
the CHR$() function in BASIC is limited to the range of 0 to 
255. If the number of dot columns to be reserved is under 
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256, then the first code in the pair must equal the number 
reserved, and the second code must be zero. Beyond 255, the 
second code must be greater than zero, and you have to use 
a combination of the two codes to reserve the number of dot 
columns you want. 

The second of the two codes must represent the number of 
whole 256-dot units the reservation number contains. So sec- 
ond codes of 1, 2, and 3 stand for dot-column lengths of at 
least 256, 512, and 768, respectively. Then it’s up to the first 
code in the pair to make up the difference: if the number to 
be reserved is 300, then the first code must be CHR$(44) and 
the second CHR$(1)—44 plus 256 equals 300. If the number 
is 960, then the pair must be CHR$(192)CHR$(3), 192 being 
the difference between 960 and 768, and 3 being the number 
of whole 256-dot units contained in 960. 

The basic form of the “graphics-density-space” command, 
then, is CHR$(27)“K”’CHR$(N1)CHR$(N2) or CHR$(27) 
“L’” CHR$(N1)CHR$(N2) for single and double densities, re- 
spectively, with the sum of N1 and 256-times-N2 determin- 
ing the total number (T) of dot columns reserved. You can 
get the values of N1 and N2 for any value of T by a series of 
IF-THEN statements, as follows: 


cOO IF N<2Sb THEN N2=O0: NEN 

cl10 IF N>2SS AND N<Sl2 THEN N2=1: 
NL=N-2Sb*Ne 

ecO IF N>S11 AND N<?b8 THEN N2=2: 
NL=N-2S5b+#N2 


and so on. But it’s much shorter this way: 
COO Ne=PIX(N/eSb): NL=FPIX(N-2Sb*N2) 


In general things will work better if Nl and NQ2 are in 
integer form, which is what FIX guarantees. FIX is safer to 
use than INT or CINT because with some computers (e.g., 
the TRS-80 Model 4) single- and double-precision numbers 
are rounded rather than truncated by these latter functions. 

The Epson FX-80 has five more densities than the MX-80 
or IBM printers. With so many choices, the basic command 
becomes CHR$(27)“*”CHR$(D)CHR$(N1)CHR$(N2), with 
“«” used for all densities and D selecting densities that are 
numbered from 0 to 6. The value of D for single density is 0, 
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and for ordinary double density it is 1. Then the FX-80 goes 
on to a “high-speed” double density (D equals 2), quadruple 
density (240 dots/inch, 1,920 dots/line!) when D is 3, and 
three more densities that are between single- and double- 
density dot packing. 

One of these latter deserves special attention. When D 
equals 5, the density is 576 dots/line, or 72 dots/inch (there's 
that number 72 again). This is the setting that gives you a 
one-to-one ratio of horizontal-to-vertical dot density; recall 
that a single dot is %2 inch. This provides the most direct 
way of bit-mapping a graphic creation that will print out with 
no horizontal-vertical distortion, which is often so obvious a 
problem in both screen and printer graphics. So three cheers 
to Epson for this one-to-one (or if you wish, 72-to-72) feature 
on the FX-80. (The RX-80 has the same set of densities as the 
FX-80, except for this one-to-one density.) 

After all this work getting into graphic mode with an IBM- 
Epson printer, what do you have to do to get out? Nothing, it 
turns out. As soon as the printer has received the number of 
dot codes that it takes to fill all the dot columns that were 
reserved, it automatically shifts back to text mode. If you 
want to print some more graphics, you have to make another 
reservation of dot-column space. This works the same way 
on the MX-80, RX-80, and IBM Graphics printers. 

The Imagewriter and other printers in the Apple family (C. 
Itoh 8510, NEC 8023A, ADS 8001) are like the IBM-Epson 
printers in requiring a space reservation as part of the com- 
mand for entering graphic mode, but this is not done with a 
pair of numbers. Instead, a single four-digit code ranging 
from 0000 to 9999, enclosed within quotation marks, will 
reserve the number of dot columns needed at a time. And 
unlike the rules for the IBM and Epson printers, this number 
is not restricted by the total number of dot columns in a 
single line (which is 1,280 at the highest bit-graphics density 
available on the Imagewriter, 160 dots per inch). So if you 
want to print six consecutive lines of graphics, you can spec- 
ify “7680” (1,280 times 6) to reserve the dot-column space in 
a single statement. It’s usually easier to reserve graphic space 
on a line-by-line basis, as with the IBM-Epson printers. 

The “enter graphic mode” command for the Apple-family 
printers is relatively simple. With the Imagewriter, the key 
codes are either “G” or “S” (which are completely inter- 
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changeable—either starts the graphic reservation). For ex- 
ample, after PR#1 the statement PRINT CHRS$(27); 
“G6";"0560" would amount to telling the printer, “I want to 
send dot codes requiring 560 dot columns of graphic space.” 
PRINT CHR$(27);"S";"0560" would amount to the same. 
You could make these even shorter by dropping the semi- 
colons and combining the two quotes into one: PRINT 
CHRS(e?)"GOS6O" or PRINT CHR$(27)"SOS60". Such effi- 
ciency should be appreciated, because so many other things 
in graphics require a lot of typing. 

Incidentally, neither the IBM-Epson- nor Apple-type 
printers require you to put everything in one line of your 
BASIC program. As long as the printer receives the codes in 
the correct order, it doesn’t care whether you do it all at once 
or spread the “enter graphics,” “density,” and “reserve 
space’ parts over three different LPRINT lines in the pro- 
gram. With Apple printers, in fact, the density must be spec- 
ified (see table 3-1) in a separate statement that precedes the 
graphic reservation. 

Entering graphics mode on the Radio Shack printers is 
even simpler—just type LPRINT CHR$(18). But that says 
nothing about print density. To select among the pica, elite, 
condensed, (and their combinations with elongated) that are 
offered, you have to send the appropriate pair of codes—for 
example, LPRINT CHRS$(2?7);CHRS$(20); for condensed— 
before you enter graphic mode. If you re already in graphic 
mode, exit by inserting 


CHR$(30); 
just after LPRINT and reenter by putting 
CHR$(18); 


at the end of the density command (or in a new LPRINT 
line). Again, CHR$(30) is the code for getting out of graphic 
mode, and it’s good to know this by heart, because the printer 
will absolutely refuse to print regular text characters when 
it's in graphic mode. (You'll usually get a blank line feed, or 
many of them, instead of a character print.) 


Repeating a dot pattern. Any command, in graphics or text 
mode, can be repeated by enclosing it within a FOR-NEXT 
loop. But the Apple and Tandy printers provide a more con- 
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venient and faster way of repeating dot-codes in graphic 
mode. If we let DC stand for the dot code, all it takes on 
the Imagewriter is LPRINT CHRS$(27)"Vnnnn"CHRS (DC) 
where, again, nnnn is a four-digit number, which can range 
from 0000 to 9999. 

The TRS-80s do their repeating by the code sequence 
CHR$(28);CHR$(N);CHR$(DC), where N can vary from 0 to 
255. As with the Imagewriter’s 27+“V’+nnnn+DC se- 
quence, the 28+N+DC command repeats the printing of a 
dot code starting wherever the printhead happens to be at 
the time the repeat code is received, not necessarily at the 
left margin. Actually, the 28+N+DC sequence doesn't get 
much use when a computer uses Microsoft or other strong 
BASICs, because it’s even easier to use the STRING$ func- 
tion for repeating a code. LPRINT STRING$(N,DC) does ex- 
actly the same as LPRINT CHR$(28);CHRS(N);CHRS (DC), 
and in both cases N cannot exceed 255. If you want to repeat 
a code more than that, say, 355 times, you can string the 
STRING$ together and use LPRINT STRING$(255,DC); 
STRINGS$(100,DC). (You can also string the 28+N+DC se- 
quences together, as in LPRINT CHR$(26);CHRS$(e55); 
CHR$(DC);CHRS$(24&);CHRS (100); CHR$(DC), but that is 
twenty-three extra characters to type.) Compared to both the 
FOR-NEXT way of repeating and the 28+ N+ DC sequence, 
STRING$ speeds things up in the printer’s execution of the 
command as well as the time it takes to type it. 

It’s a good thing the Apple-family printers have their 
297+V+nnnn+DC command for repeating, because Apple- 
soft BASIC, used in the Apple II and III computers, doesn't 
have the STRING$ function. And when you have an IBM or 
Epson printer being driven by one of these Apple computers, 
you're limited to FOR-NEXT loops for repeating, because 
(amazingly) the IBM and Epson printers don't have a control 
code for repeating a character or dot code. Putting this an- 
other way: It’s a good thing that IBM and Epson printers are 
usually driven by computers that do have the STRING$ 
function (the IBM PC, most of the TRS-80s, Apple Microsoft 
BASIC, and the Epson HX-20 have it; the Commodore 64 
and VIC-20, and Atari 400 and 800 don't). 

Another advantage of STRING$ with the TRS-80 comput- 
ers and printers is that there is no trouble when N is 0, as in 
STRING3$(0,136), whereas the printers go haywire when N 
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is 0 in the 28 +N-+DC sequence. “Haywire” is a bit exagger- 
ated; what happens is that you get 255 repetitions instead of 
none (which is bad enough!). The Imagewriter’s repeat com- 
mand doesn’t have this problem with zeros. 


Other control codes. The remaining codes listed in table 3- 
1 have to do with positioning the printhead and line feeds. 
The positioning codes, which include the direct-positioning, 
backspace, forward spacing, and other commands, will be 
treated in the next section because of the special importance 
of controlling the printhead’s position in graphics. As for line 
feeds, there are several points to note beyond what was men- 
tioned in the last chapter. 

The IBM and Epson printers have all the forward line 
feeds you should never need, and the Epson FX-80 and RX- 
80 have a reverse line set of N4i6 inch, with the value of N up 
to the user in the range of 1 to 216. The Epson FX-80’s re- 
verse-feed code is an activating rather presetting one—the 
sequence LPRINT CHR$(27)"j"CHRS$(N) fires an immediate 
one-time reverse feed without a carriage return. The TRS- 
80s also have a reverse feed (in text mode and inconveniently 
restricted to % inch and “2 inch, which can be activating or 
presetting, depending on other codes preceding the line- 
feed codes. The Apple Imagewriter and Dot Matrix printers 
have a reverse-feed set command, CHR$(27)“r’. 

With some dot-addressable printers, the forward line feed 
in graphic mode is automatically set to a size that will make 
successive lines of print butt together vertically to form a 
continuous image. The Radio Shack printers, dating from the 
TRS-80 LPVIII printer, have this feature. The height of any 
graphic line with these printers is normally fixed at seven 
dots, so the line feed is automatically set to %2 inch. This is 
the distance the paper will move when the printer receives 
the universal line-feed activating code, CHR$(10). The butt- 
ing of graphic print lines is illustrated in figure 3-3. 

Very small increases in this distance can be made on most 
of the TRS-80 DMP-series printers by adding Yie-inch line 
feeds—CHR$(27);CHR$(51)—to the CHR$(10) code if there 
is any overlap of the print lines. This can be done without 
leaving graphic mode, as can the addition of %-inch line 
feeds with the sequence CHR$(27);CHR$(50). Either of 
these small feeds can be repeated as many times as you want 
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IGURE 3-3. Adjusting the line feed so that adjacent print lines 
will butt and form a continuous image. 


(with FOR-NEXT loops), so oddball line feeds such as *16 
inch, %416 inch, and !%e inch can be used. In using these, 
note that 216 is three times 72, and thus %16-inch feeds are 
nominally equal to /%2-inch feeds. 

This needs to be checked, though, because the actual size 
of line feeds, particularly these small ones, may not be pre- 
cisely consistent when repeated. Don’t be surprised if re- 
peating a ¥16-inch feed fifty times comes out a quarter-inch 
longer or shorter in paper movement than repeating a Y7- 
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inch feed fifty times. Worse yet, you can often tell at a glance 
from printouts of thin lines separated by supposedly constant 
line feeds that the spaces between lines are definitely not 
constant. This seems to be a problem that all of the popular 
printers have, not just the TRS-80s, and it’s the most likely 
way a printout can be spoiled. Dot-matrix printers have made 
impressive advances in technology since the 1970s, but this 
is one area where a lot more work needs to be done. 

The IBM and Epson printers also have Yaie-inch and Ye- 
inch line feeds—CHR$(27)“3” CHR$(N) and CHR$(27)“A” 
CHR$(N), respectively, when N = 1 in the more convenient 
Néie-inch and N%e2-inch presetting codes. The Epson FX-80 
also has an activating, one-time forward feed of N4ie inch, for 
which the code sequence is CHR$(27)“J’*CHR$(N). In addi- 
tion, there are presetting codes for ¥ inch [CHR$(27)“0”], 
%2 inch [CHR$(27)“1”], and % inch [CHR$(27)“2’’]. The 
Yr2-inch feed, for seven-pin graphics, is not automatic with 
entry into the graphics mode, nor is the setting for eight- 
pin graphics, which require an %»2-inch sequence— 
CHR$(27)"A”CHR$(8). Line feeds for all preset sizes are ac- 
tivated by CHR$(10) as usual. 

The Apple Dot Matrix and Imagewriter printers are much 
more limited in the number of different line feeds they offer, 
but that doesn’t hurt very much because each of them offers 
a flexible “44-inch feed. The code sequence for this is 
CHR$(27)"T "CHR$(nn) where nn is a two-digit number in 
the range of 01 to 99. For seven-bit graphics, nn would be 14 
(but try 13 or 15 if print lines don’t butt well), and for eight- 
pin graphics nn would be 16 (or 15 or 17). The 27+T+nn 
feed can be forward (the default condition), if preceded by 
CHR$(27)"f", or reverse, if that has been preset by 
CHR$(27)"r’. Again, CHR$(10) is the executing command 
code, for either direction, and for two other line feeds of- 
fered, Y% inch and ¥% inch. As with the IBM and Epson print- 
ers and some of the TRS-80 codes, the printer must be out of 
graphic mode in order to respond to these line-feed setting 
or activating codes. 


Precise Printhead Positioning 


We ve now reached what is in many ways the most important 
topic of this book—how to control the printhead’s horizontal 
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position. This is often not a matter of using a single com- 
mand, but rather putting together a combination of com- 
mands. The ingredients to be combined include the 
horizontal tab functions, direct positioning (if available), re- 
peat codes, backspacing, and forward spacing, and all of 
these will usually behave differently, or have to be treated 
differently, as the print density changes. 


Horizontal tab functions. A chapter ago, we saw the TAB(N) 
and 27+D+N1+N2+...+0 horizontal tabbing features 
drawing sine waves on an Epson printer. If you're thinking 
that we’ll use these a great deal in bit-image graphics, guess 
again. These are really low-resolution tools designed for text 
mode. That is why they operate in jumps of six dot columns 
at a time—ordinary text characters are six dots wide. If we 
only wanted to move the printhead to dot-column addresses 
of 6, 12, 18, and other multiples of six, we would find these 
tab functions very useful. But in graphics we are much more 
likely to need addresses between multiples of six, e.g., col- 
umn 40, between the sixth and seventh tab stops (i.e., the 
36th and 42nd dot columns). 

Besides this problem, some printers, especially Tandy’s 
DMP-series, will position correctly at tab stops only when 
the print density is normal; they may do some rather crazy 
things under elite and condensed densities. Furthermore, 
with a fifteen-inch printer such as the DMP-400, the TAB(N) 
function will not perform reliably above the 480th dot col- 
umn even in standard 10-CPI density. This only helps to 
prove that the TAB() function was mainly designed for tab- 
bing on the computer’s screen rather than on the printer any- 
way. 

The horizontal tabbing functions are not completely use- 
less in bit graphics. They can be combined with other com- 
mands to give you the most precise positioning, as we'll 
see shortly. In fact, with printers that don’t offer a direct- 
positioning command (including the IBM and Epson print- 
ers) we re sometimes forced to do a lot of tabbing mixed with 
other ways of moving the printhead. Also, for such things as 
numbering an axis on a bar or line graph, where we may not 
even have to be in graphic mode, both the TAB(N) and the 
27+D... horizontal tabbing features can be handy at times. 
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The direct-positioning command. Radio Shack printers 
have a way of shifting the printhead’s position from any lo- 
cation in a line to any other location. This, in fact, is part of 
the definition of what we're calling the direct-positioning 
command. It is by far the most-used graphic feature on those 
machines. 

The code sequence for this command is CHR$(27); 
CHR$(16);CHR$(N1);CHR$(N2); (which we'll call the 
27+ 16+N1+N2 sequence for short). With this coding, the 
combination of N1 and N2 determine the dot-column address 
to which the printhead moves. As usual, neither NI nor N2 
can exceed 255, and so we have to work with multiples of 
256 and remainders as we did with reserving numbers of dot 
columns for the graphic mode on IBM-Epson printers. 

One big difference, though: N1 and N2 in the TRS-80’s 
direct-positioning sequence are reversed from N1 and N2 in 
the Epson space-reservation sequence, 27 +K+N1+N2. The 
N1 in the positioning command is, like N2 in the Epson 
sequence, the number of whole 256 dot-column units con- 
tained in the total number (N) of dot columns. And like the 
Epson’s N1, the TRS-80’s N2 is the “leftover” part of the 
total, that is, the total minus the product of N1 and 256. To 
convert any total (N) to values of N1 and N2 for positioning, 
then, use the following formulas: 


NL=FIX(N/2S6): Ne=FIX(N—2S56*N1) 


Figure 3-4 demonstrates how the position of a single dot 
print changes as the N is increased from 1 to 300 in single 
steps over 300 successive line feeds of Ye inch (program 
3-2). The top line in the figure shows what happens with a 
standard (pica) print density. If you have a TRS-80 system for 
this program to run on, youll see the values of N, N1, and 
N2 parading on the screen as the printer steps up the page; 
notice that as N passes from 255 to 256, N1 changes from 0 to 
1 and N2 drops from 255 to 0. 

How big a distance the printhead travels in carrying out a 
direct-positioning command depends on the print density as 
well as the value of N. The lower two lines of figure 3-4 show 
this. These were drawn by the printer (a DMP-400) from the 
same starting point on the paper as the pica-density line at 
the top, after just manually reeling the paper back to where a 
pencil mark was made before the printer was run. 
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FIGURE 3-4. Direct 
positioning of dot prints on 
the DMP-400 (program 3-2). 
Positions were increased in 
single steps from the left 
margin (at bottom) to the 
300th dot column. The 
vertical hash marks indicate 
the 55th, 155th, and 255th dot 


columns. 


CONDENSED ELITE STANDARD 
(100 dpi) (72 dpi) (60 dpi) 


Comparing all three lines shows a clear difference among 
the three densities in how far the printhead travels horizon- 
tally. For better comparison program 3-2 switches dot codes 
at the 55th, 155th, and 255th values of N within the series of 
300 increments. To travel all the way across an eight-inch 
page, N would have to keep on incrementing to a value of 
480 for pica, 560 for elite, and 800 for condensed pitch. On 
the fifteen-inch DMP-400 (which has line lengths of 13.2 
inches), these N values become 792, 950, and 1,320. 


PROGRAM 3-2. POSITION/TRS. Horizontal positioning using 
the TRS-80’s 27+ 16+N1+N2 command. 


1@ "PROGRAM 3-2: "POSITION/TRS*® -- DIRECT-POSITIONING ON TRS-80 PRINTERS 
20 *FOR TRS-80 MODEL III, REQUIRES BOOTHE’S PRINTER DRIVER (PROGRAM 3-5) 
3Q@ PRINT "SELECT ONE OF THE FOLLOWING PRINT DENSITIES:° 

40 INPUT * 1. PICA 2. ELITE 3. CONDENSED (TYPE 1, 2, OR 3)°5PD 
3@ ON PD GOSUB 1000, 2000, 3000 


6@ LPRINT CHR$(18) 5 "ENTER GRAPHIC MODE 

10@ FOR N=@ TO 300 

110 Ni=FIX(N/256): N2=FIX(N-256#N1 ) *CONVERSION OF N TO Ni AND N2 
120 PRINT “N="5N, “N1="5N1, °N2="5N2 "DISPLAY OF VALUES 

130 IF N=55 OR N=155 OR N=255 THEN DC=255 ELSE DC=136 *DOT-CODES USED 


140) =LPRINT CHR$(27) 5 CHRS(16) 3 CHRS(N1) § CHRS(N2)§3CHRS(DC)5 "PRINT DOT-PATTERN 
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15Q@ LPRINT CHRS$(27) 5 CHRS(5®@) § 71/72" LINE FEED 
16@ NEXT N 

178 END 

100@ LPRINT CHR$(3Q) 5 CHRS(27) §CHRS(19)52 RETURN "PICA 

28@2 LPRINT CHR%(3Q) § CHRS(27) 3 CHR$(23)32 RETURN "ELITE 
3@@@8 LPRINT CHR$(3Q) 5 CHRS(27) §CHR$(20)5: RETURN ” CONDENSED 


If you do a lot of programming with the direct-positioning 
command, you quickly learn to cut down your labor by defin- 
ing shorthand strings to take the place of CHR$(27): 
CHR$(16) in the 27+ 16+N1+N2 sequence. For example, a 
string called PS$ (for “positioning string’) could be defined 
by the statement PS$=CHR$(27)+CHR$(1b) early in a pro- 
gram, and every time the positioning sequence is needed 
after that, the print command could start with LPRINT 
PS$;CHRS(N1);CHRS(N2). 

This idea can be extended. For example, when you know 
that all N values will be under 256 and therefore all N1 
values will be 0, you could use a longer string defined 
by PO$=CHRS$(27)+CHR$(1b)+CHRS$(0O) for insertion into 
LPRINT POS;CHRS(Ne) statements. 

The Radio Shack positioning command is efficient, too. It 
is not necessary for the printhead to return to the left margin 
during the execution of the command—it just goes directly 
from wherever it is to the new location that is specified by 
N1 and N2. With this fact combined with bidirectional print- 
ing, the positioning is fast as well as efficient. 

The Apple Dot Matrix and Imagewriter printers also have 
a direct-positioning command—the 27+ F+nnnn sequence. 
In actual practice, nnnn would never be higher than 1280, 
the number of dot columns in a print line with a density of 
160 dots per inch. 

On the IBM and Epson printers, even the FX-80, the near- 
est thing to this direct-positioning feature you can find is the 
horizontal tabbing command 27+D+N1+N2+... +0. 
That can move the printhead to every sixth dot column in 
standard density, every twelfth in double density, or every 
twenty-fourth in quadruple density. From there on, if you 
want it to get to some in-between position, you have to com- 
bine this command with some other kind of command. We'll 
see shortly that, as usual, there is more than one way to solve 
this problem. 


WELCOME TO DOTLAND! 61 


Repeat-blank positioning. With just about any printer, the 
printhead automatically moves—one dot column—every 
time it prints a dot pattern in the bit-graphics mode. (In text 
mode, except for proportional printing, it moves six dot col- 
umns after every character print.) In both modes, this print- 
head movement will take place even if the pattern or 
character is a blank. In text mode, CHR$(32) is a universal 
code for a blank space that is six dot columns wide. With 
IBM, Epson, and Apple printers in graphic mode, the Micro- 
soft BASIC command LPRINT CHR$(0) will result in a blank 
dot-column movement, as will LPRINT CHR$(128) on the 
Tandy printers. 

We can cash in on these facts to develop a new way of 
positioning the printhead. For those printers lacking the di- 
rect-positioning command, in fact, this turns out to be the 
main way and sometimes the only way that makes any sense. 
Repeating a blank code N times will move the printhead to 
the right N dot columns in graphics mode and 6 x N dot 
columns in text mode. This means that if you want to move 
the printhead from the left margin to the 200th dot column 
in graphics mode, use LPRINT STRING$(200,0) on the 
IBM, Epson, and Apple printers and LPRINT STRINGS 
(200,128) on the TRS-80 printers. 

If your computers BASIC doesn’t have the STRING$ 
function, use a repeat code that the printer's ROM responds 
to, such as the CHR$(27) + “V0200” + CHR$(0) sequence for 
the Apple or LPRINT CHR$(28);CHRS$(200);CHR$(128) 
for the TRS-80s. If you lack both STRING$ on the computer 
and a repeat command on the printer, then your only choice 
for repeating is a FOR-NEXT loop. A STRING$-less Apple 
computer driving a nonrepeating Epson printer, for example, 
would have to use PR#1: FOR N=1 T0 200: PRINT CHRS$(O);: 
NEXT N. 

Repeat-blank positioning can move the printhead to the 
right from any position in a print line, not just the left margin. 
If you've already gotten to the 100th dot column (by what- 
ever means) and you want to move to the 120th before print- 
ing any more dot patterns, then just insert twenty blanks. 
This means that repeat-blank positioning can be combined 
with horizontal tabbing, direct positioning, other repeated 
blanks, or positions resulting from the printing of characters 


FIGURE 3-5. Positioning with three 
different print densities on the Epson 
FX-80. This figure shows the printout 
produced either by repeat-blank 
positioning (program 3-3) or when 
positioning is done using text-mode 
tabbing in combination with bit- 
image repeated blanks (program 3-4). 


QUADRUPLE DOUBLE SINGLE 
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or dot patterns earlier in a print line to address any dot col- 
umn. 

Figure 3-5 shows the result of using repeat-blank position- 
ing at three different densities with the Epson FX-80 printer. 
As with figure 3-4, the printout was run three times from the 
same starting point on the paper, and code 255 was used to 
mark the 55th, 155th, and 255th positions in the sequence of 
300. At each density a dot was positioned by starting at the 
left margin and sending a series of blank codes (e.g., for the 
78th position using STRING$(78,0) or for the 293rd position 
= STRING$(255,0)STRING$(38,0) ) before printing the 

ot. 
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This being repeat-blank positioning in the bit-image 
mode, the repetition of blanks and printing of the dot had to 
be preceded by a graphic reservation command that specified 
the number of dot columns for the blanks, in addition to a 
reservation of one dot column for the printed dot. Be careful 
in specifying the N1 and N2 values for the reservation of 
blank dot columns and the values inside the parentheses 
of STRING$(), because each unit of N2 in the 27+“K’+ 
N1+N2 command represents 256 dot columns (including 
dot-column 0 at the left margin), whereas the limit for re- 
peating any code in the STRINGS§() function is 255. This gets 
to be a problem as soon as you pass the 255th dot column, 
when N2 changes from 0 to 1. 

Continuing our example of the 293rd position, the full 
command for reserving dot columns for blanks alone takes 
the form LPRINT CHR$(27)"K"CHR$ (37) CHR$(1) since 293 
minus 256 equals 27. But the combination of STRING$() 
functions for moving the printhead over 283 blank positions 
(including dot-column 0) is STRING$(255,0)STRING$(38,0), 
since 293 minus 255 (the limit) is 38. If we were above the 
512th position (in double density), we would have to add 2 
rather than 1 to the value of N1 in the final STRING$() spec- 
ification. For every multiple of 256, we need to add a value 
of 1 in the number of repetitions specified in the sequence 
of STRING$() functions. Fortunately, multiples of 256 are 
given by N2, so we can arrange for this incrementing to take 
place ‘automatically in the more general case by inserting 
STRING$(N2,0) before the other STRINGS$() provisions. 

If we are limited to 480 dot columns (numbered 0 to 479) 
in single density and we want to place a dot in each col- 
umn, we start by varying N (the dot-column address) from 
0 to 479 in a FOR-NEXT loop and within the loop con- 
verting each N value to Nl and N2 values in the usual 
manner, using the general formulas N2=FIX(N/256) and 
N1=FIX(N — 256*N2). Fhen, continuing inside the loop, the 
graphic space reservation and positioning command can be 
LPRINT CHRS$(27)"K"CHRS(N1L)CHRS(N2)STRINGS (Ne,O0) 
STRINGS (255*N2,0)STRINGS(N1,0);. Finally, with a sep- 
arate reservation in another statement, the dot is printed by 
LPRINT CHRS(27)"K"CHRS(1)CHRS(0)CHRS(8&). 

With more than 480 dot columns, the easiest way to repeat 
blanks is with a simple counter loop, for example (with 
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double density), FOR K=1 TO N: LPRINT CHR$(27)"L" 
CHR$(1)CHR$(0O)CHR(&);: NEXT K. For that matter, a FOR- 
NEXT counter is the simplest way for any number of dot 
columns, but it is surprisingly slower than a series of 
STRING$() functions when N is over 500. In a program for 
drawing a graph in which several dozen data points need to 
be positioned, this time difference can amount to many min- 
utes. 


PROGRAM 3-3. REPBLANK/EPS. Positioning on the Epson 
FX-80 with repeated blanks. 


10 *PROGRAM 3-3: "REPBLANK/EPS" -- REPEAT-BLANK POSITIONING ON THE EPSON FX-80 

20 "FOR TRS-80 MODEL III (WITH BOOTHE’S DRIVER) AND FX-80 IN QUADRUPLE DENSITY 

3Q@ CLEAR 2002 

4Q@ LPRINT CHR$(27)"°0"5 

5@ LPRINT CHR$(27)°3"CHRS(1)5 

100 FOR N=0 TO 1919 STEP 20 

11Q@ N2Z=FIX(N/256): Ni=FIX(N-2546#N2) 

120 PRINT "N="5N,"N1="5N1, "N2Z=" 5NZ 

130 FOR K=0 TO N2-1:2 S(K)=2555 NEXT K 

140 FOR K=N2 TO 7: S(K)=@: NEXT K 

150 FOR K=@ TO 7: PRINT S(K)3: NEXT Ke PRINT 

160 LPRINT CHR$(27)"Z* CHRS(N1) CHRS(N2) STRINGS (N2,0)STRINGS(S(Q),@)STRINGS(S(1) 
»@)STRING$(S(2),8)STRINGS(S(3),@)STRINGS(S(4) ,@)STRINGS(S(5), 8) STRINGS(S(6 
),Q@)STRINGS(S(7),8) sSTRINGS(N1,@) § 

178 LPRINT CHRS(27) °K" CHRS(1) CHRS (QO) CHRS(8) 5 "PRINT DOT 

188 LPRINT CHR$(1@); 

190 NEXT N 

20@ END 


Program 3-3, called REPBLANK/EPS, is designed for 
rapid positioning over dot columns 0 through 1919 when the 
FX-80's quadruple density is used. The key feature of this 
program, in line 160, is a chain of ten STRINGS$() functions 
following the usual graphic reservation. The first of the ten, 
STRING$(N2,0), is the provision just noted—a blank print 
for every multiple of 256 above dot-column 255. The last of 
the ten, STRING$(N1,0), makes up the difference between 
N and the next lowest even multiple of 256, as before. 
Between the first and last are eight STRING$() functions, 
each of which can take the values of STRING$(0,0) or 
STRING$(255,0). 

Which of these two values that any of these middle eight 
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STRING$() functions has is determined by storing values of 
0 or 255 in an array called S(K). Lines 130 and 140 of REP- 
BLANK/EPS assign these values with a pair of FOR-NEXT 
loops having lengths determined by the number of even 
multiples of 256, that is, by N2. When S(K) equals 0, its 
corresponding STRING$(S(K),0) function takes the form 
STRING$(0,0), meaning no blanks and no movement of the 
printhead; when S(K) equals 255, the printhead will move 
255 dot columns as a result of STRING$(255,0). As N in- 
creases, the number of middle-eight STRING$() functions 
containing 255 instead of 0 will increase. If enough string 
space is arranged ahead of time by the CLEAR statement in 
line 30, the principle here can be extended for printers hav- 
ing more than 1,920 dot columns. 

Compared to simple FOR-NEXT loops for repeating 
blanks, program 3-3’s more complicated method pays off in 
time saved. With the TRS-80 Model III driving the FX-80 
from dot-columns 0 through 1919 in steps of 20, the FOR- 
NEXT method takes 12.33 minutes to get across the page. 
With program 3-3 that time is reduced to 3.08 minutes, or one 
fourth as long. 

Program 3-4 presents an alternative method for position- 
ing with printers such as the IBM and Epson models that 
have neither the direct-positioning feature nor the repeat- 
character feature. With this method, horizontal tabbing, 
using TAB() in text mode, is combined with repeated blank 
codes, using CHR§$(0) in graphics mode. The program varies 
dot-column positions (DC) from 1 to 300 (line 100) and cal- 
culates the number of tab stops (P1) by dividing DC by 6 
(line 110). This is because when these printers are set to 
single-density pitch, there are six dot columns from one tab 
stop to the next. The P1 value is used for tabbing to the 
nearest tab stop below the target position (DC) and then 
filling in the remaining distance by repeating up to six 
blanks. This remaining distance, represented by LO, is equal 
to the number of leftover bit-image steps when the position 
of nearest tab stop is subtracted from the target position; 
hence LO=FIX(DC-6*P1) in line 120. After the tabbing por- 
tion of the positioning is executed (line 160) in text mode, a 
graphic reservation of LO dot-columns is made and the re- 
peat-blank portion of the positioning is accomplished with 
STRING$(LO,0) in line 170. Finally, with one more column 
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PROGRAM 3-4. POSITION/EPS. Tabbing combined with 
repeated blanks in horizontal positioning on the Epson FX-80. 


10 "PROGRAM 3-4: “POSITION/EPS" -- HORIZONTAL POSITIONING ON THE EPSON FX-80 
2@ ’FOR TRS-80 MODEL III, REQUIRES BOOTHE’S PRINTER DRIVER 


30 LPRINT CHR$(27)"a"$ "MASTER RESET 

40 LPRINT CHRS(27)°3°CHRS(2) § "SET 2/216" LINE FEED 

3@ LPRINT CHR$(13)5 "CARRIAGE RETURN 

1@0 FOR DC=1 TO 380 

110 Pi=FIX(DC/6) *P1=NUMBER OF TAB STOPS 

120 LO=FIX(DC-6#P1) *LO=LEFT-OVER BIT-IMAGE STEPS 

130 Pi=Pi+1 "ADJUST TAB STOPS TO START AT 1 

14@ PRINT "DC=°5DC, °P1="5P1, °LO="5LO 

15@ 3 =6IF DC=55 OR DC=155 OR DC=255 THEN CC=255 ELSE CC=8 

160 LPRINT TAB(P1)5 *TAB PORTION OF POSITIONING 

17@ LPRINT CHR$(27) °K" CHRS(LO) CHRS(@) SSTRINGS(LO, OQ) § *REPEAT-BLANK PORTION 

18@  LPRINT CHR$(27)"K*° CHRS(1)CHRS(Q) 5 CHRS(CC) 5 "PRINT OF DOT OR SLASH 

185 REM -- CHANGE "K" TO "L" FOR DOUBLE DENSITY, TO "Z° FOR QUADRUPLE DENSITY 
IN LINES 17@ AND 1808 

199 LPRINT CHR$(1@); "LINE FEED 

200 NEXT DC 

210 END 


reserved, the dot is printed (line 180). An alternative would 
be to delete line 180 and change line 170 to 


LPRINT CHRS$(27)"K"CHRS(LO+1)CHRS (0) 
STRINGS (LO,0)CHRS$(CC) 


Figure 3-5 portrays the result of running program 3-4 at 
three different densities on the FX-80 just as well as it did in 
showing printouts from positioning done entirely by re- 
peated blanks. If you’re combining repeated blanks with tab- 
bing at double density, there will be twelve dot columns 
between tab stops, and at quadruple density there will be 
twenty-four. The denominator in line 110 should be changed 
from 6 to 12 or 24 along with the changes from “K” to “L” or 
“Z, in lines 170 and 180. 

Generally it'll be simpler to stick to repeat-blank position- 
ing than to combine that with horizontal tabbing, especially 
if your computer's BASIC has the STRING$ function. If you 
have a lot of target positions falling right at tab stops, such as 
numbers or hash marks on the axis of a graph, then tabbing 
might be simpler. Also, if you have to move distances greater 
than 255 dot-columns (the limit of a single STRING$) very 
often, tabbing combined with repeated blanks may be just as 
convenient as program 3-3’s repeated STRING$ method. 
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The proportional spacing command. The Tandy and Apple 
(but again, not the IBM and Epson) printers have what is 
called the proportional space command. This uses the code 
sequence CHR$(27);CHR$(N) and moves the printhead N 
dot columns to the right from any position in a line. N can 
vary from 0 to 9 on the TRS-80s and from 1 to 6 on the Apple 
printers. In both cases, the command can only be executed 
in text mode. Indeed, it was designed for adding tiny spaces 
between words in order to make all nonindented lines of text 
the same length (right justification). 

But the proportional spacing feature also provides yet an- 
other way of making more use of horizontal tabbing features 
for positioning in graphics. It is most useful in graphics at 
pica (text-mode) and single-density (graphic-mode) pitches. 
For moving the printhead to dot-column addresses that are 
between tab stops, you can combine a tabbing command with 
a proportional-space command the same way that tabbing 
was combined with repeated blanks in figure 3-6, except for 
staying in text mode all the way to the target position. To 
reach the sixty-fourth dot column, for example, you could use 
LPRINT TAB(10);CHR$(2?);CHR$(4) and then go into 
graphic mode for some bit-image printing. 

At times this can be a handy way of getting the printhead 
to where you want it. And for Apple users there is the advan- 
tage that the graphic reservation command (the 27+ “G’ + 
nnnn sequence) that accompanies the positioning doesn’t 
have to include a few blanks that make up part of the posi- 
tioning. 

A word of warning, though: The distance the printhead 
moves in proportional spacing may not be the same as the 
movement in repeat-blank positioning. For instance, the 
command CHR$(27);CHR$(6) may produce a movement of 
only three addressable dot columns instead of six. This needs 
to be checked (and if necessary, calibrated) for your particu- 
lar printer. 


Backspacing. The universal backspacing code CHR$(8) has 
some uses in positioning in graphics, at least occasionally. 
This is when it takes the form CHR$(8);CHR$(N), letting you 
set the value of N, the number of half dot columns. (For every 
two steps in N, the printhead moves one dot column to the 
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left.) The Radio Shack printers have this feature but the IBM- 
Epson and Apple printers do not—their backspace is limited 
to the width of a text character. Since backspacing seems to 
have been designed for text strikeovers, such as combining 0 
and / into 0, this command is available only in text mode, 
even with the TRS-80 printers. 

The backspacing command gets a lot of use with these 
printers in placing data points in graphs. Data-point symbols, 
such as circles, diamonds, and triangles, are usually five to 
seven dot spaces in height, as we'll see in chapter 9. We 
usually place data points on a graph using the direct- 
positioning command (the 27+ 16+N1+N2 sequence), but 
if that is all we use, it will be the bottom of the data point, 
not its center, that represents the numerical value on the 
graph. Since we want the center of the data point to represent 
the value, we need to start printing it a bit lower—half the 
height of the data point lower, in fact. Inserting a 
30+8+N+18 sequence just after the 27+ 16+N1+N2 will 
remedy this difficulty. If, for example, your data point is 
seven dots high, an N of 7 in the 30+8+N+18 sequence 
will drop the printing 3% dot columns, and now the center of 
the data-point symbol will be right where you want it. 

Printers not having the 8+N type of backspacing, i.e., 
those that automatically backspace six dot columns when 
they receive CHR$(8), won’t be able to fine-tune data-point 
placements the way the 8+N printers do. They are forced to 
other ways of positioning, such as reducing the number of 
dot columns the printhead moves in repeat-blank position- 
ing, or combining the six-dot backspace with small repeat- 
blank adjustments. 

There are other uses of backspacing in bit-image graphics 
that will show up in later sections of this book. In the very 
next section, in fact, comes another important use of the 8+ N 
form of backspacing. 


Trouble Codes 


If there is any topic that may be more crucial to dot-matrix 
printer graphics than positioning, it is dealing with trouble 
codes. There are many codes which, when sent to a printer 
in graphic mode, cause outrageous events—unwanted form 
feeds, printing in the wrong position, failure to repeat dot 
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FIGURE 3-6. Trouble 

codes: incorrect positioning 

with codes 10, 12, and 96 

- 102 with the TRS-80 Model III 
11 driving a DMP-400 or 

LPVIII printer. 

(FORM FEED FROM CODE 12) 


eee 
yesaTaee 


aoe 
0 
N 


»e 98 


patterns or blanks correctly, and other sources of exaspera- 
tion. Almost every system has at least one of these trouble 
codes. This makes one wonder if perhaps there have been 
ten thousand would-be programmers trying to draw graphs 
or pictures on dot-matrix printers who have given up as a 
result of trouble codes they didn’t know even existed, let 
alone how to detour around them. 


Some examples. You can tell from the Epson printer man- 
uals that a big trouble-code area has been in systems in 


which MX-80 and FX-80 printers are driven by the TRS-80 
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(FORM FEED FROM CODE 12) 


po be 
vemos 


ba 
8 


96 


FIGURE 3-7. When the CHR$(28);CHR$(N) sequence is used 
for repeating a dot code with the TRS-80 Model III, errors in 
repeating may show up when N is 0, 10, 12, or 96. 


Model I and Model III computers. But even more difficulties 
show up when these computers are driving TRS-80 printers! 
Figure 3-6 shows mispositioning and unwanted form feeds 
from codes 10, 12, and 96 on the Radio Shack DMP-400 and 
LPVIII printers when they are interfaced to a Model III. 
When values of N2 in the direct-positioning sequence 
27+ 16+N1+N2 are incremented from 1 to 100 and sent one 
at a time, the 10th value starts printing in the 13th dot column 
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instead of the 10th, the 12th value produces a form feed of 
several inches, and the 96th value prints at the 64th dot col- 
umn! 

Figure 3-7 shows that these same codes cause misbehav- 
iors in repeat-character printing. When the single-dot print 
of dot code 136 is repeated from 0 to 100 times using the 28- 
N command, there are 13 repetitions instead of 10, 64 instead 
of 96, 255 instead of 0, and (again) a form feed from code 12. 
And the same troubles show up when you use repeat-blank 
(28+N+ 128 instead of 28+ N+ 136) positioning. 

Don’t blame the printers for these problems. By and large, 
the Radio Shack and other brands of printers faithfully print 
the patterns of the whole range of dot codes that they re- 
ceive; it is in the control codes where most of the problems 
arise. The same combinations of computers and _ printers 
that have trouble repeating a single dot print with N’s of 
0, 10, 12, and 96 in the 28+ N command show no difficulties 
with the commands STRING$(0,136,), STRING$(10,136), 
STRING$(12,136), and STRING$(96,136), or when they use 
the STRING$ function to execute repeated blanks. Further- 
more, the problems vanish when the computer's print driver 
is changed, if the PRINT# or OUT commands are used in- 
stead of LPRINT, or (with the TRS-80 Models I and III and 
Apple II computers) if a PEEK-and-POKE statement is sub- 
stituted for LPRINT or PRINT. 

So trouble codes are software, not hardware, problems, 
which almost always arise from the computer rather than the 
printer. Some of them are partly understandable when you 
remember that CHR$(12) is a univeral form-feed code, or you 
realize that the Model III automatically converts CHR$(10) 
to CHR$(13) to produce carriage returns along with line 
feeds. But these things aren’t supposed to happen in graphic 
mode! 

Other TRS-80 computers have trouble codes of different 
sorts or numbers. The Model I can’t send codes 0, 10, 11, or 
12 by LPRINT commands. The Model 100 and Model 4 (with 
the TRSDOS 6.0 operating system) have trouble with code 9 
—with the DMP-400, code 9 behaves like code 32 in direct 
positioning and like a true zero (not 255) in the 28+ N repeat 
sequence. When the Model 4 is run in Model III mode, there 
are no problems except with some of earliest Model 4s sold. 

The IBM PC follows LPRINT CHR$(13) with CHR$(10) 
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automatically in text mode, so that carriage returns will be 
accompanied by line feeds, but unfortunately this also hap- 
pens in graphic mode when you re trying to use CHR§$(13) as 
a dot code. The result can be gibberish interrupting a se- 
quence of dot patterns or several feet of blank paper, depend- 
ing on which printer is cabled to the PC. 

With Apple II computers using Applesoft BASIC’s PRINT 
command (after PR#1), the problems are not so much with 
individual trouble codes as with whole banks of codes. With 
the Apple II+, the printer won't receive codes in the range 
of 128 to 255, only the seven-bit codes from 0 to 127 (al- 
though some printers, such as the Epson FX-80, have soft- 
ware commands that enable you to use the 128-to-255 range 
or the 0-to-127 range but not both at the same time). The 
Apple IIe, on the other hand, sends only eight-bit codes in 
the range of 128 to 255, at least when it is interfaced to the 
Imagewriter with a Super Serial Card. This means that 
the eighth bit, corresponding to the printhead’s bottom pin 
(the 128 pin), is always set (fired) by Applesoft, the result 
being that all dot codes below 128 will be printed with an 
unwanted “underline.” And if you try to make the bottom 
pin stop printing all the time with a software command for 
ignoring the eighth bit, the system will simply hang up. Sev- 
eral additional problems with an Apple II+ driving an MX- 
80 or FX-80 are discussed in Epson’s manuals for these print- 
ers. Compared to these Apple problems, the TRS-80 and 
IBM difficulties seem like a picnic with only a few ants. 


Diagnostic aids. One way of detecting problem codes, al- 
ready illustrated in figures 3-6 and 3-7, is to expose your 
printer to the whole range of control codes and dot codes it 
would ever receive. If you do this systematically, such as 
using regular increments in the dot codes being tested, the 
trouble codes will usually stick out like sore thumbs in the 
printouts. It’s a good idea to test the same sets of codes serv- 
ing in different roles, i.e., in positioning, in repeat printing, 
in reserving graphic space, and as dot codes. 

A quicker way of testing every code for possible trouble is 
a “hex dump.” The Epson FX-80 is one of the few printers 
having this feature, but probably many other printer manu- 
facturers will add it in the near future. If you hold down the 
FF (form feed) button as you are turning on the FX-80, you 
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TABLE 3-2 
Hex Dump for the Case of No Trouble Codes 


02 03 O04 OS O06 O07 O8B OF OA OB OC OD OF OF 10 11 
16 17 18 19 1A 1B 1C 1D 1€ 1F 20 21 22 23 24 25 
2A 2B 2C 2D 2E 2F 30 31 32 33 34 35 3& 37 38 39 
SE SF 40 41 42 43 44 45 46 47 #48 49 4A 4B 4C 4D 
52 33 S34 55 56 357 38 539 SA SB SC SD SE SF 60 41 
66 67 68 69 6A 6B 6C 46D GE 4&F 7O 71 72 73 F&A FS 
7A 7B 7C 7D 7E 7F 80 81 82 83 84 85 86 87 88 89 
SE 8F 90 91 92 93 94 95 96 97 98 99 DA 9B 9C 9D 
A2 AS A4 AS A&B AZT AB AD AA AB AC AD AE AF BO BI 
B& B7 BS B9 BA BB BC BD BE BF CO Ci C2 CS C4& CS 
CA CB CC CD CE CF DO Di D2 D3 D4 DS D& DZ DB DI 
DE DF EO E1 E€2 E3S E4 ES E6 E7 EB EDO EA EB EC ED 
F2 F3 F4 FS F6 FF FB FO FA FB FC FD FE FF OD 


will put it in “hex mode,’ meaning that it will convert all 
decimal codes and print them as hexadecimal codes. This 
will tell you just what codes are being received by the 
printer, as opposed to those that your BASIC program is 
trying to send to the printer. 

Sending the whole range of decimal codes (0 to 255) can 
be done by entering FOR I=0 TO 255: LPRINT CHRS$(I);: 
NEXT I. With Apple II computers, add PR#1 before the FOR- 
NEXT loop and use PRINT instead of LPRINT inside the 
loop. If there are no trouble codes, the printout should look 
like table 3-2. 

The same test with an IBM PC driving the Epson FX-80 
will show a very similar printout but reveal an OA (decimal 
10) right after OD (decimal 13) instead of continuing right on 
to OE (decimal 14). This is perfectly in line with the fact that 
a line feed routinely follows a carriage return when the print 
command is LPRINT (but not when it is PRINT#—see 
below). 

The TRS-80 Model III’s case looks far worse (table 3-3), 
with decimal 10 (OA) converted to 13 (OD) and a long string 
of consecutive OA’s in place of codes 12 and 13 (OC and OD). 
No wonder, then, that in figure 3-7 the dots ended up in 
position 13 instead of 10, and sending code 12 produced a 
long series of line feeds. Incidentally, the hex dump shows 
nothing abnormal in the vicinity of code 96, however, so 
perhaps the displacement to position 64 is a chip flaw in 
some of the early TRS-80 printers. 

Table 3-4 shows a hex dump with the TRS-80 Model 4 and 
Model 100. The trouble with code 9 shows up clearly—a 
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TABLE 3-3 
Hex Dump for the TRS-80 Model III Computer 


series of eight 20s (decimal 32s). So positioning at 32 instead 
of 9 with these computers is somewhat understandable, but 
the failure to repeat-print at all when they send the sequence 
CHR$(28);CHR$(9) is not. The FX-80 misbehaves like a 
child when code 9 is delivered to it by these computers in 
either text or graphics mode. If you need to use this code to 
activate horizontal tabbing, add 128 to it to get CHR$(137) 
and there should be no problem in text mode. In graphics 
mode, you'll have to make a detour around code 9 (see 
below). 


When the newer and supposedly improved TRSDOS 6.2 
operating system is used with the Model 4 instead of its 
original TRSDOS 6.0 system, a hex dump reveals what may 
be a new record for the number of trouble codes—not only 
code 9, but codes 10, 13, 112, and 184 as well! 


Many computers, including the IBM PC, Apple IIs, and 
Epson HX-20, automatically add and send carriage-return 
(OD) and line-feed (0A) codes at regular intervals (e.g., every 
80th code) during a stream of codes from a BASIC program. 
Obviously these are unwanted in graphic printing, but none- 
theless they still are sent by the computer and printed in 
graphic mode as dot codes 13 and 10, interrupting what- 
ever else you were trying to print. This can be revealed by a 
simple repeat command such as LPRINT STRING$(245,DC). 
As we'll see, there’s a ready cure for this ailment provided 
by those BASICs that have the WIDTH statement. 
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TABLE 3-4 
Hex Dump for the TRS-80 Models 4 and 100 


o2 03 04 O5 06 O7 O8 20 20 20 20 20 20 20 20 OA 
OF 10 11 12 13 #14 #15 16 #17 «#18 #19 1B 1C 1D #1E o1F 
24 25 26 27 28 29 2A 2B 2C 2D 2E 2F 30 Si 32 33 
38 #39 SA 3B SC 3D 3E SF 40 41 42 43 44 45 46 47 
4C 4D 4€ 4F 50 51 52 53 54 55 56 57 58 59 SA SB 
60 61 62 63 64 65 66 67 68 69 6A 6B 6C 6D 6E 6&F 
74 75 76 77 78 79 7A 7B 70 7D 7E 7F 80 81 82 83 
88 89 8A 8B 8C 8D SE SF 90 91 92 93 94 9 96 G7 
9C 9D 9E 9F AO AL AZ AS A4 AS ASG AT AB AD AA AB 
BO Bil B2 BS B4 BS Bé B7 BSB BY BA BB BC BD BE BF 
c4 cS C46 C7 c8 c9 CA CB cC CD CE CF DO Di D2 DS 
D8 D9 DA DB DC DD DE DF £0 El E2 ES E4 ES E6 E77 
EC ED EE EF FO Fl F2 F3 F& FS F& FF FSB FO FA FB 


It’s a good bet that nearly every microcomputer has at least 
one trouble code. This review doesn’t cover them all. 


Remedies. The good news is that there are solutions to al- 
most any of the problems generated by trouble codes. The 
remedies take several different forms, and they have to be 
tailored to the computer or computer-printer combination. 
The alternatives include using more direct output commands 
than LPRINT such as POKE, OUT, or PRINT#, changing 
the computer’s printer driver, extending WIDTH, and intro- 
ducing detours in the BASIC programs. 

There’s more to the LPRINT command than meets the eye. 
To the computer it is several instructions, including such 
things as converting certain codes to produce line feeds on 
the printer and checking to make sure the printer is ready to 
receive data before any are sent to it. 

Some of our problems with certain codes can be avoided if 
we bypass the LPRINT command and use simpler, more di- 
rect commands. For years now, TRS-80 Model I users have 
solved the problem with codes 0, 10, 11, and 12 by abandon- 
ing LPRINT in favor of the more direct POKE command. 
POKE will send any code to the printer without being inter- 
cepted, converted, or coupled with another code. 

Unfortunately, it will send the code even when the printer 
is not ready to receive one. To avoid losing data from this, a 
PEEK at the printer’s ready-or-not status must come before 
the POKE. The usual form for the Model I is: 


100 IF PEEK(14312) <> 63 THEN GOTO 100 ELSE 
POKE 14312,DC 


oc 
21 
35 
ag 
5D 
71 
85 
99 
AD 
C1 
DS 
E9 
FD 
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where 14312 is the RAM address for the printer’s status and 
outgoing codes, 63 the printer’s indication of “ready to re- 
ceive, and DC is a dot code to be sent. 

With the TRS-80 Model III, the Model I’s PEEK-and- 
POKE solution can be used, or an analogous INP-and-OUT 
method suggested by David Lien in Epson’s MX-80 manual: 


100 IF INP(251) <> bl THEN GOTO 100 ELSE oUT 
251,DC 


But Bob Boothe (in 80 Micro, March 1982) has come up 
with an even better solution for both models—changing their 
printer drivers. For the Model I his subroutine for doing this 
is given in program 3-5. 


PROGRAM 3-5. PRNTDRVR. _ Boothe’s printer driver for the 
TRS-80 Model I. 


30080 
38005 
30018 
30020 
30038 
30040 
38050 
58062 
300708 
38080 
30890 
301080 
301108 
381208 
38199 


"PROGRAM 3-5: "PRNTDRVR/SUB",A -- BOOTHE’S PRINTER DRIVER FOR MODEL I 


"Presented by Bob Boothe (80 Micro, March 1992) 
DATA 21E837CB7E20FC211100397ED3FBC9 
READ Z$: V=16571 
FOR W=1 TO LEN(Z$) STEP 2 
Z=ASC(MID$(Z$,W,1))-48 
IF Z>9 THEN Z=7-7 
U=ASC(MID$(Z$,W+1,1))-48 
IF U>9 THEN U=U-7 
POKE V,Z#¥16+U 
V=V+1 
NEXT W 
POKE 16422, 1987 
POKE 16423, 64 
RETURN 


For the Model III only one small change is needed: sub- 
stitute 32E387 for D3FB near the end of line 30010 of the 
Model I program. Once the subroutine is loaded (while 
you re in BASIC) and inserted (use GOSUB 30000), it doesn’t 
need to be repeated for any additional programs in the ses- 
sion unless you turn the computer off. With the printer driver 
thus changed, you can use LPRINT to your heart’s content. 
And remember to thank David Kater’s Epson FX-80 manual 
for presenting this solution, too. 

We have no programs to offer here for changing printer 
drivers on Apple computers, but still another hero, Jerry 
Bialzik of the electronics shop in the Psychology Department 
of the University of Wisconsin at Madison, has come to the 
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rescue of Apple Ile users. Confronted with the dual problem 
of the constant printing by the 128 pin with dot codes under 
128 and phantom prints before and after a programmed se- 
quence of dot patterns, he took little more than five minutes 
to find the Ile’s memory addresses for detecting the Image- 
writer's ready signal and for sending it data, and came up 
with the following solution: 


100 PR#l 
110 IF PEEK(4930S) <> 16 THEN GOTO 110 
120 POKE 49304,DC 


With this alternative to the PRINT command, both prob- 
lems vanished—the whole range of DCs from 1 to 255 
printed dot patterns correctly, and there were no phantom 
prints. In certain Applesoft programs on the Ile, however, 
unwanted prints before a run of dot patterns may still show 
up, but they can apparently be eliminated by placing PRINT 
CHR$(24); before the PEEK and POKE statements, which 
clears the printer’s buffer. (Program 6-4 is a case in point.) As 
with the TRS-80 Models I and III before Boothe’s driver 
change came into use, the PEEK-and-POKE method may be 
the only reliable way of sending dot codes in bit-image 
graphics with this system. Sending control codes with 
PRINT seems to pose no problems, however. 

Kater (in the Epson FX-80 manual) had already advocated 
this solution for the Apple II+, except the address for PEEK 
is 49601 and for POKE is 49296. For the IIc, the addresses 
are the same as for the IIe, assuming the Super Serial inter- 
face is used with the Imagewriter. 

Still another solution, most applicable with computers hav- 
ing a strong BASIC such as the IBM PC, uses PRINT# in- 
stead of LPRINT. To avoid unwanted line feeds with 
carriage returns and periodic carriage returns interrupting 
print lines, PRINT# has to be used following OPEN and 
WIDTH statements. For the IBM, the proper form is: 


L100 OPEN "LPT1:" AS #1 
L110 WIDTH #1, 255 
L120 PRINT#1,DC 


where LPT] refers to the line printer, #1 to a buffer, and DC 
to a dot code. The middle line sets the printer's width to 
“infinity” (the highest value possible), to prevent carriage 
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returns in the midst of print lines. With PRINT#1 instead of 
LPRINT, a line feed will no longer follow carriage returns 
when they are. programmed to occur. 

With other systems, most of which probably won’t have the 
PRINT# alternative, you'd be wise to try PEEK-and-POKE 
first, and if that doesn’t work, or you can’t find the addresses, 
you can fish around for INP and OUT ports (there are only 
255 ports to search through on many computers). If these 
solutions fail, you can hope that a real programmer will pub- 
lish an improved printer driver for your system, or use de- 
tours. 


Detours in BASIC. The last-resort strategy is not to get rid 
of the trouble codes, but to detour around them with some 
small changes in your BASIC program. Sometimes simply 
incrementing or decrementing a trouble code whenever it 
appears will work, in the sense of producing such a tiny 
change in the position of a print that it is unnoticeable. This 
usually won't hurt if your bit-image printing is done in the 
higher densities. On the TRS-80 Models 4 and 100, for ex- 
ample, the problems with CHR$(9) can be dodged by insert- 
ing this detour into the program: 


L100 IP Ne=9 THEN Ne=6 


On the Model III (if Boothe’s printer-driver change were 
not a better way), the detour might take the form: 


100 IP Ne=10 OR Ne=le OR Ne=5b THEN Ne=Ne+] 


If the trouble code is intended to be a dot-pattern code 
instead of a positioning code (direct or repeat-blank), then 
replacing it with another code having a similar pattern makes 
more sense than incrementing, for example, IF DC=12 THEN 
DC=4. 

If you're determined to get a dot print in exactly the correct 
position, you can increment and then backspace. With half- 
dot-column backspacing on the TRS-80s, two backspaces will 
correct for increasing the value of the direct-positioning code 
by one. This kind of detour takes the following form: 


100 BS$=CHRS$(30)+CHRS$(&)+CHRS$(2)+CHRS(18) 
"BACKSPACE STRING 
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110 IF Ne=10 OR Ne=lce OR Ne=96 THEN Z=Ne+l: 
LPRINT CHRS$(2?);CHRS(1b6);CHRS(N1);CHRS(Z); 
BS$;CHRS(DC);:GOTO 130 

120 LPRINT CHRS(27);CHRS(1b);CHRS(N1L); 
CHRS(Ne);CHRS(DC); 

1430 (program continues) 


Notice that a new variable, Z, is introduced here when the 
trouble codes (10, 12, or 96) occur, and it is Z that is set equal 
to N2+1 instead of N2 itself being raised by one. That leaves 
the original values of N2 intact in case those values are 
needed elsewhere in the program. The detour positioning 
command (line 110) uses Z as N2 in its 27+16+N1+N2 
sequence together with the backspace correction defined in 
line 100. The combination of forward and backward move- 
ment of the printhead puts the dot code (DC) right where 
you want it for the utmost accuracy. 

Tandy’s 8+N form of backspace can also be used in deal- 
ing with trouble codes in repeat printing, but that depends 
to some extent on what kind of dot pattern is being repeated. 
Usually it’ll be better to decrease rather than increase the 
number of repetitions, and then add a single additional print 
of the desired dot pattern (or blank) to make up the differ- 
ence, instead of incrementing and then backspacing. When 
using the 28+N repeat command, for example, the detour 
could take this form: 


100 IF N=10 OR N=le OR N=96 THEN LPRINT 
CHRS$S (28) ;CHRS(N-1);CHRS(DC);: 
GOTO 1c0 
110 LPRINT CHRS$(28);CHRS(N);CHRS(DC); 
120 (program continues) 


But watch out: This detour won't work on the Radio Shack 
printers if the trouble code is 0 (as with the Model I) or 1, 
because the decrementing would produce a negative or 0 
value, respectively. The negative value (—1) would trigger 
an “illegal function” error, and 0 would cause 255 repetitions 
instead of none. 

Once you make it through the minefield of trouble codes, 
it is possible for graphics programming on the dot-matrix 
printer to go smoothly and even be rewarding instead of pun- 
ishing. But if you've gathered from this section that it may 
take a little luck at first, you’ve gotten the message. 


4 
The Bit-Image Building Blocks 


WITH a dot-matrix printer we can build a huge variety of 
graphic creations out of dots or dot patterns. These are the 
basic building blocks we have at our disposal in bit graphics, 
and they are all we need for building lines, curves, figures, 
symbols, alphabets, graphs—even maps and pictures. 


The Binary Dot Codes 


Every dot pattern has a code number called a dot code. For 
each time that we want the printer’s printhead to make a 
mark on the paper, we can choose any or all of its pins to fire. 
By selecting the right dot code we can fire any combination 
of the pins we want to. 

How many combinations are there? If we can control eight 
pins, as on the IBM, Epson, and Apple Imagewriter printers, 
we have a selection among 256 different patterns. Printers 
with seven addressable pins, such as the Tandy printers, 
have 128 patterns. We’ll often have reasons to use only seven 
pins even on the eight-pin printers, so it’s a good idea to 
learn how the dot codes are arranged on both sizes. 


The IBM-Epson dot codes. Figure 4-1 displays all 256 dot 
patterns and their codes for printers in the IBM-Epson fam- 
ily. The code numbers for these printers are given just above 
each dot pattern in this figure, in the rows labeled EPSON 
CODE. Below the patterns in the upper half of the figure are 
three more rows of numbers, the first and third of which tell 
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IBM-EPSON CODES 


7W000eeeee 
GH 00000000 
% 000 eCC08@ 
B000@e800 
rl000e@e008@ 
GF 000ee080 
0000008 
4100000000 
Y000C0eO@ 
%O000e0e@0 
qW000e0e0e 
00080800 
1 000@0008@ 
2 O000e0000 
Y00080008 
300080000 
700000008 
4100000000 
mH O000CC0® 
400000000 
00000008 
S 00000000 
mHO000G00®e 
a 00008000 
noo000eee@ 
2100000060 
m 00000008 
«700000800 
m0000000@ 
00000000 
+A00000008 


a 00000000 
ggqgera= 


{*) 


AJ AK AL AM AN AO AP AQ AR AS AT AU AV 


112248 8 136 72 260 48 169 104 232 24 152 88 216 56 164 120 248 


AE AF AG AH Al 


84 248 132 196 164 228 146 212 188 244 148 284 172 236 156 228 188 252 


® 128 64 192 32 168 96 224 16 144 88 288 46 176 
AWB Al AZ AB AS AS AS AT AB AD AA AB AC AD 


128 192 168 224 144 288 176 248 136 288 168 232 152 2161 


: 


DOUBLE-HEX$: 
TRS-8O CODE: 


APPLE CODE: 


300000000 
Y 00000000 
Wo03@eeeoe 
0000800 
7} 00CCCOOO 
00000000 
H00@e80086 
3 00ee8000 
100000000 
2100000000 
100000080 
§}00e@e0@00 
W00ee000e 
300880000 
00880008 
B%00ee@0000 
rlO0C0OCO®@ 
30040e0eee0 
Hoo@eceece 
2100000000 
HMO00C0C0O®@ 
% 00000000 
Wo0V@0e00e 
$00e@00000 
HO0C00OC@ 
W00e00ee@d 
r00e00e0e 
900800000 
WH 00e@00008 
#1 00@00000 
Woo@ecd0ce 
{1 00@00000 


BU BK BL BM BN BO BP BQ BR BS BT BU BV 


32 180116 244 12 148 76 204 44 172 108 2346 28 156 92 220 68 168 124 252 
8 186 250 134 198 166 230 158 214 182 246 142 286 174 238 158 222 198 254 


BC BD BE BF BG BH BI! 


132 68 196 36 164 1868 226 2@ 148 84 212 
Ba Bi B2 B3 BS BS Bé B7 BE BF BA BB 
138 19% 162 226 146 218 178 242 138 282 178 234 154 21 


a 


DOUBLE -HEX$: 
TRS-80 CODE: 


APPLE CODE: 


0e0eeeee 
Z| 00000000 
1000000008 
00000000 
5100000000 
800008000 
2100008000 
B0e@0e@@000 
00000000 
300000000 
0e0e0e0e 
g]0@000000 
OeC0C00C®@ 
] 0e@0@0000 
gd oe0e000e 
8 0@0@0000 
100008008 
H00000080 
MN 0e000008@ 
4 0e00e000 
T10e@000008 
2108000000 
1 0e@000008 
M0e@008000 
0e000000 
BH 08000000 
eT] 0e@000008 
BH Oe000800 
1 Oe0000C® 
200000000 
Woe00000e 


$]00000000 
OZ Gosta= 


= 


ON CO 


9 133 197 165 229 149 213 191 245 141 205 £73 237 157 221 189 253 


129 193 161 225 145 269 177 241 137 201 169 233 153 217 185 24 


cB Ci 


TRS-8O CODE: 


DOUBLE —-HEX®? 


APPLE CODE: 


SE 
oeeeeeeo 
Toeeeeece 
fj o@eeeeoo 
Oe eeecee 
ff oeeeeoed 
oe eeeoce 
R0eeee000 
“j oeeecece 
oeeeceeo 
sj o@eecece 
J oeeeceoo 
Yoeesccee 
J oeeeooec 
Foeeecooe 
J o@@e0000 
joeececece 
4 0ee00ee0 
B0@e0ee08 
B 00000000 
Gl 0@e0e0ee 
J o@e0ec0eo 
Goeeceoce 
J o@e0e00o 
Gl o@e00eee 
100000000 
gq o@ee0cece 
BH 0@e00000 
F100000008 
200800000 
r0e@e00008 


gj 0@e@00000 
Seger 


<= 


87 251 135 199 167 231 151 215 183 247 143 207 175 239 159 223 191 255 


oe 


D@ D1 D2 D3 D4 DS Dé D7 DB DF DA DB DC OD 


131 195 163 227 147 211 179 243 139 203 171 233 155 2191 


TRS-6O CODE: 


DOUBLE-HEX8: 


APPLE CODE: 


7] 0000000 
7 e00eeeeo 
7] 00000008 
A eocceeeoo 
i e0cee0ee 
fj eoceeoed 
ri eoo@ecce 
*j@0008000 
7 eccecece 
A e0000ee0 
| e008@0008 
qe@00e@0000 
@| eo0e00ee 
qeo0e00e0 
qGeoc4eccce 
4] e00@0000 
J eocceeee 
Sj eo000eeeo 
qj eocc9eece 
{4 @000ee00 
A] @000000@ 
Fye000e0e0 
Fl @000e008 
i] @0000000 
Fiecccceee 
#] 0000000 
Hy e@0000008 
FL @0000000 
7] e0000008 
A @©0000000 
RJ @0000000 
Re@0000000 


SZHUSAVA= 


FE GF EG EH EI EJ EK EL &mM EN EO EP EQ ER ES ET eu Ev 


1 129 65 193 33 161 97 225 17 145 B1 289 49 177113241 9 137 73 201 41 169 105 233 25 153 89 217 57 165 121 249 
E@ €1 €2 E3 E4 ES E6 E7 EB ED EA EB EC ED 


DOUBLE-HE X: 


APPLE CODE: 


a] Coe eeee 
G1 e0eeeeeo 
Bl eceeeece 
BH @0000000 
a e0eee0ee 
| @0000000 
GB eceeecce 
d| e0000000 
dq eceecece 
 e0eeceeo 
a e0eeoeoe 
BH e00e0000 
Rl ec0eeccee 
Rl eoeeoced 
Rl eceeccce 
Se oVeeo00o 
RK ec0ec0ecece 
ql eoecVeeeo 
Rl ececeece 
RN eoe0eeoo 
A ecececes 
Rl e0e0e0e0 
] @0000000 
YJ e0e00000 
a eoeccece 
{J e0e00eed 
Jececcece 
3 e0000000 
GJ ec0eccoee 
Ye0000000 
J eoeoooce 
GY eoeoocoo 


OFHVoraa 


5 333 69 197 37 165 10% 229 21 149 BS 213 53 161117 245 13 141 77 205 45 173109 237 29 157 93 221 61 189 125 253 


ce fl F2 F3 F4 FS FS F7 FB FO FA FB FC FD FE FF FG FH FI FJ FK FL FM FW FO FP FQ FR FS FT FU FV 


DOUBLE -HEX$: 


APPLE CODES 


Rl eececeee 
i ee0eeeed 
ql eeoeeece 
Ri @0000000 
a eeceecee 
= e0000000 
eeceecce 
|e 0000000 
We roecece 
<j ee0eoeeo 
Wy eeoe0e0e 
nj ee000e00 
eececcee 
Sj eece00ed 
BH ee0e00ce 
B @e000000 
| OC00000 
geecceeeo 
GF eecceece 
§ @0000000 
BH ee000000 
4 ee000000 
a ee00e0ce 
8 @@000000 
3] @e000000 
1 @e000ee0 
o|@@ 000008 
3] @0600000 
Bl eeocccee 
g| ee 000000 
G] @©@000000 


§] #000000 
Ss Hossa 


- 


(e] 


GN GO GP GQ GR GS GT GU 6V 


7239 27 195 91 219 59 197 123 251 


3 131 67 195 35 163 99 227 19 147 O3 211 51 179 115 2 


G@ Gi G2 G3 G4 GS G6 G7 GB G9 GA GB GC GD 


DOUBLE -HEXS: 


APPLE CODE! 


i oeeceece 
gl eeeeeeed 
oeeeeeve 
neeeeeeo° 
qeeeeeoes 
qeeeeeoeo 
gy] eee eecoe 
a 000000 
a] oe 00008 
a eeeeoeeo 
q eeeecece 
gj eeeeoeoo 
q eeeeoces 
q] eeeeooed 
qj eeeeooce 
gq eeee0000 
pl eooceeece 
Heeeceeeo 
fl @eeoeece 
qeeeoeeod 
fi eeececee 
a oe 00000 
pi eeececce 
py eeeoeo0o 
Weoeeoneee 
Fe ee00eeo 
a ee eooeve 
| ee e00000 
aj ee 000ee 
qeee000eo 
Gf eeeo000e 


the Apple 
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lies and IBM-Epson double-hexadecimal (DHX$) 


codes are shown underneath the patterns. 


1 


ters in the IBM-Epson family. Codes for pr 


7 135 71 199 39 167 103231 23 151 B7 215 95 163119247 15 143 79 207 47 175 111 239 31 159 95 223 63 191 127 255 


HO H1 H2 HS HA H3 H6 H7 H@ HO HA HB HC HD HE HF HG HH HI HJ HK HL HAM HN HO HP HQ HR HS HT HU Hv 


FIGURE 4-1. The 256 dot patterns available in bit-graphics mode 


with prin 
and Tandy fam 


DOUBLE -HE XS: 


APPLE CODE: 
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what codes the same dot patterns have on printers in the 
Apple and Tandy families. Between these APPLE and TRS- 
80 rows is still another set of codes, called DOUBLE-HEX$ 
(for double hexadecimal) codes, a shorthand system that will 
be explained later. These three rows can be used to translate 
the IBM-Epson codes. In the bottom half of the table, there 
are only two rows under the patterns because the TRS-80 
printers are limited to seven-dot patterns. 

Notice several important things about the sequence of 256 
dot patterns. First, they are numbered in an orderly way, 
from 0 (no dots) to 255 (all eight dots) in the IBM-Epson 
system. Although it doesn’t appear so in figure 4-1, they are 
also numbered in an orderly way in the Apple and TRS-80 
systems, but remember, those systems start numbering from 
the top, whereas the IBM-Epsons start at the bottom. 

Notice also how the patterns change as you go across and 
down the chart of patterns and codes. In the first 32 patterns 
(top section), we have the blank code (0) and then only the 
bottom pin (1) firing. Moving to the right, we see that bottom 
pin joined by the second, third, fourth, and fifth pins from 
the bottom, so that by the time we reach code 31, the bottom 
five pins are all printing a dot. Then notice that the order of 
these five pins is repeated in each of the other seven sections 
of the chart. By the time we get to the bottom section (codes 
224 to 255), the order of the bottom five pins is combined 
with all three top pins. When we reach code 255 (all eight 
dots), we’ve used up all the possible combinations. 

This is a standard binary sequence—how a computer 
counts from 0 to 255 in binary code. It helps a lot to remem- 
ber this when we get to using these dot patterns in graphics. 
The “bi” in “binary” stands for “two” (the number 2), the 
same meaning that “bi” has in “biplane” or “biweekly.” 
Counting in binary simply means counting by twos and com- 
binations of twos squared, cubed, and raised to higher pow- 
ers. What it takes to count to 128 in binary is suggested by: 


2° = 1 24 = 16 
2'= 2 2° = 32 
22=4 ° = 64 
3= 68 2’ = 128 


It helps even more in programming to label the pins in 
binary fashion. Notice, to the left of the dot patterns in figure 
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4-1, that the top pin is labeled 128, the second pin 64, the 
third pin 32, and so on, down to the 1 pin at the bottom. The 
designers of the printer would call the fifth pin from the top 
“the 16 pin” instead of “pin 5.” Getting into the habit of 
calling the pins by their binary labels (“the 64 pin,” “the 4 
pin,” etc.) makes it much easier to work out the codes for a 
drawing or graph. 

In ordinary arithmetic there are usually several different 
combinations of numbers that can add to the same total. For 
example, a total of 15 can be the result of adding 8, 6, and 1 
or of adding 11, 2, and 2 or other combinations. In the bi- 
nary counting system the rules are set up so that a total can 
only be reached in a single way. That way, each total stands 
for a unique combination of ingredients. 

The first rule says that the ingredients must be whole- 
number powers of two (such as 2°, 28, 24, etc.). The total of 
10, for example, can only be made up of the combination of 
8 and 2, not by 5 and 5, or 7 and 3, because the latter are not 
whole-number powers of two. This means we have to make 
up all of the totals from 0 to 255 out of the numbers 1, 2, 4, 8, 
16, 32, 64, and 128. 

A second rule is that any one of these numbers can only be 
used once in making up any total. The sum of 22, for exam- 
ple, must come from 16 + 4 + 2, not from 16 + 2+ 2 + 2 
or any other combination. 

This is just the perfect arrangement to have for numbering 
our dot patterns. With the pins of the printhead numbered in 
binary fashion, any code number from 0 to 255 that is as- 
signed to a dot pattern will tell us precisely which combina- 
tion of dots will be printed by that dot code in a single print. 
Thus, if the dot code is 20, only the firing of the 4 pin and the 
16 (third and fifth from the bottom) will occur; no other com- 
bination of the numbers 1, 2, 4, 8, 16, 32, 64, or 128 used 
singly will add to 20. If the code number is 241, the only 
combination is 1 + 16 + 32 + 64 + 128, meaning that the 
bottom pin and the top four pins will print. 

When you are using these code numbers in programming 
a graph, you usually won’t be asking yourself such questions 
as, “Which pins print with code 223?” The question is more 
likely to be the other way around: “What code number do I 
need for printing the top and bottom pins?” (To make the 
sides of a bar in a bar graph, for instance.) The binary system 
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gives you an easy way to find the code number without even 
looking at a chart like figure 4-1—just add the pin numbers. 
For the top and bottom dots, that would be 128 + 1 = 199. 

So if you've got a lot of coding to do and you re stranded 
somewhere without your code chart—on a life raft in the 
North Atlantic, perhaps—there’s nothing to worry about; just 
use simple arithmetic. 


The Apple codes. In figure 4-2 the dot codes for the Apple- 
family printers are presented. Here we have 256 patterns 
numbered from the top instead of the bottom, but otherwise 
there are no important differences between figures 4-1 and 
4-2. The numbering from the top makes the Apple codes 
exact mirror images of the IBM-Epson codes. Code 13 in 
figure 4-2, for example, fires the first, third, and fourth pins 
from the top on the Imagewriter, whereas in figure 4-1 you 
can see that code 13 fires the first, third, and fourth pins from 
the bottom on IBM-Epson printers. This makes the sequence 
of codes in the first row under the dot patterns the same in 
both figures, and thus either figure can be used to convert 
Apple codes to Epson codes or vice versa. A more important 
use of these conversions is likely to be when you are specif- 
ically interested in mirror-image coding rather than in con- 
verting programs from one printer to another. 

Again, only the upper half of the Apple chart contains TRS- 
80 codes. But notice now that the TRS-80 codes are in order 
(from 128 to 255) as well as the Apple codes—both printer 
types are “low bit up,” that is, their dot patterns number from 
the top. This means that to convert any Apple dot code in the 
range of 0 to 127 to a TRS-80 code, just add 128. 

Double-hexadecimal codes are also provided by figure 4-2 
—codes AO through HV for Apple printers and AO through 
DV for TRS-80 printers. Don’t make the mistake of thinking 
that these double-hex codes print the same patterns as the 
double-hex codes in figure 4-1. What will happen, as a matter 
of fact, is that the Apple double-hex codes will print mirror 
images of the IBM-Epson double-hex codes. 

We @re indebted (again) to Francis Kalinowski (SO Micro, 
November 1983) for the double-hex shorthand system. In 
programs involving many hundreds of dot codes, as with his 
four-color drawings mentioned in chapter 1, there is too 
much memory consumed and too much typing to tolerate if 


APPLE CODES 


pl e@e0ee0000 
$1 00@00@0000 
g] 0000000 
21 000@8000 
rl @e0ee@000 
7 0e0ee@000 
GY e00ee000 
£] 00008000 
ry e@e@e@08e000 
Y0e@@0@000 
a e@0000000 
3] 00@08000 
7] @0@000000 
100000000 
I e0008@000 
400008000 
3 ©000@0000 
4 00e@00000 
ry @0e@e@0000 
400080000 
e@e00@0000 
4} 0e@0e@0000 
e1@0080000 
am 00080000 
nl @@@00000 
3 0@@00000 
nm @00@00000 
#600@00000 
ri @@000000 
uw 0€@000000 
4 @0000000 
a 00000000 


aAN*tOGONTO 


HMOw 
- 


46 
AJ AK AL AM AN AO AP AQ AR AS AT AU A 


8 149 158 151 152 153 154 155 156 157 156 159 


224 16 144 88 288 48 176112248 GB 136 72 288 40 149 104 232 24 152 88 216 56 184 128 2 


A7 AB AP AA AB AC AD AE AF AG AH AI 


£35 136 137 138 139 140 142 142 143 144 145 146 147 14 


@ 128 64 192 32 168 96 
AWB Al AZ AZ AL AS A 


128 129 130 131 132 133 134 


TRS-60 CODE: 


1 @0000000 
Y0e000000 
Wd e0eeee00 
G 00000000 
00000000 
00000000 
rle@00eee00 
2700000000 
1 @0000000 
£1 00000000 
4 @0000000 
300000800 
wi e@e@00e@e8@00 
S}00008000 
tL e@000ee@00 
B0000e8@00 
Rl e@ee0e0000 
9300000000 
00000000 
2100000000 
1 @@000000 
$0@000000 
1 e0000000 
300000800 
7} @@e@00000 
B0@@00000 
1 @0000000 
900000000 
fLe@e@000800 
fl o@0008@00 
mH e@0000800 
{00000800 


=UTOONTES 
oe 
< 


=—M™Onw 
-“~ 


BI BJ BK BL BM BN BO BP BQ BR BS BT BU BV 
75 176 177 178 179 168 181 162 183 164 165 186 1987 168 189 198 191 


S2 180116 244 12 140 76 204 44 172 188 236 26 156 92 228 698 168 124 252 


BC BD BE BF BG BH 


132 68 196 36 164 188228 20 148 84 212 


BS Bl B2 B3 B& BS Bé B7 BS BY BA BB 


168 161 162 163 164 165 166 167 168 169 178 171 172 173.1741 


4 


TRS-80 CODE: 


EPSON CODE: 
DOUBLE -HEX$: 


00000000 
Z| 0000000 
900000000 
900000000 
s|@e@000000 
$1 00000000 
g1@0000000 
B 0008000 
bl @0000000 
B0ee0edeo 
Ge@0000000 
$100000000 
1 @0000000 
00000000 
ql e@000e000 
900008000 
2] 00000000 
A0@@80000 
Me@0ee0000 
37 00ee0000 
1 @0@000000 
#1000000 
mH e00e0000 
00000000 
1 @e@e@00000 
200000000 
Fe@0e@00000 
HO0e000e0 
rh] @@ 000000 
Yo0e000000 
WW @0000000 
400000000 


=NFOONIO 
oe 


=OOW 
- 


Cl] CJ CK CL cM CN CO CP cq CR cS CT CU Cv 


242 10 138 74 282 42 178 186 234 26 154 98 218 58 186 122 250 
207 288 209 210 211 212 213 214 215 216 217 218 219 228 221 222 223 


cF CG CH 


2 138 66 194 34 162 98 226 1B 146 82 218 58 178114 


c@ ci c2 C3 C& CS C& C7 CB CF CA CB CC CD CE 


192 193 194 195 196 197 198 199 288 281 282 203 204 285 206 


TRS-8O CODE: 


A] @@ 000000 
GJ ceeeeeec 
fl eoeeeeec 
| cc eeeeeo 
Rl @@ 000000 
fl 0@000000 
a] ©0000000 
R 00000000 
2] eeeceeec 
“| 0@eceeeo 
t] ececeeeo 
J ooeceeeo 
eecceeeo 
J oecceeeo 
00000000 
]0000eee0 
~ eeeeceeo 
J oeeeceeo 
Bl e©0000000 
Boc9eeceeo 
G| @©0000000 
J 00000000 
§| e0000000 
S| 00000000 
5] ©0000000 
8100000000 
a] e0e00ee0 
800000000 
21 0e000000 
F,0@000000 
rl e@00000@0 
g1 00000000 


SUT OCR DS 
-_ 


< 


251 252 253 254 255 


DQ 


238 239 248 241 242 243 244 245 246 247 248 249 258 


DD DE DF DG DH DI DJ DK DL DM DN DO DP 


182 118 246 14 142 78 286 46 174118238 38 158 974 


& 134 78 196 38 166 162 238 22 158 86 214 54 
224 225 226 227 228 229 238 231 232 233 234 235 236 237 


D@ Di D2 D3 D4 DS D& D7 DS DF DA DB DC 


2 


TRS-GO CODE: 


7] @ee00000 
H0e@ee000 
ri e@0eee00e 
700000000 
Feereecce 
fl o@0@e00e 
“i eocVeecce 
4100008008 
rl eeececce 
7] 0@e0@00e 
s|@0@0e008 
200000000 
| eecoe0ce 
{| o@o0e@0ce 
Geccce0ce 
q]oo00@008 
qeeeeccce 
gl o@eeocce 
qeoeeccce 
| oo@e000e 
ml @@0e@0000 
Fl O®O@OO0® 
rl @00@0000 
| 00000008 
Hleeecocce 
| o@eo000e 
Fh] @0@00008 
FL00e@00008 
Aj e@e000008 
A 0®000000 
§{@0000000 
00000008 


4 GONE 
ci OOSoq 
- 


233 25 153 89 217 57 185 121 249 
EN EO EP E€Q ER ES ET EU EV 


129 65 193 33 161 97 225 17 145 81 289 49 177113241 9 137 73 201 41 169 185 
E@ €1 E2 ES £4 ES ES E7 EB EF EA EB EC ED EE EF EG EH EI EJ EK EL EM 


1 


: 


DOUBLE-HEXS: 


EPSON CODE: 


a] @eeeeere 
o]O@ C8008 
Gl @o@eeece 
B]00eee000 
| @@ 000008 
S| 0@0@ee08 
S| @00eee08 
| 00000008 
a] @ee00008 
a] 00000008 
a @0e00008 
300000008 
Rl @ecoeece 
Rl O®00@e0® 
Rl eocceece 
Sl oocceece 
Rl eeeecece 
S| o@eeoece 
Rl @0e@e0ece 
Nooeecece 
Reececece 
Rlo@cecece 
0000000 
900000008 
0000000 
{J oeeccece 
GJ eoeccece 
J 00@00e0e 
00000008 
300000008 
3g e000000e 
¥ 00000008 


2 bOaSE 
=NtTHENTS 
-_ 


FL FM FW FO FP FQ FR FS FT FU FV 


5 133 69 197 37 165 101 229 21 149 BS 213 53 181117245 13 141 77 285 45 173 189 237 29 157 93 221 61 1869 125 253 


FO Fl F2 F3 F4 FS Fe F7 FB FO FA FB FC FD FE FF FG FH FI FJ FK 


DOUBLE —-HEX8: 


EPSON CODE: 


qeeeeeces 
Nl o@eeeces 
ql 00000000 
So0V@eecee 
2] ee0ee0ee 
00000000 
sj ecc4eecee 
s]000 00000 
al @eececee 
o@eoecee 
a] @0@ 00008 
ooececee 
qeecceces 
00000000 
8100000000 
B0000@0C® 
al eeeecrces 
§ 00000000 
Receeccee 
GJ 00000000 
00000000 
G4 00000000 
a eooe0cee 
Boo0eccee 
3] @ee 00000 
$1 00@00000 
o|@0@00008 
3100800000 
Bl ee0000ee 
g]0@00000@ 
5] @0000000 
§] 00000000 


Dee tag 
at Neath Be 
- 


AP 


GK GL GM GN GO GP GQ GR GS GT 6G 6V 


J 131 67 195 35 163 99 227 19 147 B3 211 $1 279115 243 11 139 75 203 43 171 187 235 27 155 91 219 59 187 123 251 


6@ Gi G2 G3 G64 GS GS G7 GB 69 GA GB GC GD GE GF GG GH GI GJ 


: 


DOUBLE -HEXS: 


EPSON CODE: 


yeeseeees 
foeeeeeee 
qeceseses 
q Cee eeee 
q{eeceeeee 
q Ceo eeeee 
zeoceeeee 
gq] COC eeeee 
g| Cee ceeee 
gq Ooo oeeee 
<q] Coe ceeee 
qj 00 @ 00000 
q] Ce0 08008 
q] Ceo ceeee 
eco ceeee 
q O00 eee 
pl ee CC0OOS 
Oe ee Cees 
pl Coe eoeee 
Gf ooeecece 
fj eececece 
qj oe 000s 
e00e0eee 
oo0e0eee 
eee o0eee 
RO ee COeCe 
Rj Coe oceee 
BOOe00 eee 
Rl eeocoeee 
A ded 
qeoccceee 
4100000008 


ANTOOGNTOD 
aA w 
- 


HN HO HP HQ HR HS HT HU Hv 


The 256 dot patterns available with printers in the 


7 135 71 199 39 167 103231 23 151 67 215 53 183119247 15 143 79 287 47 173 111 239 31 159 95 223 63 191 127 255 


H® Hi H2 H3 H4& HS H& H7 HB HI HA HB HC HD HE HF HG HH HI HJ HK Hi HM 


FIGURE 4-2. 
Apple family. IBM-Epson and TRS-80 codes and Apple double- 


hexadecimal codes are shown underneath the patterns. 


EPSON CODE: 
DOUBLE -HEX$S: 
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codes are sent to the printer in the normal LPRINT 
CHR$(DC) way. Kalinowski’s system converts every 
CHR$(DC) to a two-character string. This is quite a saving, 
since every CHR$(DC) is seven, eight, or nine characters 
long (depending on whether DC, the dot code, is one, two, 
or three digits long). As you can see from the sequences in 
both figures, the naming of the codes is not like either the 
decimal or hexadecimal codes in the ASCII system. Every 32 
dot patterns, the first of the two characters (always a letter) 
changes (from A to B to C, etc.); for the second character, the 
first ten are numbered 0 to 9, and the last 22 are lettered A to 
V within each 32-pattern group. 

Converting from decimal dot codes to double-hex codes is 
fairly simple. After all variables beginning with A through H 
have been defined as string-type by a DEFSTR (A-H) state- 
ment at the beginning of the program, the two-character 
codes (AO, Al, AQ, etc.) are assigned, in order, to the decimal 
dot-codes. This can be done by a series of 256 simple defini- 
tions—all the way from AD=CHRS$(0) to HV=CHR$(255). It 
can also be done, less tediously, by a conversion program in 
BASIC, as we'll see in a later section on code conversions in 
general. 


TRS-80 dot-codes. Although we’ve already had two presen- 
tations of TRS-80 codes in the IBM-Epson and Apple charts, 
a third chart (figure 4-3) has been prepared to focus on these 
codes more clearly. In this chart the 128 TRS-80 codes rang- 
ing from code 128 to code 255 are given above each dot 
pattern. The first two rows underneath the patterns present 
the corresponding codes for the upper seven of the eight dots 
of Apple-type printers and the lower seven of the eight dots 
of IBM-Epson printers. The bottom row in each section of 
the chart, labeled TRS-80 B-W, shows what TRS-80 code is 
the black-to-white reversal code for each of the original TRS- 
80 codes. 

Each of the bottom three rows has an important relation- 
ship to the top row. The EPSON (1-64) row not only trans- 
lates the original TRS-80 codes into IBM-Epson dot codes 
but also gives the mirror-image TRS-80 code if 128 is added 
to each of those. The mirror-image codes we had in figures 4- 
1 and 4-2 had to do with eight-dot codes; here we are dealing 
with seven-dot codes. The APPLE (1-64) row gives not only 


TRS-80 CODES 


TRS -§0 CODE? 128 129 £39 131 132 133 134 135 136 137 138 139 149 143 142 143 544 145 146 1467 148 149 15@ 151 152 193 15% 159 t 457 158 139 
10 e@083@e@0 eC > @09CeO0OHSBF0 FFT GeO HOO HOU MUCUOUMOMUUOUCOHUUOUUOMmUhECUh HmUC OO F 
20200@6¢30 2808000 @P PT KTFHT FT FFF F0 FFT F&F HF Oo 8 @ 
1 5c oO 0oO OC oOeOm Om HOO OCOCOOCeO oO oO HOO OCUlUOOCCUOCUCU OCC HOC HOCUCLU HOUhHTLUOOUOUOHUOUO 
200000482739 780680 C GCP HHHKH TT OC FTFFTC FFF Fe & © @ 
Boo OOOO OOOO OOOOH OleOle OU OU OU OU OCU Oh OU Ohh HOH FH OF 
p> - S- = = SSE  OE = = CO ~ SC @ = > © © © © 9 = 
640 0 5 2 09 0 9 9 0 9 Pom © Eo TK © Eo TE > TK © SEE © TE © I © EE © EEE © IE OE OE" EE OE 

EPSON (1-64)! 9-64 32 96 16 G® 48 112 6 72 468 104 24 8B 56 120 4 6B 36 188 20 G4 SZ 116 12 76 44 188 28 92 68 124 

APPLE (1-64) @ 1 2 3 & 3 & 7 B FY 10 11 12 13 14 15 16 17 18 19 28 21 22 23 24 25 26 27 78 29 38 31 

TRE-BO BW! 255 254 253 252 251 250 249 248 247 246 24S 244 243 242 241 248 239 238 237 236 235 234 233 232 231 230 229 228 227 226 225 22% 

TRS-80 CODE: 168 161 162 163 164 165 166 167 168 169 170 174 172 173 174 175 176 177 178 179 168 181 162 183 184 185 186 187 188 18? 198 j94 
+o @ oe Oe Oe Oe OCHO OCU OCU OMCOUHOCOCUCh!HH TO FH FD & F&F 9 FG eo 
>500@80800 08 GC0CCeSSKC CSF OFT SST T&F eS GFT Fe FTG Oe 
‘1¢ oo 0 ec eo eo HOO CCUOUCCHOCHO HO HCO Oo OoOUCOMemUOmUCUCOMmUCUC OCU OCU OCU OCU COmUchOHOmhUh OCU OH SF 
$0000009C 0CeCeCeCeCeCeSeHPTFLZF2O0 9 F909 oO & & & & © 8 eo @ 
wooo oo OOOO OOo OOOO HOU OU OCU OUCH HO HOhUh OCU OChUCOOChUCOChUcCOOmhUh Hh Oh F 
oor ae ee ee ee ee ee Se ees SS, Or ee ee 
B4).0: 50,0 60201 10110 100-0) 10 10 010 2 8 8 ee 

EPSON (1-64): 2 66 34 98 18 82 50114 10 74 42 106 26 9 38 122 6 70 38 102 22 G6 54 118 14 78 46 118 38 94 b2 126 

APPLE (1-64)! 32 33 34 35 36 37 38 39 48 41 42 43 44 45 46 47 48 49 5@ 51 52 53 54 53 56 57 5B 59 6B 61 42 63 

TRS-GO B-W: 223 222 221 220 219 218 Z17 216 215 214 213 212 211 216 287 288 287 286 285 284 2B3 2Bz 201 2B9 199 198 197 196 195 194 193 192 

TR3-BO CODE: 192 193 194 195 196 197 398 199 288 201 282 203 204 205 206 207 228 2M 210 Zi) 212 213 214 215 216 217 229 219 228 gal 222 acd 
toeo0oewenoewece3woeteoeoe oe oe OoOlemhUlOUOUlUOUCUCOCUOHULUlNGOU HOCH Oe 
ar -ara r -te  oeeo  S CO oO cn 
32 50 6 Oe OO HO OCOCCUOCUCUOCC HOC HOCUC HOC HOC OCU CO OUUCOOCUCOMOmUCOMUUCOHUChOOUMUh HIF FD OF OO OO 
rr a ar a 2 2 2 2 So oo oo 2 i a a id 
wooreeteooooooooolelOOlemhlc Ohl Ohl Ol OU Oh OU HOU HO FH FT FC ee 8 
por a a a a > oo > > > SO = So = > oo 2 Oc © © = = 
a“eceoeeeeeeeoeeoeeeoeweeeeeeeeeeeeeemlmlmeemlcmlUcelUmO lh 

ce EN ae ae 

EPSON (1-64): 165 33 97 17 81 49 113 9 73 41 105 25 69 37 121 3S 69 37 101 21 85 53 117 13 77 45 189 29 93 St iss 


APPLE (1-64)! && 63 66 67 68 69 78 71 72 73 74 75 76 77 78 79 88 81 82 83 84 85 86 87 B88 BF 99 91 FO 93 94 FW 
TRS-GO B-ts: 191 199 189 188 187 186 185 184 183 162 181 188 179 178.177 176 175 174 173 172.171 170 259 168 167 166 165 164 163 16> 16: 168 


S) 
ind 
’ 
’ 
& 
f 
’ 
+ 
it] 
ea 
é 
0 
Fy 
LA 
to) 
? 
A 
3 
U 
wa 
> 
ir) 
i) 
wv) 


’ 
4 


TRS-80 CORE: 224 225 226 227 


227 228 229 230 231 232 233 234 239 236 227 238 239 240 241 dae 243 246 245 oh6 228 249 253 251 £52 £33 234 £99 
1oeo0oe#v0oec3w7oweoeoe oe Oleh OU OU OUOUCUCOUUCOMUCOUCUCOMUU CULO 
26070@808@00 CS@OeKOKFTFPO TSC SKDC See GD SSF © FDP Oo e 
*o oO 0 COC oO eo oO HOO OULU COC eo OHO HO KOOOCUCUOOCCUOOCUCOMOmUCOMUCUCUCOMUCUCOHUUhHHOCUOODUUHU HUH OO 
rr a a a te a a ek Se = eo oo 2 2 a ad 
woO OOO OOO OOO OULU OU OmUCUOUCOUCOCUcCOCUcCOCUcCOCUhUcCOmUhUCOmhUcCOmhUcCOmhUCOmhUcOOmhUh Oh? 
a a a ar oar ar ae Se oe ee ee ee ee Se OS 2 ee 2 A 
ues+eoeoeoeeeeoeeeeeeeeeeeeeeteeeeeeeeeee ¢ @ 

EPSON (1-64)! 3767 35-99 19 BS Si 115 11 75 43 107 27 91 59 123 7 71 39 103 23 87 55 119 15 79 47 111 31 95 63 127 
APPLE (1-64)? 96 97 98 99 122 101 182 103 104 105 186 107 18 109 L1G LAL 122 ATT AL) 115 116 187 118 119 128 N21 22 123 126 125 128 127 
TRS-GO B-W2 159 153 $57 156 195 194 153 152 1S! 150 149 148 147 246 145 $46 143 142 14% 148 139 138 137 136 135 136 133 132 131 139 169 126 


FIGURE 4-3. The 128 dot patterns available with TRS-80 
printers. IBM-Epson and Apple codes for corresponding seven- 
dot patterns are shown in the lower rows, along with black-white 
reversal (B-W) codes for TRS-80 printers. 


the Apple translation but the “binary sum” of each original 
TRS-80 dot code. 

“Binary sum” simply refers to the total you get when you 
add up the binary values of the printhead pins, as with the 8 
pin and the 32 pin adding up to a binary sum of 40, for ex- 
ample. Binary sums for the TRS-80 printers are these totals 
before they have been increased by 128 in order to be rec- 
ognized by the printer, and, as just noted, they are equivalent 
to the codes for the top seven pins on Apple printers. In 
many programming situations TRS-80 users will find it easier 
to use these binary-sum codes than the actual (increased by 


128) TRS-80 dot codes. 


Black-white reversals. For any dot pattern on any dot- 
matrix printer there is a “reversal pattern” in which what was 
black becomes white and vice versa. This is the same as 
saying that whatever pins fired in the original pattern did not 
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fire in the reversal pattern, and the pins that did not fire in 
the original did produce dots in the reversal. 

There are 128 examples of this in figure 4-3. Notice that 
the B-W (reversal) code for the first dot pattern (code 128, no 
dots) is 255 (all seven dots). Near the middle of the chart, 
code 190 prints all but the top and bottom dots, whereas its 
reversal code (193) prints only the top and bottom dots. 

It's more important to notice that these B-W reversal codes 
drop from 255 to 128 in a regular order while the original 
TRS-80 codes increase from 128 to 255 and the binary sums 
(Apple codes) increase from 0 to 127. The formula for con- 
verting the original dot codes (DC) to their black-white re- 
versal codes (BW), then, is simple: BW = 383 — DC. And to 
get to the BW numbers from the binary sums (BS), just sub- 
tract from 255 instead of 383: BW = 255 — BS. 

When the IBM-Epson and Apple printers are being used 
as seven-dot printers (i.e., when their 128 pins are not used), 
converting their dot codes to black-white reversal codes is 
just as easy: subtract the dot code from 127. When all eight 
pins on these printers are being used, in which case their dot 
codes range from 0 to 255 instead of 0 to 127, subtract from 
259 to get the black-white “opposite numbers.” 

By the way, black-white reversal codes shouldn’t be con- | 
fused with mirror-image codes. (And they might be, with 
seven- or eight-dot printers, because some of these are iden- 
tical.) Substituting dots for blanks and blanks for dots, which 
is what black-white reversal amounts to, is quite different 
from merely turning a dot pattern upside down. 

If we program a bunch of dot codes to print a simple figure 
in black on white paper, can we also turn that drawing into a 
white figure on a black background just by subtracting the 
dot codes from a constant? You know what the answer is 
going to be, but let’s see how it works. 


PROGRAM 4-1. ARROW. Printing a simple bit-image drawing. 
1Q@ "PROGRAM 4-1: “ARROW” -- TO DEMONSTRATE PRINTING A SIMPLE BIT—IMAGE 


15 FORM ON THE EPSON FX-80 PRINTER 

2@ LPRINT CHR$(27)"a" 5 "MASTER RESET 

3@ LPRINT CHR$(27) "K* CHR$(30) CHR$(Q) 3 "RESERVE 30 COLUMNS FOR GRAPHICS 
4@ READ DC: IF DC<@ THEN END "READ DOT-CODE 

3@ LPRINT CHRS(DC) ; "PRINT DOT-PATTERN 

68 GOTO 40 "READ AND PRINT ANOTHER 


78 DATA 0,0;,34,54,62, 62,62, 62,62, 62, 28,8,8,8,8 
82 DATA 8,8,8,8,8,8, 8, 42, 62, 28, 28,8,8,0,08,-1 


THE BIT-IMAGE BUILDING BLOCKS 89 


Program 4-1, ARROW, uses the bottom seven pins of an 
IBM-Epson printer to draw the figure in the normal black- 
on-white fashion. With an Apple printer line 20 would have 
to be LPRINT CHR$(27)"G0O030"; and in Applesoft BASIC 
all three LPRINTs (lines 20, 30, and 50) would have to be 
PRINTs after PR#1. TRS-80 users should change line 20 to 
LPRINT CHR$(18) and line 40 to LPRINT CHRS$ (DC+128) ;. 

If we run this program, our printout should appear like 
figure 4.4: An arrow it is. Not a very big one for all those dot 
codes (Apple Imagewriter users, if they use the 160-per-inch 
dot density, might want a magnifying glass to see the arrow 
in all its glory), but don’t let that upset you—we Il see some 
shortcuts for bit-image drawing in the next chapter. 


“ARR... pr 
FIGURE 4-4. A simple bit-image figure. 


Now if we just change what’s inside the parentheses of 
CHR$(DC) in line 50 to 127—DC for the IBM-Epson and 
Apple printers and to 255-—DC for a TRS-80 printer, we 
should see what's shown in figure 4-5. 


FIGURE 4-5. Black-white reversal of figure 4-4’s arrow. 


And there’s the flip-flop—easier to do than a photographic 
reversal. Notice that if we hadn’t had those two 0 codes at 
each end of the data, we wouldn’t have had the ends of our 
white-on-black arrow showing up against a dark background. 

This is enough to demonstrate the principle and method of 
black-white reversal. Considering how often such reversals 
are done by photography in commercial graphics, this dem- 
onstration was worth pursuing, especially because there’s no 
reason why much larger printouts by the computer can’t be 
reversed the same simple way. 


Most often used dot codes. Another way of getting ac- 
quainted with the graphic dot codes is to see what they look 
like when they are repeat-printed as well as printed only 
once. Figure 4-6 displays all 128 of them on the TRS-80 
DMP-400. For each code, this figure shows a single print, 


CODE # BS CODE # BS CODE # BS CODE # 
128 @ 168°. ——___._; 32 OF 22 ae 64 224 
129 1 16k 33 193: SS 65 225 
130 = — 2 162. SS 34 54 SSS 66 226 
13k.° 3 168 —————— 35 193. ee 67 227 
32.02 eS 4 ss: SSS 36 6. SS 68 228 
133 a a ara 5 165 ———_—$— 37 197 ———— 69 229 
13640 eee 6 1446° > 38 BE 70 238 
11330 7 6 ee 39 I ——E 71 231 ! 
136 - ——————- 8 168: =. 48 200: = 72 232 
137 > =e 9 1) SSS 41 an. SS 73 233 
1B. 10 1720 SSS 42 2020 74 234 
13390. (°eTXv=“= if =1a110>= 43 2.6035: 75 235 ; 
1B6°erwr_ 12 172° oo 44 264655 —_—_—_ 76 236 
141i ——= 13 173 SSS 45 B60 _—_—_—_—= 77 237 
142 ° == 14 Q(B» ———_—__ 46 206 $ ae 78 238 : 
143 6 =e 15 1798 (ee 47 207 ' Eee 79 239 ! 
1455: 17 1a =——_—_ 49 209 81 241 ; 
146° oo 18 173: —_—_—— 58 216° SSS 82 242 ; 
1 °0o°“—_— 19 19 ——_ 51 211 D—E=SS== 83 243 | 
148° 20 128 ——==———_—COS52 212 SS 84 244 i 
149 == 21 1110 —SSS—_——=_ 53 215 EEL LES 85 245 i 
150 ——=E=E=== 22 182 es 54 214 —SSSSS= 84 246 ; 
(9900 = 23 1163 *0oeO=—=_=m 55 215 °° SS 87 247 3 
A952 6 ees 24 184 = oes 56 26 ——— 88 248 1 
153) 25 185 (| qe 57 200 ——————__ 89 249 i 
164600 —— 26 186 i = 58 2186 SS 90 250 ji 
155 —X—== 27 187 i oes «= 2090 —_—_——= 91 251 i 
157 i — 29 189 | = 61 221) =e 93 253 ji 
158 | sees 30 190 0 ees 62 222 0 Eee 94 254 | 
19389 0 31 191 ) 63 223 0 95 255 | 


FIGURE 4-6. Printouts of the 128 TRS-80 seven-dot patterns, each printed once and 


resulting from LPRINT CHR$(DC), and how the code looks 
when repeated fifty times by the command LPRINT 
STRINGS (50,DC). 

After studying these, you won’t be surprised to learn that 
some of the codes are hardly ever used in graphics, and oth- 
ers are used over and over. Codes that print just a single dot 
are often used to draw simple horizontal lines in graphs or 
diagrams, for example, and bar graphs will make heavy use 
of the all-dots code, 255. (Notice, incidentally, that despite 
all the differences in codes among the IBM-Epson, Apple, 
and Tandy printers, code 255 is the same for all three fami- 
lies in printing all dots that are addressable.) We'll seldom 
have much use for the code that looks like an exclamation 
point (TRS-80 code 223, Epson code 125, Apple code 95), 
but its next-door neighbor (224, 3, and 96, respectively) is a 
big favorite for drawing the vertical axis of a graph. 

The codes that are most likely to be needed in graphics are 
separated from the others in figure 4-7. It’s very handy to 


~eee™” 


IUUIUQIUALU GLIAL UAULY 


SINGLE-DOT CODES: 


(EPSON) 


APPLE CODE: 
TRS-8O CODE: 
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keep this chart close by when you re just starting out in pro- 
gramming graphs. After a while, youll probably find that 
you ve memorized most of these codes and patterns without 
even trying. 

One thing that will help you remember them rather 
quickly is to notice how the dot codes “halve” as you go from 
left to right in all but the last section of figure 4-7. Note the 
progression 192-96-48-24-12-6-3 in the Epson double-dot 
codes, and how this is exactly reversed for the same dot pat- 
terns on the (mirror-image) Apple printers. Even with six-dot 
codes the binary counting system gives us this halving and 
doubling—252-126-63 for Epson, 63-126-252 for Apple. Here 
we see that the TRS-80 coding doesn’t behave in the same 
ways, which is a decided disadvantage and one of the reasons 
for using binary sums and later adding 128 in programming 
the Radio Shack printers. 


Most Commonly Used Codes 
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FIGURE 4-7. The dot codes that are most likely to be used in bit-image graphics. Note 
the translations of code numbers from Epson to Apple, TRS-80, and double-hexadecimal 
(DHX$) codes. 
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Conversions of dot codes. Sooner or later you’re going to 
need more efficient ways of converting from IBM-Epson to 
Apple or TRS-80 dot codes than looking up numbers in charts 
like figures 4-1 to 4-3. We’ve already noted that the first half 
of the Apple codes can easily be converted to TRS-80 codes 
by just adding 128 and that you can get those Apple codes by 
subtracting 128 from the TRS-80 codes. There is no simple 
formula, however, for converting IBM-Epson codes to their 
Apple or Tandy equivalents. 

But there are BASIC programs for doing these conversions. 
This type of conversion, remember, is the same as converting 
codes to their mirror-image codes, so the programs can serve 
that purpose as well. Program 4-2, EPSTOAPL (“Epson to 
Apple’), converts all the eight-dot codes from the IBM- 
Epson to the Apple numbering system, or vice versa. Pro- 
gram 4-3, TRSTOEPS, converts the seven-dot binary sums 
for the TRS-80 or Apple printers to the first half of the IBM- 
Epson codes (0 through 127). 


PROGRAM 4-2. EPSTOAPL. Converting IBM-Epson dot codes 
to Apple dot codes. 


3088 
3@@5 
30108 
3012 
3020 
3030 
30428 
3852 
5062 
3078 
3288 
30908 
3108 
3118 
3120 


3138 
31408 
3158 


*PROGRAM 4-2: "EPSTOAPL",A -- CONVERSION OF EPSON TO APPLE DOT-CODES 
"Copyright (c) 1985 by John Warner Davenport 

"SUBROUTINE FOR IBM PC, APPLE, OR TRS-80 COMPUTERS 

"REMOVE IN-LINE REMARKS AFTER APOSTROPHES IF APPLESOFT BASIC IS USED 


NEPS=A(T): PRINT "ORIGINAL CODE ="SNEPS ‘ENTER EPSON DOT-CODE, A(I) 
FOR P=7 TO @ STEP -1 "(8 PINS, NUMBERED 7 TO @) 
X(P)=NEPS-24P "(CONVERSION OF DECI- 
IF X(P)<@ THEN Y#$(P)="@": GOTO 5870 7 MAL CODE TO 
Y¥Y$(P)="1"5 NEPS=X(P) ” BINARY FORM) 
NEXT P 
BYTES=Y¥S (7) +YS(6)+YS(5)+VS(4)+YS(3) +¥$(2)+V¥$(1)+Y$() "ORIGINAL 
PRINT "ORIGINAL BYTE ="5BYTES "DISPLAY BINARY BYTE 
MBYTES=VS(Q)+YS(1)+VS(2)+V¥S (9) +¥S(4)4+V$(5) +¥$(6)+Y¥S(7) "MIRROR IMAGE 
PRINT "MIRROR-IMAGE BYTE =" 5MBYTES "DISPLAY MIRROR-IMAGE BYTE 
NAPL=12B#VAL (YS (Q) )+64*VAL (Y$(1) ) +32#VAL (Y$(2) )+16*VAL (Y$(3) )+8#VAL (YS(4) )+ 
4SEVAL (YS(5) ) +2*VAL (Y$(6) )+VAL (Y$(7) ) "CONVERT MIRROR-BYTE TO DECIMAL 
BCT) =NAPL "TAG CONVERTED CODE AS B(I) 
PRINT "ORIGINAL CODE, "5A(I)3", EQUALS APPLE CODE "3B(I) 
RETURN 


PROGRAM 4-3. TRSTOEPS. Converting TRS-80 dot codes to 
IBM-Epson dot codes. 


3000 *PROGRAM 4-3: "TRSTOEPS",A -- MIRROR-IMAGE CONVERSION OF 7-BIT DOT-CODES 
59905 *Copyright (c) 1985 by John Warner Davenport 
5010 "SUBROUTINE FOR IBM PC OR TRS-80 MODEL 4 (USES 74? SYMBOL) 
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5@2@ NTRS=N: PRINT “ORIGINAL DECIMAL:" 5NTRS "ENTER TRS-80 CODE, N 


503@ FOR P=6 TO @ STEP -1 7(7 PINS, NUMBERED 6 TO Q) 
5040 X(P)=NTRS-24P ” (CONVERSION OF 

5@50 IF X(P)<@ THEN Y$(P)="@": GOTO 5070 > DECIMAL CODE 

5@60 YS(P)="1": NTRS=X(P) 7 TO BINARY FORM) 

5@7@ NEXT P 


5080 BYTES=YS(6)+YS$(5)+VS(4)+YS$ (3) +¥$ (2) +Y¥S(1)+¥S(8) "ORIGINAL BYTE (BINARY) 

5@90 PRINT "ORIGINAL BYTES:* 5 BYTES 

5100 MBYTES=YS(O)+Y$(1)+Y$(2)+Y$(3)+VS$(4)+YS(5)+¥$(6) "TURN BYTE UPSIDE DOWN 

5311@ PRINT "MIRROR-IMAGE BYTES: "MBYTES 

5120 EC=44*VAL (Y$(@) )+32*VAL (YS(1) )+16*VAL (YS (2) )+B*VAL (YS (3) ) +44VAL (CYS(4) )+28VA 
L(Y¥S(5) )+VAL(Y$(6) ) "CONVERT MIRROR BYTE TO DECIMAL 

513@ PRINT "ORIGINAL TRS CODE, "3NTRS3", EQUALS EPSON CODE *;EC 

3140 RETURN 


The essence of these programs is the mirror-image prin- 
ciple combined with expanding decimal codes to their bi- 
nary forms. That is, in each program the dot code to be 
converted is first changed from its decimal form to a set of 0 
and | bits representing its binary form (lines 5030—5080 in 
both programs). For program 4-2 the binary form is eight-bit 
and for program 4-3 it is seven-bit. In both cases, once the 
the sequence of 0’s and l’s represening a dot code has been 
calculated and stored in an array, it is turned upside down by 
reversing the subscript of the array (line 5100), so that the 0 
or | status of the top bit becomes the status of the bottom bit, 
the second bit’s status becomes that of the next-to-last bit, 
and so forth. After the reversal, there is a final conversion of 
the binary form to the decimal form, to determine the new 
identity of the dot code. 

Using program 4-2, if we want to convert Epson code 207 
to the Apple code that prints the same eight-dot pattern (the 
top two and bottom four pins printing dots, the third and 
fourth pins from the top not printing—see figure 4-1), the 
program will calculate the binary form of code 207, which is 
11001111. Then the subscript reversal will turn that into its 
mirror-image, 11110011. Finally, this new binary code will 
be converted to its decimal value, 243, by the formula in line 
5120. Code 243 is the Apple code that will print the pattern 
that has two dots at the top, four at the bottom, and two 
blanks in between (you can check this in figure 4-2). It is also 
the case that decimal code 243 is the Epson code that prints 
the mirror-image of the pattern printed by Epson code 207 
(check figure 4-1). 

Converting seven-dot codes, which program 4-3 does, in- 
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volves all the same steps as program 4-2, the only difference 
being one less bit in the binary forms. Notice that if you are 
starting with a TRS-80 code, which would have to be a binary 
sum in the range of 0 to 127, you come out with a seven-bit 
Epson code that is also in the 0-to-127 range, and thus it is 
the bottom seven pins on the Epson that you are dealing 
with. 

As promised, we also have a BASIC program for converting 
decimal dot codes to Kalinowski’s double-hexadecimal 
codes. This is program 4-4, DBLHEXER. 


PROGRAM 4-4. DBLHEXER. Converting dot codes 0—255 to 
double-hexadecimal abbreviations. 


14000 "PROGRAM 4-4: "DBLHEXER",A -- CONVERSION OF DECIMAL TO DOUBLE-HEX CODES 
14002 Copyright 1985 by John Warner Davenport 

14005 ’*SUBROUTINE FOR IBM, APPLE, OR TRS-80 COMPUTERS 

14008 "REMOVE IN-LINE REMARKS AFTER APOSTROPHES IF APPLESOFT BASIC IS USED 
14010 DEFSTR A-H 


14020 ACZ=FIX(DCZ/32)+65: LS=CHR$(ACZ) "(ACZ=ASCIT CODE, DCZ=DECIMAL CODE) 
14038 FOR Z=0 TO 9 "(L$=LEFT HALF OF DOUBLE-HEX CODE) 
14032 FOR X=@ TO 224 STEP 32 

14Q@35 IF DCA=Z+X THEN R$=STR$(Z): GOTO 14870 

14038 NEXT X 

14040 NEXT X= NEXT Z *(R$=RIGHT HALF OF DOUBLE-HEX CODE) 


14858 FOR SC=465 TO 86 

14052 FOR X=-55 TO 169 STEP 32 

14055 IF DCZ=SC+X THEN RZ=CHR$(SC): GOTO 14070 

14058 NEXT X 

1406@ NEXT X: NEXT SC 

14078 DX=L$+RIGHT$(R$, 1) 

14088 IF DCZ=183 THEN DX="FW" "CHANGE RESERVED WORD ’FN’ TO ’FW’ 
14890 PRINT "ORIGINAL CODE";DC%;" = DHEX CODE "3Dx 

1418@ RETURN 


This program, which would normally be used as a subrou- 
tine in a larger program, is for converting the 256 IBM-Epson 
or Apple dot codes. It makes use of the ASCII table (see table 
2-3), specifically ASCII decimal codes 48 to 57 for numerals 
0 to 9 and codes 65 to 86 for capital letters A to V, skipping 
the intervening codes (58 to 64), which stand for punctuation 
marks. Since letters A through H are used for the first char- 
acter in the two-character code, the converting statements in 
the program are preceded by DEFSTR A-H so that all 256 
hexadecimal codes can be referred to as strings without the 
type-declaration $ as a third character. 
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DBLHEXER then goes through an AC-DC routine to 
translate the first of the two characters. Actually it’s the other 
way around (DC-to-AC), and % signs have to be added to 
these so that the computer will treat them as numerical vari- 
ables. Each DC% (dot code or decimal code) is converted to 
an ASCII code (AC%) by the formula AC% = FIX (DC%/32) +65 
in line 14020, and then the AC% values are in turn converted 
to letters A through H by the BASIC’s CHR§$() function. 

One of those letters becomes the first (left side) of the two 
characters in a double-hex code by the definition L$= 
CHR$(AC%) in line 14020. For the second (right) character, 
called R$, the program uses the STR$ function for digits 0 
through 9 and the CHR$ function for letters A through V. 
Finally, the double-hex code (DX) is assembled by concaten- 
ating the “left’’ (L$) and “right’’ (R$) halves, that is, by DX = 
L$+RIGHTS(R$,1) in line 14070. One DX code has to be 
changed—code 183—to avoid using one of BASIC’s reserved 
words, FN (changed to FW). 

A program that merely translates an Epson or Apple code 
into a double-hexadecimal code doesn’t go far enough to let 
you print different dot patterns by sending different double- 
hex codes to the printer. In order to get these two-character 
codes to do what you want them to, the appropriate 
CHR$(DC) values have to be assigned to them, so that the 
computer will “know” that A2 means CHR$(2), GD means 
CHR$(205), and so forth. As we noted earlier, these assign- 
ments can be made by a series of 256 definitions typed into 
the program, of the form DX = CHR$(DC). 


PROGRAM 4-5. DHEXPRNT. Bit-image printing using double- 
hexadecimal codes. 


1@ ’PROGRAM 4-5: "“DHEXPRNT" --— ASSIGNMENT & PRINTING OF DOUBLE-HEX CODES 

12 *Copyuright (c) 1985 by John Warner Davenport 

15 *FOR EPSON PRINTERS DRIVEN BY IBM PC (USE PRINT# INSTEAD OF LPRINT, INITIALIZ 
E WITH ’OPEN “LPT1:" AS #1: WIDTH #1, 255) OR TRS-80 (USE BOOTHE’S DRIVER) 

20 GOSUB 15880 

30 GOSUB 15170 

40 STOP 

15@0Q °xxxxxxeee ASSIGNMENT OF CHR$(@-255) TO 256 DOUBLE-HEX CODES *x#exexHH% 

15010 DEFSTR A-H 

15020 DIM 2$(11),DX(256),DY(254) 


15038 I= 
15040 FOR LC=65 TO 72: Q=0 "ASCII CODES FROM A TO H 
15@5@ FOR RC=48 TO 86 "ASCII CODES FROM @ TO V 


15868 IF RC>57 AND RC<65 THEN Q=Qt1: GOTO 15140 ’SKIP 38-64 (PUNCTUATION) 
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15070 LS=CHRS(LC): RS=CHRS(RC) "LEFT & RIGHT BYTES 
15888 IF L$="F* AND RIGHTS(R$,1)="N" THEN R$="W" ’CHANGE ’FN’ TO ’FW’ 
158908 DX (1 )=L$+RIGHTS(RS, 1) "STORE BYTE IN DX(I) ARRAY 
15188 =S2*eF 1X (1/32) 7(J AND Q ARE COUNTERS) 
15118 DY (1) =CHR$(RC-48-Q+J) "STORE CHRS() IN DY(I) ARRAY 


15120 PRINT “DOUBLE-HEX CODE, DX(I), = "§DX(1)3" ASC(DY(I)) = "SASC(DY(T)) 
15130 I=I+1 

15140 NEXT RC 

15150 NEXT LC 

15168 RETURN 

15178 "x*eeeeKe TEST PROGRAM: BIT-IMAGE PRINTING FROM DOUBLE-HEX DATA ####e%# 
15180 FOR N=1 TO 11 

15190 READ Z$(N): PRINT Z$(N) "READ AND DISPLAY DOUBLE-HEX CODE 
15200 IF Z$(N)="°END® THEN GOTO 15240 

15210 FOR I=8 TO 255 

15220 IF Z$(N)=DX(I) THEN Z$(N)=DY(I) "CONVERT DHEX TO CHRS() STRING 
15230 NEXT I 

1524@ NEXT N 

15258 DATA AS, AK, B2,B2, BO, BO, BO, B2, B2, AK, AS, END 

15260 LPRINT CHR$(27) "9" § CHRS(27) "L* CHR$(11) CHRS(O) § "RESET, RESERVE 11 COLS. 


15276 FOR N=1 TO 112 LPRINT Z$(N)§: NEXT N "PRINTS LETTER *C* 
15280 LPRINT CHR$(13)§CHRS(10) 5 
15298 FOR N=1 TO 11:8 LPRINT ASC(Z$(N))$2 NEXT N "PRINTS DECIMAL CODES 


153@@ LPRINT CHR$(13) §CHRS(10) 5 
153108 RETURN 


But you ll have a whole lot less typing if you use program 
4-5 instead. This program, called DHEXPRNT, can be used 
with or without the DBLHEXER program. It uses two string 
arrays, DX(I) and DY(I); two ASCII-code variables, LC and 
RC (for “left character” and “right character’); and three 
counter variables, I, J, and Q. With nested FOR-NEXT loops 
the program goes through all 256 possible combinations of 
left characters (ranging from A to H) with right characters (0 
to 9, A to V) that can make up a double-hex code, DX(I). 
While doing that it assigns a decimal code from 0 to 255 to 
the variable DY(I). The arithmetic of assigning these decimal 
codes is handled by the J and Q counters and the statement 
DY(I)=CHRS$(RC-48-Q+J) in line 15110. 

DX(I) and DY(I) become linked by the subscript (I) that 
they have in common. If the value of J is, say, 87, DX(87) will 
be equal to CN and DY(87) will equal CHR$(87). Setting 
DX(87) equal to DY(87) will not make CN equal to CHR$(87) 
—it will just make DX(87) equal to DY(87)—but if you bring 
in a third string variable called Z$(N), you can get the printer 
to print the dot pattern of CHR$(87) whenever DX(87) turns 


up. 
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The test program in subroutine 15170 of DHEXPRNT 
demonstrates this. It starts up another FOR-NEXT loop for 
setting Z$(N) equal to successive DATA values, which are in 
double-hex form. The loop runs from I=0 to 255 and con- 
tains the statement IF Z2$(N)=DX(I) THEN 2§(N)=DY(I) in 
line 15220. Any DATA values of Z$(N) in the range of AO to 
HV can thus be printed out as dot patterns. For example, in 
lines 15250-15270 the sequence of DATA values AS, AK, 
B2, B2, BO, BO, BO, B2, B2, AK, AS operated on by LPRINT 
Z$(N) produces a printout of the letter C, and reading the 
same sequence to the command LPRINT ASC(Z$(N)) in line 
15290 produces a printout of the dot codes: 28 20 34 34 32 32 
32 34 34 20 28. 

While programs 4-4 and 4-5 can be used for converting and 
assigning Apple codes as well as IBM-Epson codes, remem- 
ber that the dot patterns will be different for the two types of 
printer, except for a few that happen to be vertically symmet- 
rical, i.e., for which the mirror-image is the same as its origi- 
nal image. 

TRS-80 codes can also be translated and assigned to dou- 
ble-hex codes with programs similar to these. The main 
changes would be subtracting 128 from each TRS-80 code to 
get values of DC% in program 4-4 and adding 128 to the 
value of RC—48—Q+J in line 15110 of program 4-5. That 
same line could be altered for black-white reversals by sub- 
tracting the value of RC—48—Q+J from 255 on the IBM- 
Epson and Apple printers and the value of RC—48—-Q+ 
J +128 from 383 on the TRS-80 printers. 

Kalinowski goes further than using double-hex codes as 
single dot codes. He defines what you might call higher- 
order double-hex codes in terms of combinations of double- 
hex codes. After using a DEFSTR A-Z statement and assigning 
the codes AO through HV to decimal codes 0 through 255, he 
defines Z1 as single full column of dots—which can be done 
by Z1=HV or Z21=CHR$(25S). Then he goes on to define two 
consecutive eight-dot prints by Z2=2Z1+2Z1 (concatenation), 
three consecutive by 23=22+2Z1, and so forth, working up to 
ten consecutive (ZA=25+2Z5 for 10=5+5). Then tens, twen- 
ties, thirties, etc., are combined to get up to 100 (ZJ=ZI+ZA 
for 100=90+ 10). 

With this scheme we can order the printer to print, say, 108 
dot columns filled with dots by LPRINT ZJ+Z& instead of 
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having to type Zl (or HV) 108 times or using LPRINT 
STRINGS (108,255). Kalinowski has a similar scheme for 
blank spaces, starting with Q1=A0 or Q1=CHR$(0O), and for 
other repeat codes. He also converts all the Epson control 
codes he needs to double-hex codes; instead of using LPRINT 
CHR$(2?7)"K" for entering graphic mode with 60-dots- 
per-inch density, for example, he can use the command 
LPRINT BY, after BY has been defined by BY=AR+CB or 
BY=CHRS(27)+"K" or BY=CHR(2?7)+CHRS$(7S). 

After all conversions and higher-order definitions have 
been made, the double-hex coding system provides a better- 
than-80% saving in number of characters to be typed or held 
in memory compared to using decimals in LPRINT CHR3$() 
commands. (But since there are other shortcuts that provide 
similar savings and keep programs easier to follow as well, 
we will be very sparing in our use of the double-hex system 


in this book.) 


Bit-image Screen Dumps 


Before getting totally immersed in bit-graphics program- 
ming, we should take some time to enjoy the dot-addressable 
printer when it’s used “the easy way’”—dumping the con- 
tents of the computer's screen to the printer. Actually, it’s not 
necessarily easier to program graphics from scratch on the 
screen than directly on the printer, but when someone else 
does most of the screen programming for you, it figures to be 
a breeze. And yet even with that help it probably won’t be, 
because the screen-dumping procedure itself has to be pro- 
grammed or purchased. 

Several commercial screen-dump packages for graphics, 
varying with the system, have been on the market for quite 
a while. Assembly-language programs for screen-printing 
graphic images have also appeared in the microcomputer 
magazines at regular intervals. But the do-it-yourselfer who 
is penniless and unfamiliar with assembly language has rea- 
sons to be interested in BASIC programming of screen 
dumps. 

This will require some tolerance of long waiting periods, 
because BASIC is probably the slowest language to use. But 
if the resolution of the screen is low, there won’t be so many 
screen units to dump to the printers that it will take more 
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than a few minutes. Unfortunately, the lower the resolution 
the less the screen graphic will be worth dumping, but if you 
shift to a high-resolution computer it’s likely to take hours 
instead of minutes. 

Let’s start with low resolution. Each dot of light, called a 
pixel (for “picture element’), on the computer's screen 
needs to be turned into a dot of ink on the printer's page. 
How big a pixel can be, in addressable form, varies tremen- 
dously with the computer, and we are at the mercy of that 
computer’s design. The size and even the shape of the print- 
ers dot are much more under our control, as we'll soon see. 
In the case of the TRS-80 Model III, there are 48 rows of 
addressable pixels, and each row has 128 pixels. The full 
screen therefore has 48 times 128, or 6,144 pixels in all. If 
that seems like a lot to you, compare it to the standard IBM 
PC’s total of 128,000 (200 by 640) or the Tandy Model 2000's 
256,000 (400 by 640). 

Mike Keller (in 80 Micro, June 1983) has presented some 
simple BASIC programs for representing each pixel on the 
Model III (or Model I) screen by a single dot on the Epson 
(MX-80) and Apple-type (NEC 8023A) printers. Program 4-6 
is a version of his program for TRS-80 printers. 


PROGRAM 4-6. MINIPRNT. Printing miniature screen dumps 
with the Model III. 


5@@Q °PROGRAM 4-6: "MINIPRNT" SUBROUTINE -- FOR MINIATURE SCREEN DUMP 

50905 ’FOR TRS-80 COMPUTERS AND PRINTERS 

5018 *Based on Mike Keller’s "Mini-Screen" programs (80 Micro, June 1983) 

5020 CLEAR 1900: DEFINT A-Z: DIM A(128,9) 

503@ "FUNCTION TO CONVERT 6 VERTICAL PIXELS TO A DECIMAL (RANGE OF 0-127) 

5040 DEF FN F1(X)=A(COL,@)+A(COL, 1) #2+A( COL, 2) #4+A( COL, 3) #B+A( COL, 4) #16+A(COL,5) 
#32 

5050 7? ====s=s======PRINT SCREEN GRAPHI CSG=======s===s======= 

5060 LPRINT CHR$(3Q) 5 CHRS(27) 5 CHRS(20)§CHR$(18)5 *CONDENSED PRINTING 

5078 FOR REF=0 TO 42 STEP 6 

5080 FOR COL=0 TO 127 


5098 FOR ROW=@ TO 5 
5188 A(COL, ROW) =—( POINT (COL, ROW+REF ) ) "STORAGE OF 1 OR @ IN 2-D ARRAY 
3118 NEXT ROW 


3120 NEXT COL 

3138 FOR COL=@ TO 127 

3140 LPRINT CHRS(18) 3 CHRS(FN F1(X)4+128)5 *PRINT DOT-PATTERN 

3150 NEXT COL 

5168 FOR Z=1 TO 6: LPRINT CHR$(27)5CHRS$(50)5% NEXT Z 76/72" LINE FEED 

3178 LPRINT CHR$(27) 3 CHR$(16) 3 CHRS(Q) 5 CHRS(@)§3 ’CARRIAGE RETURN W/O LINE FEED 
518@ NEXT REF 

5319@ RETURN 
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These programs depend crucially on the POINT(X,Y) func- 
tion, which tells you whether and which pixels are on 
(lighted) or off. Whenever you question the computer about 
a pixel’s on-off status by specifying its X (horizontal) and Y 
(vertical) coordinates, a value of —1 is returned if it is lighted 
and a value of 0 is returned if it’s off. This applies to a 
graphic-block pixel, not the smaller points of light that make 
up alphanumeric characters on the Model III. That means 
that only graphics, not text characters, will be dumped to the 
printer. After we have drawn a graphic figure on the screen, 
it can be described exactly by the X-Y coordinates of the 
pixels that are on. 

In Keller's programs for the MX-80 and NEC 8023A, these 
coordinates are read eight at a time vertically, so that in effect 
there are only six rows by 128 columns, or 768 eight-bit light 
patterns to be translated into the eight-bit dot codes of those 
printers. Keller's neat trick is to come up with the defined 
function (DEF FN, in BASIC) that does the translating. 
You'll find a modified version of that DEF FN in line 5040 
of program 4-6. 

The only important change is to divide the forty-eight orig- 
inal rows of the Model III’s screen by six instead of by eight, 
so that the size of the vertical pixel pattern to be translated 
will get down to where it can be handled by a TRS-80 
printer, which is limited to seven-bit dot codes. The defined 
function converts the vertical pattern of Os and 1s, which is 
produced by reading POINT values in each six-bit pixel col- 
umn, to a decimal code in the range of 0 to 127 by succes- 
sively multiplying the 0’s and 1’s by powers of two. The 0 or 
] value of the top pixel is multiplied by 1, the next by 2, the 
next by 4, and so on down to the bottom one of the six (mul- 
tiplied by 32). The resulting decimal code is then sent to 
the printer by LPRINT CHR$(18);CHRS$(FN F1(X)+128). 

It may come as a shock that the printed figure ends up less 
than an inch high, but remember that eight butted lines of 
six-dot-high dot patterns amount to only 482 inch. Figure 
4-8 shows some examples of these miniature screen dumps. 
Each of these took a little more than three minutes to pro- 
duce. As Keller points out, black-white reversals can be gen- 
erated by changing line 5100 to: 


A(COL, ROW) =POINT (COL, ROW+REF) +] 
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FIGURE 4-8. Miniature screen dumps produced on the DMP- 
400 by variations of Keller's MINIPRNT program (program 4-6). 


If you want a larger printout from the same screen figure, 
you can get it by changing the function in DEF FN so that 
only two screen lines at a time are converted instead of six, 
and then use the printer's built-in block-graphic characters. 
Lines in the Model III program would have to be changed or 
added as follows: 


5030 'FUNCTION TO CONVERT 2 VERTICAL PIXELS 
TO 0, 7, &, OR 15 

SOWO DEF PN F1(X)=A(COL,O0)+*7+A(COL,1)*8 

5135 IP FN F1(X)=0 THEN LPRINT 
CHR$(18);STRING$(3,128);CHR$(30):: GOTO 
5150 

S140 LPRINT CHR$(30);CHRS(PN P1(X)+224); 

S145 LPRINT CHR$(&);CHR$(b); 'BACKSPACE 3 
DOT SPACES 


Adding the values 0, 7, 8, or 15 (see line 5030) to 224 (see 
line 5140) determines whether the printer receives codes 
224, 241, 242. or 253, which are block-graphic codes for, re- 
spectively, a blank, the upper pixel, the lower pixel, and both 
pixels, in each two-pixel column. Instead of using the code 
224 for blanks, line 5135 intervenes with STRING$(3,128) in 
a temporary switch to graphic mode. When the other three 
codes are printed (by line 5140) they are immediately fol- 
lowed by a three-dot backspace, so that the left-to-right dis- 
tance traveled by the printhead will be the same for prints of 
blocks as for blanks. This speeds up the printing as well as 
saving wear and tear on the printer. 
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FIGURE 4-9. Increased size of a MINIPRNT type of screen 
dump when screen pixels are represented by block-graphic 
characters in text mode instead of by single dots. 


The increase in size is shown by figure 4-9. Similar pro- 
gram changes with other printers would have to take into 
account the size of their built-in block-graphic characters, if 
they have any, and the size of line feeds for proper butting of 
the lines in print. | 

Using the text-mode graphic blocks is only a partial step 
toward varying the size of a screen dump. In graphic mode, 
the block of print that is used to represent each pixel on the 
screen can be as small as a single dot (as in the MINIPRNT 
programs) or as high as the string of dots printed by 
CHR$(255). (That would be eight dots on the IBM-Epson 
and Apple printers, seven on Tandy printers.) Figure 4-10 
shows the range of selection for eight-dot printers. 

You can generate these block prints by sending the code 
for a single dot once, a two-dot code twice—e.g., LPRINT 
STRINGS$(2,3)—a three-dot code three times—LPRINT 
STRINGS (3, 7)—and so forth. Then, instead of scanning the 
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1 2 3 4 5 6 v4 8 


FIGURE 4-10. Bit-image squares of eight different sizes that can 
be produced by eight-dot printers. 


screen six or two lines at a time, have your screen-dump 
program read only a single pixel line. That, at the cost of 
more reading and printing time, eliminates the need for any 
conversion of 0’s and 1’s to dot codes or block codes. Program 
4-7, DUMPSIZE, varies the size of the bit-image block rep- 
resenting each pixel from one to seven dots for a TRS-80 
system. 


PROGRAM 4-7. DUMPSIZE. Varying the size of screen dumps 
with the Model III. 


3800 
3618 
3020 
3038 
3040 
38508 


"PROGRAM 4-7: "DUMPSIZE",A -- VARYING THE SIZE OF SCREEN DUMPS 
"SUBROUTINE FOR TRS-80 MODEL III AND TRS-80 PRINTERS 

DEFINT A-Z: DIM A(128,48) 

LPRINT CHRS( 38) § CHRS (27) § CHRS (20) 5 CHR$(18)3 "CONDENSED PRINTING 
FOR ROW=0 TO 47 


FOR COL=@8 TO 127 
A( COL, ROW) =—( POINT (COL, ROW) ) "STORES 1 OR @ IN 2-D ARRAY 
NEXT COL 
LPRINT CHRS(3@) sROW; 
NEXT ROW 
FOR SZ=2 TO 7 
LPRINT STRINGS$(3, 13) 5 *THREE LINE FEEDS 
FOR ROW=@2 TO 47 
FOR COL=@ TO 127 
IF A(COL,ROW)=@ THEN LPRINT CHR$(18) 5STRING$(SZ,128)3: GOTO 5178 
ON SZ GOSUB 5230, 5240,5250,5260,5278,5270 
IF A(COL,ROW)>@ THEN LPRINT CHR$(18) ;STRING$(SZ,DC) ; 
NEXT COL 
FOR Z=1 TQ SZ: LPRINT CHR$(27) 5CHR$(5@)5: NEXT Z 
LPRINT CHR$(18) 3 CHRS(27) § CHRS( 16) § CHRS(@) § CHRS(O) § 
NEXT ROW 
NEXT SZ 
RETURN 
DC=131: RETURN 


DC=135: RETURN 
DC=143: RETURN 
DC=159: RETURN 
DC=191: RETURN 
DC=255: RETURN 
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Figure 4-11 displays the different sizes of printouts pro- 
duced by DUMPSIZE. The largest of these, in actual printed 
size, is just about the same size as the figure on the Model 
III's screen. Regardless of size, the printing time for each of 
the seven printouts is around five minutes, as opposed to 
MINIPRNT’s taking approximately three minutes. 

Unless you consider five minutes to be too long, this type 
of screen dump also works well with small-screen portable 
computers that have the POINT function, such as the 
EPSON HX-20. (For portables that do not, such as the Radio 
Shack Model 100, other ways of reading the screen—imple- | 
menting the PEEK command for screen addresses in RAM, 
for example—will have to be used.) Using a bit-image block 
produced by STRING$(3,135) in elite pitch on the DMP-400, 
STRING$(5,7) in double density on the FX-80, or 
STRING3$(7,7) with the Imagewriter’s highest density, and a 
¥2-inch line feed, you'll get screen prints that are slightly 
larger than the HX-20’s LCD display. 

If you want to magnify the screen image, use a larger block 
(and equal-sized blank) and line feed. With seven-dot-high 
blocks and 72-inch line feeds, the HX-20’s 1% inch x 3% 
inch screen blows up to about 3 inch x 11 inch (too big to fit 
on an eight-inch printer). You may be surprised how some of 
your miniature creations on the HX-20’s 32-by-120-pixel 
screen appear in a size like that, and how much better they 
look in high-contrast printouts than on the rather foggy LCD 
screens of notebook computers. 

With computers having much higher-resolution screens 
than the Model III or HX-20, BASIC programs depending on 
the POINT function in row-by-row readings will be too slow 
for most people. Reasonably fast dumps for the IBM PC and 
for Apple computers are available in commercial software for 
prices under fifty dollars. The Tandy Model 2000 has a sub- 
routine on its system disk for dumping images on its 400-by- 
640-pixel color monitor to the Radio Shack CGP-220 color 
ink-jet printer. 

IBM users, however, should be aware of the excellent pro- 
grams written by Baenziger (PC World, December 1983). 
His GRUMP (for “graphic dump’) programs combine ad- 
vanced BASIC and machine language for screen prints of 
high-resolution graphic images. What is more, he has pre- 
pared four different versions of GRUMP for four different 
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FIGURE 4-ll. Different-sized screen dumps generated by the DUMPSIZE 
program (program 4-7). 
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categories of dot-addressable printers, including those with 
six-, seven-, and eight-pin printheads and those with low-bit- 
up as well as high-bit-up pin configurations. Furthermore, by 
using the GET statement in the PC’s advanced BASIC, the 
programs are able to read and store about 200 columns of 
graphics from the screen every five seconds. So even with 
200 times 640 pixels to cope with, the whole screen-dump 
process takes only two to three minutes. 


is , 
a 
vas Hi 


FIGURE 4-12. A bit-image screen dump of a three-dimensional 
hidden-line figure drawn on the IBM PC screen and printed by an 
Epson FX-80 printer. (Reproduced with permission of Prentice- 
Hall, Inc., from Microcomputer Graphics: Techniques and 
Applications by Donald Hearn and M. Pauline Baker). 


As with our earlier screen-dump programs, any version of 
GRUMP can be tacked onto a program for screen graphics, 
and microcomputer books offer a tempting cafeteria of selec- 
tions. Figure 4-12 shows one of the classics from Hearn 
and Bakers Microcomputer Graphics: Techniques and 
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Applications—a sine function in three dimensions with hid- 
den-line removal (or you could call it a hat). This example 
provides a standard to be compared with printouts produced 
by direct programming of bit-image drawings. 

Which just happens to be our very next topic. 


5 
How to Draw with Dots 


NOW that we have our building materials—dot patterns, dot 
codes, control codes, and BASIC commands—we’re ready to 
start drawing on the dot-matrix printer. In this chapter, draw- 
ing in general is the topic—from simple lines to textured 
drawings that resemble photographs. 


Lines and Curves 


By now it should be an easy matter to make the printer draw 
a straight line. All we have to do on a TRS-80 printer, after 
entering graphic mode, is select one of the single-dot codes 
and tell the printer how many times we want the printing of 
that dot repeated. If we want the line to be about two inches 
long, we have to repeat the printing 120 times in a printing 
density of 60 dots per inch. Suppose our selection is one of 
the middle dots, say, CHR$(136). If we type LPRINT 
CHRS$ (18); STRINGS (120,136) and then strike ENTER, the 
printer will immediately react by printing a line like the one 
in figure 5-1. 

If we have an IBM PC driving an IBM or Epson printer, it 
isn't quite so easy: Printing 120 dots means we’ll have to 
reserve 120 dot columns of graphic space first. Using the 
same density and a dot code of 16, we would need 


FIGURE 5-1. Two-inch line, produced by repeating a single-dot 
code 120 times. 


108 
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LPRINT CHRS$(27)"K"CHR$(120)CHR$(0); to come before 
STRINGS (120,16) to get the same result. 

With an Apple II series computer controlling the Image- 
writer, the handy STRING$ function probably won't be 
available. For a two-inch line, then, we'll need to reserve 
160 dot columns (assuming a print density of 80 dots per 
inch) and repeat the PEEK-and-POKE routine 160 times (as- 
suming Applesoft BASIC). For the Apple Ile, the following 
lines should do the job. 


100 PR#] 

110 PRINT CHRS(2?)"N"; 

120 PRINT CHR$(28)"GO1b0"; 

130 FOR Z=1 TO 160 

140 IF PEEK(4930S) <> 16 THEN GOTO 140 
450 POKE 49304,86 

160 NEXT 2 


This is a bit laborious by comparison. Programmers in 
printer graphics can only hope that the slogan “Apple II for- 
ever’ doesn’t mean Applesoft forever. 

Normally, in PRINT and LPRINT statements, we need a 
trailing semicolon to prevent a line feed after each print of 
a dot when we are repeating a dot code, or else we'll get a 
vertical dotted line instead of a horizontal solid one. Notice, 
however, that the trailing semicolon is not needed after a 
POKE command (line 150 above). In fact, if you use one, the 
program will abort with a syntax-error message appearing on 
the display. 

It is truly unfortunate that we have such an array of proce- 
dures for different systems just to print a two-inch line. We're 
stuck with this state of affairs, and to keep this book under a 
thousand pages, we’ll have to forgo the practice of showing 
how all three printer families need to be programmed for 
each task. In most of the examples that follow, we will show 
the programming in detail for one type of printer and indi- 
cate how to translate for other printers. Usually a program for 
TRS-80 printers will be shown first, because programming is 
easier with those printers, and easier for the reader to follow 
as well. 


Horizontal lines. Figure 5-2 shows a variety of horizontal 
lines and the BASIC commands for them with printers in the 
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HORIZONTAL LINES: 
SOLID, THIN: — 


DASHED, THINS ————~—~————~—-—~———~—~~~__ 


DASHED, THICK: sesuueseunnseeusaueceqsenqusenasaauunces 


DOFTEDs:GHY «ested tate aces eee hon 


DOTTED, HEAVY$  csecccccscnccnccccsncccscccncnnsccccenssccencoscce 
PATTERNED: -—-—-—-— +--+ -—-—- 
PATTERNED: ee eee eee i it fit ii itt tit tit tht tt tt 


BASIC Command 
LPRINT STRINGS (2@@, 136) 
LPRINT STRINGS (280, 156) 


FOR N=1 TO 28: LPRINT STRING$(7, 136); 
STRING$(3,128)3: NEXT N 


FOR N=1 TO 48: LPRINT STRING$(4, 158); 
CHR$(128)5: NEXT N 


FOR N=1 TO 1808: LPRINT CHR$(136)3 
CHR$(128)5: NEXT N 


FOR N=1 TO 108: LPRINT STRING$(2, 148); 
STRING$(2,128)3: NEXT N 


FOR N=1 TO 10: LPRINT STRINGS$(12, 14@) 5 
STRINGS (2, 128) STRINGS (4, 148) § 
STRING$(2,128)5: NEXT N 


FOR N=1 TO 10: LPRINT STRING$(5, 156); 
CHR$ (128) § CHR$ (156) § CHRS (128) 5 
CHR$ (156) 5CHR$(128)5: NEXT N 


FIGURE 5-2. An assortment of horizontal lines and the BASIC commands for 


producing them with the DMP-400 printer. 


Tandy family. The TRS-80 control code for entering graphic 
mode, CHR$(18), is omitted in the list of commands. 
Notice in figure 5-2’s examples that to switch from a thin 


to a thick line, all you have to do is change from a single-dot 
code, such as CHR$(136), to a multiple-dot code, such as 
CHR$(156) or CHR$(158). And if you want breaks in the line, 
for dotted, dashed, or patterned lines, just insert the blank 
code, CHR$(128). 

Figures 4-3 and 4-7 in the previous chapter can be used to 
translate the TRS-80 dot-codes into IBM-Epson or Apple 
codes. With the IBM-Epson and Apple printers, control 
codes for entering graphic mode and specifying density and 
dot-column space have to precede the print command in each 
case. 


Vertical lines. Unlike horizontal lines, vertical lines re- 
quire almost as many line feeds as dot prints. The line-feed 
size has to be set in accordance with the height of each print, 
so that adjacent lines of print will be butting. A feed of 72 
inch is automatic with seven-dot-high prints on the TRS-80 
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printers, but for the same height IBM-Epson and Apple 
printers would have to be preset to 7/72 inch (use !%/144 inch on 
the Imagewriter). 

To make a single, thin vertical line on a TRS-80 printer, 
you can use a FOR-NEXT loop to repeat the code for all 
seven dots, CHR$(255), followed by a line feed and carriage 
return. CHR$(13) usually does both if the computer is also a 
TRS-80. If you plan to have the line located somewhere to 
the right of the left margin, a shorthand code for positioning, 
such as P$=CHR$(27)+CHRS$ (1b) +CHR$(0)+CHR$(100) for 
the 100th dot column, should precede each dot print. The 
examples in figure 5-3 show these line-feed and positioning 
features in all cases. 

To make thicker lines, you merely repeat the dot code be- 
fore each line feed, by using STRING$, the 28+ N sequence, 
or a second FOR-NEXT loop nested within the first. There 
is even a fourth way—LPRINT CHR$(255);CHRS$(e55); 
CHR$(255);CHR$(13) instead of a STRING$(3,255) func- 
tion inside a FOR-NEXT loop—but the STRING$ function 
is obviously the simplest method. 

Again, the IBM-Epson and Apple printers would have to 
make their graphic space reservations before printing, only 
now the enter-graphic sequence (27+°K’+N1+N2 or 


FIGURE 5-3. Vertical lines produced by the DMP-400 printer. 


SOLID, THICK: FOR N=1 TO 4: LPRINT P1$;STRING$(3, 255) §CHRS(13)5* NEXT N 


DOUBLE = FOR N=1 TO 4: LPRINT P1%5CHR$(255) 5 CHRS (128) § CHR$ (255) § 
| CHR#(13)5: NEXT N 
DOTTED: = FOR N=1 TO 4: LPRINT PIS$;STRINGS(2Z, 182) § CHRS(13)55 NEXT N 


DOTTED (FINE): : FOR N=1 TO 2: LPRINT P1$3CHRS(213) 3 CHRS(13) 5P1$5 CHRS(178)§ 
? =CHRS(13)53% NEXT N 


DASHED = FOR N=1 TO 4:2 LPRINT P1% ;CHR$(19@) ;CHRS(13)52 NEXT N 


DOT-AND-DASH: FOR N=1 TO 4: LPRINT P1$3CHR$(222) §CHR$(13)52 NEXT N 
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27+Gnnnn” respectively) has to be placed within the FOR- 
NEXT loop, even if there’s only one dot column needing to 
be reserved. This takes some care, because if you reserve 
more dot columns than there are dot codes to fill them, the 
line-feed or carriage-return codes could be treated as dot 
codes and printed as dot patterns. With these printers, a com- 
bination line feed and carriage return can also be done with 
CHR§$(13) alone, provided that no trailing semicolon follows 
CHR§(13) in the LPRINT or PRINT command. 

Horizontal and vertical lines can also be made outside of 
graphic mode with punctuation marks or built-in line-graph- 
ics characters. A dashed horizontal line, for instance, can be 
made by repeating a hyphen, and a vertical line can be pro- 
duced on the IBM Graphics or Radio Shack printers by re- 
peating the text-mode code for a filled column (code 186 for 
the IBM, 245 for TRS-80s). Line feeds would have to be set 
to suit the heights of the characters (%2 inch or ¥% inch on the 
IBM, %2 or “2 inch for the TRS-80s). 


Vertical lines with ultra-high resolution. There’s no law 
saying we always have to use the standard line feeds of 
graphic mode. Instead of the usual %2-inch or %2-inch feeds, 
we can use the small Y%2-inch or even the tiny “i4a-inch or 
¥Y216-inch line spacings. 

How big are Y2ie-inch line feeds? Are they even visible? 
Would we ever really use such minuscule spacing very 
much? One way to get a handle on this ultra-high-resolution 
mode is to print a single dot and a horizontal line of dots and 
gradually increase the line feed from Yaie inch to, say, %16 in 
single steps. This is what program 5-1, ULTHIRES, does. 


PROGRAM 5-1. ULTHIRES. Varying the number of '416-inch 


and 2-inch line feeds in ultra-high-resolution line drawing. 


18 "PROGRAM 5-1: "ULTHIRES* -- ULTRA-HIGH-RESOLUTION VERTICAL LINES 
15 ’FOR TRS-80 COMPUTERS AND PRINTERS 

3@ P1S=CHRS (27) +CHRS( 16) +CHRS(@) +CHRS( 100) *100th DOT-COLUMN 

100 FOR Z=1 To 9 

11@ FOR N=1 TO 25 


128 LPRINT CHR$(18) §P1%$5CHR$(129) SSTRINGS(8, 128) STRINGS (20, 129) ; 

138 FOR S=1 TO Z? LPRINT CHR$(27)3CHRS$(51)5: NEXT S *Z/216" LINE FEED 
140 NEXT N 

15@ LPRINT CHRS(13) 5 "CARRIAGE RETURN + LINE FEED 


16@ NEXT Z 
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Line 120 of ULTHIBES prints the top dot (code 129 in the 
TRS-80 system) and a line of twenty such dots. The FOR- 
NEXT loops starting at lines 100 and 110 repeat the printing 
of the dot and line at a given line feed and increase the line 
feed after every twenty-fifth line of print. Line 130 governs 
the actual size of a line feed by controlling the number of 
repetitions (Z) of the 16-inch feeds that occur after each 
print line. Figure 5-4 shows the progression that results. 


1/216" 1/72" 


FIGURE 5-4. Printouts 
from the ULTHIRES 
program, showing 
changes in line feeds 
from ‘416 inch to %16 
inch (left) and from 2 
inch to %2 inch (right). 
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Notice that three repetitions of the Yaie-inch line feed 
amount to %16 inch which reduces to %2 inch. For every Yr- 
inch feed there are three Yaie-inch feeds. To assure yourself 
that this three-to-one ratio actually comes out that way phys- 
ically, change the control code in line 60 so that a Ye2-inch 
instead of Yeie-inch feed is repeated by FOR Sl TO Z. You 
should get what we have in the right-hand portion of figure 
0-4; ¥%a16 inch = Ye inch, %16 inch = 3% inch, and %ie inch 
= ¥2 inch in the spacing of the dot and line prints. 

Now we have some answers to our questions. A Y216-inch 
line feed is so small that dots “separated” by such a tiny 
“space” overlap a great deal. In fact, they still overlap at %16 
inch, and seem to be touching each other at ¥%16 inch (de- 
pending on how consistent the line feed is) and 416 inch 
(depending on how well-inked your ribbon is). Clear sepa- 
ration doesn’t come until 5416-inch spacing. 

Recall from earlier chapters that the size of a single dot is 
pretty well standardized in most printheads at %2 inch. How 
big is a Yie-inch line feed, then? A third of a dot. If this 
seems too small to be of much use, remember that in com- 
puter graphics you're usually better off too small than not 
small enough—those “‘too small” things can be combined or 
repeated to make just the size you want. And as we'll see in 
the next chapter, the ultrafine spacing of 416 inch (or Yaa 
inch with the Apple printers) makes computerized drawing a 
whole new ball game. 

If we add several more FOR-NEXT loops to ULTHIRES 
that repeat the horizontal dots or some blanks, we’ll have an 
example of some dot-and-dash vertical lines. To make it more 
interesting, however, let’s expand line 120 so that it prints 


FIGURE 5-5. Patterned vertical lines of six different widths 
produced by %1e-inch (left) and %2-inch (right) blank line feeds. 
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horizontal dot groups of 1, 2, 4, 8, 16, and 32. The printouts 
are in figure 5-5. 


Oblique lines. Oblique (sloping or slanting) lines call for 
combinations of (vertical) line feeds and (horizontal) changes 
in the printhead’s position. Figure 5-6 has four examples of 
such combinations for TRS-80 printers. 

The first two examples show the difference in slope when 
Vo-inch instead of Yaie-inch line feeds follow the printing of 
a single dot. The third example shows how an oblique dotted 
line is produced when the printing of a single dot is followed 
by a horizontal change of two dot columns and a vertical 
change of 5416 inch. The sloping dashed line in the fourth 
example illustrates the use of a running counter, Y=Y+1, 


FIGURE 5-6. Oblique lines drawn by the DMP-400 printer. 


310 FOR N=1@@ TO 250: LPRINT CHR$(18) 3; CHR$(27) 5 CHRS(16) 5 CHRS(Q) § 
CHR (N) §CHRS (136) § CHR (27) 5 CHR$(51)5= NEXT N 


a 320 FOR N=1@0 TO 250: LPRINT CHR$(18) §CHR$(27) 5 CHRS(16) § CHRS(@) § 
“\ CHRS(N) } CHR$ (136) § CHR (27) §CHRS(5@) 52 NEXT N 


* 
» 


33@ FOR N=1@@8 TO 200 STEP 2: LPRINT CHR$(18) §CHR$(27) §CHRS(16)5C 
._ HR$(O) §CHRS(N) }CHR$(136) 32 FOR M=1 TO 5? LPRINT CHR$(27) 5CHRS$(51 
39 NEXT Mt NEXT N 


340 Y=10@: FOR N=i To 15: FOR M=i TO 5: LPRINT CHR$(27) 3 CHRS(16) 

= CHRS(@) }CHRS(Y) § CHRS( 136) § CHRS$(27) 5CHRS(51)52 Y=¥+1: NEXT Mi F 

OR G=1 TO 3: LPRINT CHRS(27) 3 CHR$(14) § CHRS(@) § CHRS(Y) § CHRS(128) § 
iss CHR$ (27) 3CHRS(51)5= Y=Y+1: NEXT Q: NEXT N 


FIGURE 5-7. How the spacing of dots 
in oblique lines changes with their slope 


(from program 5-2, SLOPES). 


inside two different FOR-NEXT loops, to control the posi- 
tioning of more complex lines. 

The biggest problem with oblique lines is how their dot 
spacing changes with their slope. Suppose we make a solid 
line with a steep slope by shifting to condensed (100 dots 
per inch) printing, a %-inch line feed, and a bigger dot print 
composed of a box of four dots, using STRING$(2,224) in- 
stead of CHR$(136). See how the steeply tilted solid line 
becomes a dotted line as the slope gets shallower (figure 5-7 
and program 5-2). 

You can go batty trying to make decent-looking solid lines 
stay that way when their slope changes a lot. When they are 
close to vertical, a box-type dot print produced by repeating 
a double-dot code once works fine, but as the slope de- 
creases, a bigger dot print, such as the three-by-three 
STRING$(3,156), will be needed to prevent blank space be- 
tween the prints. And when they get closer to horizontal, 
you ll need to shift from a boxy to an elongated print, such as 
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PROGRAM 5-2. SLOPES. Varying the slope of oblique lines. 


i1@ ’PROGRAM 5-2: "SLOPES" -- OBLIQUE LINES (TRS-80 MODEL III, DMP-400) 

20 LPRINT CHR$(3@) 5 CHRS(27) § CHRS (20) § 7CONDENSED PRINT DENSITY 
10@ FOR S=1 TO 7 

118 FOR Y=100 TO 25@ STEP S 


128 LPRINT CHR$(18) 3 CHRS(27) 5 CHRS(16) § CHRS(@) § CHRS(Y) SSTRINGS (2, 224) § 
130 PRINT Y 

148 LPRINT CHRS(27) 3 CHRS$(5Q) § CHRS(27) 5 CHRS(5@) § 72/72" LINE FEED 
15@ NEXT Y 

168 STOP 7(PAUSE WHILE PAPER IS SET BACK TO MARKED START POSITION) 
170 NEXT S 7(AFTER TYPING ’CONT’ TO RESUME PROGRAM) 


STRING$(10,224), to keep them from being dotted or 
dashed. The result will be a visual mess, or at least a big 
disappointment compared to the way oblique lines look 
when they are properly drawn by hand in graphs. 

If you want to keep things simple, stick to small dot prints 
for oblique lines and let them be dotted most of the time. If 
they turn into solid lines when they are steeply sloped, so be 
it. This is decidedly not the usual philosophy when it comes 
to oblique connecting lines in line graphs, however, and 
when we get to that topic in chapter 9, we'll see that we can 
get the computer and printer together to plot a dotted con- 
necting line with nearly equal spacing of the dots regardless 
of its slope. That chapter will also take up the even more 
important topic of how to draw a line between any two spec- 
ified points in a line graph. 

In the BASIC statements presented in figure 5-6 and pro- 
gram 5-2, conversions from TRS-80 to IBM-Epson and Apple 
codes will be needed for reserving graphic space, using dif- 
ferent dot codes, and using different control codes for line 
feeds and positioning. You can tell how much space to re- 
serve from the FOR statements. Again, see chapter 4’s con- 
version tables for the dot codes. Line feeds (without carriage 
returns) will need to be controlled. by presetting codes and 
executed by CHR$(10). Most importantly, the TRS-80's po- 
sitioning sequence (27+ 16+ N1+Nz2) has to be replaced by 
repeat-blank positioning on IBM-Epson printers, using 
STRING$(N,0) in conjunction with graphic-space reserva- 
tions and carriage returns, and by the 27+ “Fnnnn’ position- 
ing command on Apple printers. 
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Curved lines. Anytime that the rate of change in the print- 
head’s horizontal position does not stay the same over suc- 
cessive, equal-sized line feeds, we will get a curved line 
instead of a straight one. In chapter 2, we saw how low- 
resolution curves could be produced by LPRINT TAB(N) 
commands with sine and cosine functions providing varying 
values of N (figure 2-7; programs 2-1 and 2-2). Here you can 
see how high-resolution curves can be generated by the 
27+16+N1+N2 sequence (TRS-80), the 27+ “K’+NI1+ 
N2+STRING$(N,0) sequence (IBM-Epson), or the 27+ 
“Fnnnn” sequence (Apple), again using sine functions for 
varying N or nnnn. 


FIGURE 5-8. Bit-image curves drawn with mathematical 
functions on the DMP-400. 


N=700-5*X#X 


N=550+150#SIN(X) eee 
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There’s plenty of room for N (or nnnn) to vary if high den- 
sities are used in the bit-image programming. With the 15- 
inch TRS-80 DMP-400 in condensed printing, N can be any 
value from 0 to 1319. With the 9.5-inch Epson FX-80 in qua- 
druple density, N can vary from 0 to 1919. With both of these 
printers, N values need to be converted to N1 and N2 values. 
With the 9.5-inch Apple Imagewriter, nnnn can vary from 
0000 to 1280. 

Two examples of curves, plotted one at a time, are in figure 
5-8. These were plotted by the DMP-400 in 100-dots-per- 
inch density. The two equations stating how the positioning 
variable, N, varied with the number of small line feeds, X, 
are given in the figure. Considering the many built-in math- 
ematical functions that even the lowest-priced home com- 
puters have—the DMP-400 was controlled by Radio Shack’s 
little MC-10 in these two instances—there are endless vari- 
ations in curve drawing that can be programmed easily. 

You needn’t restrict yourself to plotting only one function 
at a time. With a program like FUNCJAZZ (programs 5-3 and 
5-4), you can amuse yourself for days drawing four curves at 
once. 


PROGRAM 5-3. FUNCJAZZ/TRS. Drawing four mathematical 
functions simultaneously on TRS-80 printers. 


iQ ’PROGRAM 5-3: “FUNCJAZZ/TRS"® -- PLOTTING CONCURRENT MATH FUNCTIONS 

°9 ’FOR TRS-80 PRINTERS AND TRS-80 MODEL III USING BOOTHE’S PRINTER DRIVER 
3Q LPRINT CHR$(3Q) 3 CHR$(27) 3 CHRS(20) § CHR$(27) §CHRS(31)§; *CONDENSED, BOLD 
40 P$=CHRS(27)+CHRS(16) 


5@ LPRINT CHRS(18) § "ENTER GRAPHIC MODE 

1@@ FOR X=-1@ TO 10 STEP .1 7(20@ X VALUES) 

110 A=5Q0+30*#S1N(X)+30*#C0S (2X) 715T FUNCTION 

120 B=8O0-6*X#X 72ND FUNCTION 

130 C=3@0+18*X+XC 2 7 SRD FUNCTION 

140 D=1060-(20+X)*(25+X) 74TH FUNCTION 

15@ PRINT X,A5° "5 B35" *5C5" "3 "HELPFUL SCREEN INFO 

142  GOSUB 230: LPRINT P$3CHRS(QA)+CHRS(AA) SSTRINGS (3, 142) § "PLOT A 
170  GOSUB 240: LPRINT P$3;CHRS(QB) 5 CHRS(BB) 5STRINGS(2, 152) § "PLOT B 
180  GOSUB 25@: LPRINT P%$3;CHRS(QC) §CHRS(CC) SSTRINGS(2, 134) § 7PLOT C 
190  GOSUB 26@: LPRINT P$3CHRS(QD) §CHRS(DD) STRINGS (2,176) § 7PLOT D 
200 LPRINT CHRS(27) 3 CHRS(5@) 5 71/72" LINE FEED 

210 NEXT X 

220 END 


230 QA=FIX(A/256): AA=FIX(A-256#QA) 2 RETURN 
240 QB=FIX(B/256): BB=FIX(B-256*QB): RETURN 
250 QC=FIX(C/256): CC=FIX(C-256*QC): RETURN 
260 QD=FIX(D/256): DD=FIX(D-256*QD): RETURN 
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PROGRAM 5-4. FUNCJAZZ/EPS. Concurrent math functions 
on the Epson FX-80. 


18 "PROGRAM 5-4: "FUNCJAZZ/EPS" -- DRAWING MATH FUNCTIONS ON THE EPSON FX-80 


20 ’FOR TRS-80 MODEL III USING BOOTHE’S PRINTER DRIVER 

3@ LPRINT CHR$(27)"9"; "MASTER RESET 

4Q GR$=CHR$(27)+"Z" 

3@ HOMES=CHR$ (13) +CHRS(27)+* j"+CHR$(3) "CARRIAGE RETURN 


6@ LPRINT CHR$(27)°3"CHR$(3); "SET 3/216" LINE FEED 
1@@ FOR X=-10 TO 10 STEP .1 "(208 X VALUES) 

110 = =A=500+30*SIN(X)+3Q*COS(2%x) "15T FUNCTION 

128 B=8@0-6*X#xX *2ZND FUNCTION 

130 C=300+18#X+XC2 "SRD FUNCTION 

140 = =D=1060-(20+X ) #(25+x) "4TH FUNCTION 


15@ PRINT X,A;° "335" "3Cg" 8S "HELPFUL SCREEN INFO 


160 GOSUB 230: LPRINT CHR$ (27) "D® CHRS( TAZ) CHRS(B) CHRS(9) $GR$$ CHRS(XA+3) $CHRS(D 


) STRINGS (XA, @) sSTRINGS(3, 54) SHOMESS 


170 GOSUB 250: LPRINT CHR$ (27) "D* CHRS(TBZ) CHR$(@) CHRS (9) $GR$$ CHRS(XB+2) | CHRS(Q 


) STRINGS (XB, @) sSTRINGS(2, 24) sHOMESS 


188 GOSUB 278: LPRINT CHR$ (27) "D" § CHRS(TC%) CHRS(Q) CHRS (9) $GR%$ CHRS(XC+2) $ CHR ( 


Q) §STRINGS (XC, @) sSTRINGS(2,3) SHOMESs 


199 GOSUB 298: LPRINT CHR (27) "D" CHRS( TDZ) CHRS(@) CHRS(9) $GR$$ CHRS(XD+2) § CHRS(B 


) STRINGS (XD, @) sSTRINGS(2,4) SHOMES; 
200 LPRINT CHRS$(1Q); 
210 NEXT X 
220 END 
238 TAZ=FIX(A/24)3 XA=FIX(A-24*TA%) = RETURN 
250 TBA=FIX(B/24): XB=FIX(B-24%TB%): RETURN 
278 TCA=FIX(C/24)2 XC=FIX(C-24*TC%)£ RETURN 
298 TDZ=FIX(D/24): XD=FIX(D-24*TD%Z)£ RETURN 
380 RETURN 


Program 5-3 is for TRS-80 printers and program 5-4 is for 
the Epson FX-80 in quadruple density. To guard against 
trouble codes, which are far more likely to be a problem in 
drawings of mathematical functions than in drawing situa- 
tions where the user chooses the dot codes, both programs 
use Boothe’s printer driver (program 3-4). Since the Epson 
printers don't have a direct-positioning command, a combi- 
nation of horizontal tabbing in text mode (the 27+ “D”’ + 
..+9 sequence) and fine tuning with repeated blanks in 
graphic mode is used in the four main print commands (lines 
160-190). With IBM-Epson printers limited to double den- 
sity, line 40 in program 5-4 should have its “Z” changed to 
“Y” and all the 24s in subroutines 230-290 should be 
changed to 12. For the range of X values used, the particular 
math functions chosen (lines 110—140) will stay within the 
margins of eight-inch printers whether they are plotted in 


FIGURE 5-9. Plotting 


o™ four different curves at the 

‘, same time (FX-80 printouts 

# ~ * from the FUNCJAZZ 

f % program for the Epson FX- 
: 80). 


double or quadruple density. Figure 5-9 shows the FX-80 
printout. 

If Boothe’s changes in the printer-drivers for the TRS-80 
Model I or III are not executed before the FUNCJAZZ/TRS 
program is run, or if the Model 4 or Model 100 is driving the 
printer, detour statements will need to be added to the four 
subroutines, to dodge around problem codes (see chapter 3). 
In plotting curves, you’d be well advised to use the form of 
detour that involves incrementing and backspacing, or else 
the curves will be jagged. 

Fooling around with multiple math functions this way is 
good practice for programming line graphs having several 
curves. For plotting different functions from those in the 
FUNCJAZZ programs, you can simply change the equations 
in lines 110-140. The range of X values can be changed just 
by altering what follows FOR X= in line 100, and you can 
vary the slopes of the curves by changing the number of 
times a %2-inch or Y216-inch line feed occurs between prints 
by wrapping the line-feed command of line 200 in a FOR- 
NEXT counter loop. 
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Mathematical Forms and Designs 


You can also use math functions to draw recognizable forms, 
such as circles and ellipses, spirals, flower- or butterfly- 
shaped figures, and “‘op art’ creations. 


Circular forms. In the Cartesian rectangular coordinate sys- 
tem (which we've been using in these recent examples), lo- 
cations of points on a curve are given by combinations of X 
(horizontal) and Y (vertical) numbers. If we let R stand for 
the radius of a circle, i.e., the distance between the center of 
the circle and any point on its circumference, the equation 
for a circle can be stated simply: 


X? + Y? = R? 


And if we solve this equation for Y (unsquared), we will get: 
Y = +VR? — S? 


In BASIC the right-hand side of this equation would be 
translated to positive and negative values of SOR(R*R-— 
X*X). To plot a circle on the Model III’s screen, you need 
only to vary X from the negative value of the radius, R, to its 


positive value, in small steps, and let X and Y vary in a pair 
of SET(X,Y) statements. 


PROGRAM 5-5. XYCIRCLE. Circle drawing with rectangular 
coordinates. 
10 *PROGRAM 5-5: "XYCIRCLE“* -- DRAWING CIRCLES OR ELLIPSES 


20 *FOR TRS-80 PRINTERS AND TRS-80 MODEL III (USING BOOTHE’S PRINTER DRIVER) 
38 CLS 


40 R=30 "R=RADIUS OF CIRCLE 

10@ FOR X=-R TO R STEP .1 

110) = =Y=SQR(R#R-X#X) "SOLVE CIRCLE EQUATION FOR Y 
120 = SET( 6441. 2X, 24+, 75*Y) *PLOT OF CIRCLE ON SCREEN 
13Q@ SET(64+1.2#X,24-. 75*Y) oo 7 7 


14Q@ REM -- INSERT ’GOTO 200’ HERE IF ONLY SCREEN DUMP IS DESIRED 
158 Y1=.9%(100+3*Y) 2 QY=FIX(Y1/256): YY=FIX(Y1-256#QY%) 

168 = -Y2=.9%(180-3*Y): QZ=FIX(Y2/256): ZZ=FIX(Y2-256#QZ%) 

178 = =LPRINT CHR$(18) § CHR$(27) § CHR$( 14) § CHRS(QY) §CHRS(YY) 3 CHRS( 136) § 
180 LPRINT CHR$(27) §CHRS(16) § CHRS(QZ) § CHRS(ZZ) § CHRS( 136) 3 

19@ LPRINT CHR$(27) 5 CHRS(51) 3 71/216" LINE FEED 

200 NEXT X 

205 REM -- INSERT ’GOSUB 220’ HERE IF SCREEN DUMP IS DESIRED 

21@ END 
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220 °*** DUMP FROM SCREEN TO PRINTER’S BIT-IMAGE BLOCKS (FROM PROG. 4-7) 44% 
230 DEFINT A-Z: DIM A(128, 48) 

248 LPRINT CHR$(30) 3 CHRS(27) § CHRS(28) §CHRS(18)5 >CONDENSED PRINTING 
258 FOR ROW=2 TO 47 

260 FOR COL=@ TO 127 

278 A( COL, ROW)=-( POINT (COL, ROW) ) 

282 NEXT COL 

298 LPRINT CHRS(3@) 5 ROW; 

30@ NEXT ROW 

31Q@ DC=143: SZ=4 

328 LPRINT STRING$(3,13) 5 73 SPACES 

338 FOR ROW=@0 TO 47 

348 FOR COL=@ TO 127 


3508 IF A(COL,ROW)=@ THEN LPRINT CHR$(18) SSTRINGS(SZ,128)5: GOTO 388 
378 IF A(COL,ROW)>@ THEN LPRINT CHRS(18) SSTRINGS(SZ,DC) § 

388 NEXT COL 

398 FOR Z=1 TO SZ: LPRINT CHRS(27) 5 CHRS(5Q)5= NEXT 2 "LINE FEED 


400 LPRINT CHR$(18) §CHRS(27) 5 CHRS(14) § CHRS(Q) 5 CHRS(O) 5 "CARRIAGE RETURN 
41@ NEXT ROW 
430 RETURN 


Program 5-5 (XYCIRCLE) plots circles or ellipses on the 
Model III screen and DMP-400 printer simultaneously. In 
this program the screen plotting is handled by lines 110-130 
and the printer plotting by lines 150-190. Both sets of lines 
are inside a FOR-NEXT loop that varies X from — 30 to +30 
in 600 steps. Whereas a new pixel lights up on the screen 
only every third or fourth step on the average, nearly every 
one of the 600 steps produces a print in a new location on the 
printer paper—this is the difference between low and high 
resolution. 


Figure 5-10 shows both plots. Although the left-hand draw- 
ing was obtained by a screen dump, the printer plot on the 
right was not. The mathematical functions produced one set 
of X and Y values for the screen drawing and another set of Y 
(actually YY and ZZ) values for the printer, while the printer 
paper moved one line feed for each X value. As long as the 
plotting on the printer was left to right all the way (X varied 
from smallest to largest values), there was no problem. 

We would have gotten an ellipse instead of a circle if we 
had multiplied Y values by some factor other than 3 in lines 
150 and 160. (Adding and subracting 3*Y from 100, by the 
way, made all values of Yl and Y2 positive so they would be 
accepted by the printer.) We could also have made the circle 
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FIGURE 5-10. Drawing a circle on the TRS-80 Model III screen (left) and 
on the DMP-400 printer (right) using rectangular coordinates (KYCIRCLE 
program). 


more elliptical by printing in elite or condensed pitches in- 
stead of the standard density of 60 dots per inch. 

Changes to be made in converting this TRS-80 version of 
XYCIRCLE to an IBM-Epson version can be determined by 
comparing the previous FUNCJAZZ programs (programs 5-3 
and 5-4). For the Imagewriter, the smallest line feed avail- 
able is Yisa inch and the values of the multiplying constants 
in lines 150 and 160 would have to be changed markedly 
because of the difference in line feed. Further changes, of 
course, would be needed for the screen plotting on IBM and 
Apple computers. 


Using polar coordinates. By and large, circular figures are 
easier to draw using polar coordinates instead of Cartesian 
rectangular coordinates. Whereas rectangular coordinates 
give the point’s location by telling how far it is from the X 
and Y axes, polar coordinates tell how far the point is from 
the center of a circle and what size of angle the line connect- 
ing that point to the center makes with the horizontal line 
lying immediately to the right of the center. (If you’re getting 
lost, don’t panic—examples are coming, and it’s not neces- 
sary to follow all this in order to use the programs). 

Some marvelous forms can be created with polar coordi- 
nates, and these drawings provide some of the most stunning 
contrasts between printer plots and low-resolution screen 
drawings. Compare the samples in figure 5-11, for example. 
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FIGURE 5-11. Comparison of Model III screen dumps (left) and 
DMP-400 printer plots (right) using polar coordinates in the 
POLARRAY program. 


In getting the printer to draw figures like these, we've 
crossed two important boundaries. Besides shifting to polar 
coordinates, we no longer have X values running nicely in 
order from left to right for the plotting. If you run the program 
for this below, you'll see the center of the figure light up first 
on the computer screen, and the drawing will continue on 
the screen going left, up, right, down—every which way in 
many loops. But the printer can’t go left except by reverse 
line feed, and using that for every move to the left would be 
a programmer's nightmare. In fact, if you were limited to %- 
inch and Ye2-inch reverse line feeds, as on the Radio Shack 
printers, the programming would be an impossible task. 
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So how did the printer (a TRS-80 LPVIII) do the drawings 
in figure 5-11? Again the answer is: not by screen dump. Both 
the screen and printer drawings were produced by a program 
called POLARRAY (program 5-6), for “polar array,” and 
“array is the key word here. 


PROGRAM 5-6. POLARRAY. Screen and printer drawings of 
math functions using polar coordinates. 


1@ "PROGRAM 5-6: “POLARRAY® WITH BOTH SHELL-METZNER & CMD "0" SORTS 

15 ’Copyright (c) 1985 by John Warner Davenport 

20 *FOR TRS-80 PRINTERS AND MODEL III (USING BOOTHE’S DRIVER) 

30 CLEAR 10000 

40 CLS: LPRINT CHRS(3@) §$CHRS$(27) 3 CHRS$( 28) § CHR$(27) §CHR$(31)$ *CONDENSED, BOLD 


38 AA=B: ZZ=12.6: SS=.93 "START, FINISH, STEP SIZE 

68 ST=INT((ZZ-AA)/SS) +1 "NUMBER OF STEPS (PLOTTED POINTS) 

7@ DIM Z$(ST),Y(ST) "SET ARRAY SIZES 

1@@ FOR A=AA TO ZZ STEP SS "VARIATION OF ANGLE (A) 

118 =A#COS(A) *#SIN(A) "RADIUS (R) AS A FUNCTION OF ANGLE 
120 X=64+6#R#COS(A)3 Y¥=244+2*#R*SIN(A) "CONVERSION TO X-Y COORDINATES 

130 H=INT(10#(X+18Q)) 2 V=INT(10*(400-4*%Y)) "CONVERSIONS FOR BIT-IMAGE PRINTING 
140 2¢$(1)=STRS(H)+STRS(V) "STORAGE OF H & V IN STRING ARRAY 

168 SET(X,Y) "PLOTTING OF FIGURE ON SCREEN 

178 = [=I +1 "INCREMENT Z$(1I) ARRAY SUBSCIPT 

18@ NEXT A *GO TO THE NEXT SIZE OF ANGLE (A) 

198 GOSUB 4820 "CHANGE TO ’GOSUB 1@@@’ FOR SHELL-METZNER 

288 GOSUB 3000 "PRINTING OF FIGURE ON PRINTER 

218 END 


1080 °#** SHELL-METZNER SORT OF Z$(1I) VALUES FOR COMPUTERS LACKING CMD‘O" xxx 
1010 CLS: PRINT "SORT STARTING AT “S3TIMES 

1020 P= 

1038 M=ST 

1040 M=INT(M/2) 

1050 IF M=@ THEN GOTO 1239 


1060 P=P+1 

1070 FOR BL=@ TO M-1 

1080 I=BL 

10990 J=BL+M 

1180 SW=@ 

1110) 36s IF 0 Z%(1)<=28(J) GOTO 1168 

1120 SW=1 

1130 BS¢=Z$(T) "IF BASIC CONTAINS *SWAP’ COMMAND, 
1140 72$(1)=Z$(J) "THESE THREE LINES CAN BE CHANGED 
1150 Z$(J)=BS "TO "SWAP 72$(1),Z$(J)’ 

1140 §I=J 

11780 3§=6JzJ+M 


1186 =6IF J<ST GOTO 1110 
1199 IF SW=@8@ GOTO 1210 
1288 GOTO 18808 

121@ NEXT BL 

1220 GOTO 1048 
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1238 PRINT “SORT DONE AT "5TIMES 

1248 RETURN 

2080 "xteeexeeee CONVERSIONS AND DETOUR FOR Y(I) VALUES #exeeeeeHe 

2010 QV=FIX(Y(1)/256)? YY=FIX(Y(1)-256#QY) 

2020 IF INT(YY)=9 THEN ZZ=VY+1: QZ=QY: LPRINT CHRS(27)§$CHRS(16) § CHRS(QZ) § CHRS( ZZ 
) §CHRS (30) § CHRS(8) § CHR$(2) § CHRS(18) § CHRS(136)53 ZZ=8: QZ=B8: GOTO 2040 

2038 LPRINT CHRS(18) 5 CHRS(27) § CHRS(16) § CHRS(QY) 5s CHRS (YY) § CHRS (136) § 

2040 RETURN 

JOGO 'eeeeeeeeee PRINTING AFTER SORTING & CONVERSIONS *####ee eee 

3810 KM=1095 

3828 K=1180 


3838 FOR I=@ TO ST-1 

3040 3 IF VAL(LEFT$(Z$(1),5))>K THEN LPRINT CHRS$(27) § CHRS(51) § CHRS(27) § CHRS(51) 5 
: KM=K: K=K+5: GOTO 3048 

395@ IF VAL(LEFT$(Z$(1),5))>KM AND VAL(LEFT$(Z$(1),5))=<K THEN PRINT Z$(I): Y( 
I) VAL (RIGHTS (Z$(1),4))/18-188: GOSUB 2010 

3068 NEXT I 

3878 RETURN 

4000 ’xxeexe TRS-8O MODEL ITI MACHINE-LANGUAGE RAPID SORTING *#ee4%# 

4018 I%=ST: CMD "0", I%, 2$(@8) 

4020 RETURN 


Lines 100-120 of POLARRAY generate the X and Y values 
that are plotted on the Model III screen by line 160’s 
PRINT@ (Model 4) or SET (Model III) statement. Using 
polar coordinates, line 100 provides for varying the angle (A) 
over 420 small steps, and line 110 states the mathematical 
function by which the radius (R) varies with the angle. (If the 
radius does not vary with the angle, that is, if R is a constant, 
the program draws circles or ellipses.) Line 120 translates 
the polar coordinates, R and A, into rectangular coordinates, 
X and Y, which are needed by both the computer and the 
printer for plotting. 

As the 420 pairs of X and Y values are fed into the 
SET(X,Y) drawing statement, the figure is plotted on the 
screen while the printer remains silent. During the screen 
drawing, all of the X and Y values are converted to string- 
type values, linked together (concatenated by a + sign), and 
stored in a string array labeled Z$(I). The array storage is 
provided by line 70’s DIM statement, the definitions of H 
(for “horizontal’’) and V (“vertical’’) in line 130, and the con- 
version to linked strings in line 140. 

The X values are converted to four-digit integers in line 
130 to make it easier to sort them in a later stage. The Y 
values have to be transformed into numbers that are in keep- 
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ing with the printer's numbering system for dot columns 
(multiplying by 4 does that) and subtracted from some con- 
stant (400 in this case) that is greater than the highest Y value, 
to avoid negative values. This subtraction also makes up for 
the fact that Y values for screen plotting are “upside down” 
—they range from 0 at the top of the screen to 48 at the 
bottom. Hence line 130’s 400 —4*Y. The counter in line 170, 
J=I+1, provides the subscript for the Z$(I) array. 

Here's the main trick for the plotting by the printer: After 
all the X and Y values have been stored, the converted X 
values are sorted from lowest to highest, and then the con- 
verted Y values are plotted in order of the X values. That 
way, the printer’s plotting proceeds in the usual left-to-right 
fashion; no backward line feeds are needed. 

The sorting is handled with dispatch by subroutine 4000, 
which makes use of the Model III’s wonderful utility called 
CMD “O” in line 4010. This machine-language feature, 
which can only sort one-dimensional string arrays, takes less 
than two seconds to sort the 420 values of Z$(I) on the basis 
of the ASCII codes of the first four digits (the “X compo- 
nent’) of each Z$(I) value. The order of the Z$(I)’s is of 
course changed by the sorting, but because of the linkage of 
the “Y component” to the “X component,” any information 
about Y values is carried along with X-axis information in the 
rearrangement of the array values. 

When it comes to printing the reordered array (subroutines 
2000 and 3000), the Y-axis values in the right-hand half of 
each Z$(I) value are “unstrung” in line 3050, that is, con- 
verted back to numerical values by VAL and RIGHT$ func- 
tions. As the subscript (I) is varied from 0 to 419 (and as a 
result, X values are varied from lowest to highest) by line 
3030, the Y values linked to each of the X values are rapidly 
printed in subroutine 2000. Line feeds (%16 inch) occurring 
at equal steps along the X axis are provided by line 3040 in 
conjunction with values of K and KM, which define the limits 
of a continually changing, narrow band of X values. As the 
narrow band travels over the entire range of X values, it 
alertly sniffs out all values of X that fall within the band, and 
after their linked Y values are printed, it moves on to the next 
position in the series. 

Computers not offering the handy CMD “O” utility for 
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sorting can sort by slower methods in BASIC, or even use 
the moving-narrow-band technique for searching instead of 
sorting. But if you have several hundred X-Y pairs to deal 
with, the search method may take over an hour. The best- 
known sorting technique in BASIC—the “bubble sort’ 
method—may take over half an hour (more or less, depend- 
ing on the number of pairs and their original order). The 
faster Shell-Metzner sort, however, will bring the sorting 
time down to a few minutes, particularly if computers faster 
than the Model III are used. Subroutine 1000 of the POLAR- 
RAY program uses this latter technique, providing a decent 
alternative to the CMD “O” method. For Model 4 users, 
there is now a method that is just about as fast as CMD “O,”’ 
thanks to Alan D. Smith (80 Micro, March 1985). 

POLARRAY is a versatile program for both screen and 
printer plotting of circular figures that are calculated by polar 
coordinates. For different figures—spirals, cardioids, flow- 
ers, many others—it’s mostly a matter of changing the func- 
tion in line 110. For some snazzy ones, David A. Kater and 
Susan J. Thomas (TRS-80 Graphics for the Model I and 
Model III, BYTE Publications, 1982) suggest trying R=.3*A, 
R=b*COS(SIN(6&#A)), R=b*COS(A)+2, or R=b*COS(e* 
SIN(A)). With large numbers of Z$(I) values, say, over a 
thousand, you may run into further delays (up to several min- 
utes) when the computer takes time out to reorganize its 
string storage in RAM; a generous provision for clearing 
string space, such as CLEAR 20000, will reduce the string- 
reorganization time somewhat. 

An IBM-Epson version of POLARRAY would require 
many changes in program 5-6, even those lines in the pro- 
gram concerned with mathematical manipulations rather 
than printing procedures. In the PC’s high-resolution graph- 
ics mode the pixels would be in a 200-by-640 matrix as op- 
posed to the TRS-80 Model III’s 48-by-128, so the main 
changes for the screen plotting would be the addition of 
SCREEN 2, using PSET(X,Y) instead of SET(X,Y), and 
a change in line 120 to X=320+21*R*COS(A):Y=100+ 
F*R*SIN(A). 

In the printer's plotting, the usual OPEN, WIDTH, and 
PRINT# should be used, along with double density. If posi- 
tioning is done with a combination of horizontal tabbing and 
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repeat-blank movement, line 2020 should be deleted and 
lines 2010 and 2030 changed to: 


eCOL0 HT=PIX(Y(1I)/le):GR=FIX(Y(1I)-12*HT) 

C030 PRINT #1, CHR$(27)"D"CHRS (HT) 
CHRS (0)CHRS$(9)CHRS$(27)"Y"CHRS(GR+1) 
CHRS$(0);STRINGS(GR,0O);CHRS(8) 


Complex math-generated figures. At higher levels of both 
mathematics and drawing, you can find several excellent pro- 
grams in the microcomputer literature. One of the best is the 
NETWORK program presented by Delmer Hinrichs in 80 
Micro (May 1983). Figure 5-12 illustrates the kind of draw- 
ings his program does on Epson printers in both BASIC and 
FORTRAN. The BASIC programs take up to sixteen minutes 
to print (compiled BASIC would reduce that by 75%), and 


FIGURE 5-12. One of the many different printouts produced by 
Hinrichs’s NETWORK program for IBM-Epson printers. 
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additional time for calculations, depending on the number of 
points or lines in a figure. 

By answering a few INPUT prompts, the user can draw 
pointed stars or polygons (in which the points of a star are 
joined by straight lines), and either of these can be enclosed 
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within a circle. The number of points can vary up to fifty, 
although figures having more than twenty-five points require 
a lot of time. If there is an odd number of points, the figure’s 
center will be open, as in figure 5-12; with an even number, 
the center will be closed (by lines drawn through it). Only 
the last five lines of Hinrichs’s BASIC programs need to be 
changed for printers other than the IBM Graphics or Epsons. 

Equally fascinating is the SYMMETRY program by David 
Kater in the Epson FX-80 manual (pp. 183-193). Using this 
program, you can produce printouts like the “op art’ creation 
in figure 5-13. Kater cleverly generates a two-dimensional 
pattern from a one-dimensional array, and his program lets 
you vary the number of repeated squares within the total 
pattern and size ratios within the squares. Although designed 
for the FX-80, his program will produce even more remark- 
able designs and optical effects if it is modified to run in 
bold-printed graphics on a TRS-80 or Apple printer (Figure 
5-13 is a printout by the DMP-400). The TRS-80 version, 
called OPTICART, is program 5-7. 


PROGRAM 5-7. OPTICART. “Op art” drawing by a printer 
(Epson-to-Tandy conversion of Kater’s SYMMETRY program for 
the FX-80). 


10 "PROGRAM 5-7: "OPTICART" -- EPSON-TO-TANDY CONVERSION OF KATER’S ’SYMMETRY’ 
28 LPRINT CHR$(30) §CHRS(27) § CHRS(31) 5 

30 DIM A(48@8): X=1: C=Q 

40 MAX=5: MIN@=1: RE=4: N= 

38 FOR J=1 TO RE 

60 N=N+1 

76 GOSUB 1800 

86 IF N<MAX THEN 68 

90 N=N-1 

1@@ GOSUB 1880 

110 IF NOMIN THEN 98 

120 NEXT J: PRINT 

130 FOR K=1 TO Cs PRINT A(K)$2 NEXT Ki PRINT: PRINT *C="C 
146 LAST=INT(C/7): R=C-7#LAST 

15@ FOR PASS=@ TO LAST: P=@: PRINT “PASS °PASS” OF “LAST 
168 H=6: IF PASS=LAST THEN H=R-1 

170 FOR DOT=@ TO H 

186) =o IF A(7#PASS+DOT+1)=1 THEN P=P+24(6-DOT) 

198 NEXT DOT 

208 GOSUB 5800 *CONVERT EPSON TO TRS-80 CODE 

218 P@=127-NTRS: IF PASS=LAST THEN P@=P0+1-2°7-R 

220 PRINT "P@="5PO 

230 LPRINT CHRS(18) 5 

240 FOR K=1 TO C 
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258 #8IF A(K)=1 THEN LPRINT CHRS(NTRS+128) § 
266 =IF A(K)<>1 THEN LPRINT CHRS(PO+128) 5 
278 NEXT K 

2808 LPRINT 

298 NEXT PASS 

3@@ END 

1088 FOR K=@ TO MAX-N 

1016 FOR L=1 TON 

1020 C=C+1: A(C)=XxX 

1036 NEXT L: X=1-X 

1040 NEXT Kt PRINT N53: RETURN 

3@8@ *CONVERSION OF EPSON TO TRS-80 DOT CODES 


3810 NEPS=P 

3820 FOR E=6 TO @ STEP -1 "(7 PINS, NUMBERED 6 TO @) 

5830 X(E)=NEPS-24E * (CONVERSION OF 

5@40 =F X(E)<@ THEN Y$(E)="0": GOTO 5068 * DECIMAL CODE 

3050 4 Y$(E)="1": NEPS=X(E) 7” TO BINARY FORM) 

3068 NEXT E 

3870 NTRS=64#VAL (YS (8) )+3Z2*VAL (YS (1) )+16#VAL (Y$(2) )+B#VAL (YS(3) )+44VAL (YS (4) )+2% 
VAL (Y$(5) )+VAL(Y$(6) ) "CONVERT TO MIRROR-IMAGE DECIMAL (TRS-80 CODE) 

3686 RETURN 


Drawing Pictures 


If you supply enough information to the printer, it will draw 
almost anything you want. But pay attention to those words 
“enough information” and get ready for some hard labor, 
because now we're talking about drawing things that can’t be 
described by mathematical functions. This means we won’t 
have the computer calculating most of the dot codes that are 
sent to the printer—somehow we have to come up with the 
codes ourselves. 


Simple line drawings. If we wanted to draw a curvy line 
with no particular mathematical form to it, we could just send 
a series of single-dot codes to fire pins that are next to each 
other, such as (on the IBM) 8, 4, 4, 2, 1, 2, 4, 8, 16, etc. In an 
actual program, we would have something like this: 


10 LPRINT CHRS$(2?7)"K"CHRS$(21)CHRS (0) 
"RESERVE e1 GRAPHIC COLS. 

20 LPRINT CHRS$(1b)CHRS$(32)CHRS$(32)CHRS(b4) 
CHRS (128)CHRS(b4)CHRS$(32)CHRS(16)CHRS(84) 
CHR$ (&)CHRS(4)CHRS(8)CHRS(8) 

CHRS (4) CHRS(2)CHRS$(2)CHRS(4) 
CHRS$S(&)CHRS(4)CHRS(8)CHRS(1b); 


and it would print something like the line in figure 5-14. 
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FIGURE 5-14. Wavy line produced by a series of twenty-one 
single-dot codes. 


For all that typing, a pretty skimpy output! If only we 
didn't have to keep repeating CHR$()! Well, we wouldn’t 
have to if we used READ and DATA statements—then we 
could just list the dot codes (DCs) in DATA lines and tell the 
computer to READ DC and LPRINT CHR$(DC). But even with 
that timesaver it'll usually take over five hundred dot codes 
just to draw a simple figure only an inch high. 

You can get an idea of how bad it is from the jack-o’-lantern 
drawing in figure 5-15. This illustration shows the DMP- 
400’s printout in actual size from a TRS-80 program that 
sends 630 DC values to the printer (nine print lines, each 
having seventy codes). A few lines of the DC values them- 
selves are shown under the drawing. 

This seems to be a line of work for people who like to hook 
rugs, read timetables, or break world records for domino 
chains. But even for those patient souls, there must be a 
better way. 

Again, there is. We could use the binary sum (BS) codes— 
on the average, they are smaller numbers that take up less 
memory space than the three-digit codes of TRS-80 printers 
—and change our print command from LPRINT CHR$(DC) to 
LPRINT CHRS$(BS+128). Also, every time we wanted to re- 
peat a dot code, we could have it preceded by another num- 
ber telling it how many times to repeat, instead of having to 
type the same code number over and over. We could also use 
a special number (higher than any of the dot-code numbers) 
for telling the printer when to start a new line. 

If we switched our DCs to BSs, used negative numbers for 
repeating, and used code 999 for a line feed and carriage 
return, all nine of our DATA lines for the jack-o’-lantern 
would fit in the space that only the first few lines in figure 
0-15 take up. That’s progress, but the program that runs these 
new DATA lines has to be designed to handle the repeating 
and end-of-line events as well as the LPRINT commands. It 
will need a distinction between how it treats a dot code that 
is preceded by a negative number and how it treats one that 


(ACTUAL SIZE) 


TRS-80 dot codes for the first five print lines 


128 128 128 128 128 128 128 128 128 128 128 1286 128 128 !28 128 
128 128 128 128 128 128 128 128 128 128 128 128 126 128 #128 128 
126 128 128 128 128 128 192 192 192 192 1286 128 128 128 128 128 
128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 
128 126 126 128 128 128 

126 128 1286 128 126 128 128 128 128 128 128 128 128 128 128 128 
128 128 128 128 128 128 128 128 128 128 #128 128 #128 128 128 192 
176 136 132 138 129 129 128 248 136 132 131 129 128 128 128 128 
128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 
128 128 128 128 128 128 

128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 
128 192 192 168 168 168 168 168 168 168 168 168 168 192 252 195 
192 192 192 192 192 192 255 192 168 168 16@ 168 168 168 168 168 
192, 128 128 128 128 128 128 128 128 128 128 128 128 #128 128 128 
128 128 128 128 128 126 

126 128 128 #128 128 128 128 128 128 128 224 144 13%) 132 138 129 
129 128 128 128 #128 128 128 128 128 128 128 128 #128 128 128 128 
128 128 128 128 126 128 128 128 128 128 128 128 128 128 126 128 
128 129 138 132 136 144 168 192 128 128 128 128 #128 128 #128 #128 
128 128 128 128 128 128 

128 128 128 128 128 128 128 128 248 135 1286 128 128 128 #128 128 
128 128 128 128 128 128 152 164 194 129 193 194 164 148 136 128 
126 128 128 128 1286 128 128 152 164 194 129 194 162 148 136 128 
128 128 128 128 128 128 128 128 129 134 184 192 128 128 128 128 
128 128 128 128 126 1286 


FIGURE 5-15. Printouts of a jack-o-lantern drawing and about 


half of the dot codes for producing this drawing (from program 
5-8, HALOWEEN). 


is not. It will also have to provide for the total number of 
lines to be printed. 

Program 5-8, called HALOWEEN, is a bare-minimum uni- 
versal program for printing a line drawing of almost any sort 
on TRS-80 printers when binary sums are used for DATA 
items. Notice the two different READ statements in this pro- 
gram. In line 110, READ N results in an immediate single print 
(by line 120) as long as N is not negative and not 999. In line 
130, READ M becomes operative (that is, a DATA code is la- 
beled M instead of N) whenever a negative N value has just 
occurred. 

That negative value of N is converted to a positive value 
by line 140’s LPRINT STRINGS (-N,128+M)—minus a minus 
is a plus. Placed before the comma in STRINGS, the con- 
verted N value gives the number of times the M code (in- 
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PROGRAM 5-8. HALOWEEN. Freehand drawing of a jack-o’- 
lantern. 


1@ *PROGRAM 5-8: “HALOWEEN® -- JACK-0’-LANTERN DRAWING 
2@ *FOR TRS-80 COMPUTERS AND PRINTERS (USE BOOTHE’S PRINTER DRIVER IF MOD. III) 
J@ LPRINT CHR$(3Q) § CHRS(27) § CHR$(23) 5CHR$(18)§$ "ELITE DENSITY, GRAPHIC MODE 


10@ FOR R=1 TO 9 "LOOP FOR 9 ROWS 

11@ READ N: IF N=999 THEN GOTO 1508 "READ CODE #, LINE FEED IF 999 

120 =60IF N=@ AND N<i28 THEN LPRINT CHR#(128+N)3: GOTO 110 "PRINT DOT-PATTERN 

13@ READ M "CODE WAS NEGATIVE, SO READ NEXT AND CALL IT M 

140 LPRINT STRINGS(-N,128+M)5: GOTO 118 *REPEAT-PRINT DOT-PATTERN 

15@ LPRINT CHR$(13);5 "LINE FEED & CARRIAGE RETURN 

16@ NEXT R 

178 END 

21@ DATA -38,0,—-4, 464, -28,8,999 

220 DATA -315,0, 64,485 85 45 25 15195 1125854535 19 -26,8, 999 

230 DATA —175O, 64,64, -10, 32, 64, 124,675 by 645 1275 64, -By 32,64, -21585999 

240 DATA ~10, Oy 96516585 45251415 -32,05 15254585 16532, 64,-14,8,999 

250 DATA —B, Oy 120, 74-12, By 24,5 36, 665 15655 66, 36, 20,8, —B5 Oy 245 36s by 15 66, 545 20,8,-9 
79,156,556, 64,-10,8,999 

260 DATA By Oy 1275-1650, 15-65 Os 965 245 by by 245 96, 205 Bs 96, 315-18, 08, 999 

270 DATA —B18, 1514, 112) -750, 4,8, 24,48, —3y BB, 325 B25 96 Dy 645 645.675 665 by 25-3, 06567 


964,644,085 96, 325 325 165 80.85 72, 365 285 by 25-3, Dy 965 SOs 15-11,8,999 

DATA “115057324, 325 325644 —-By By 2554 45-3495 12445 285 195 185195 165 285 45 2851751759 
985455505 15-3, 05645 32, 16,125 3,-14,0, 999 

DATA —16505151,-3, 25-7) 4,-18,85-85 4y-3y 25 1515-19,0,999 


creased by 128) is to be repeated. If the 28+ N sequence had 
been used for repeating instead of the STRING$ function, 
line 140 would have been LPRINT CHRS$(28);CHRS(-N); 
CHR$(M+128);: GOTO 110). If FOR-NEXT had been used, 
the loop for repeating would have started with FOR X=] 
TO -N. 

If we substitute another set of DATA statements for those 
in HALOWEEN and adjust the FOR-NEXT statement in line 
100 to accommodate a larger number of print lines, we’ll get 
a different drawing. The cartoon drawing of Dennis the Men- 
ace in the first chapter (figure 1-2) was done using a program 
that was nearly identical to the HALOWEEN program, but 
with twenty-nine DATA statements instead of nine and 
twenty-three print lines instead of nine (thus line 100 was 
FOR R=1 TO 23). If you want to type in the DATA lines and 
see for yourself, you'll find all the codes for the cartoon in 
appendix A (program A-1, ““DENNIS’’). 

With a program like HALOWEEN, you're not restricted to 
bare line drawings that have no shaded or darkened areas. 
Another set of codes in place of the jack-o’-lantern codes 


FIGURE 5-16. With a different set of DATA lines, 
the HALOWEEN program produces this penguin. 


produces the penguin drawing in figure 5-16. In this case, 
using a lot of five-, six-, and seven-dot codes (BS codes of 
124, 126, and 127, respectively), we get a figure that has 
about equal areas of black and white. 

By now you should be wondering: how do we come up 
with the dot codes in the first place? This is the same as 
asking how we digitize a drawing, that is, how we convert 
the lines and shapes of the original drawing to a set of num- 
bers representing the printer's different dot patterns. In 
screen graphics, you can use a tool connected to your com- 
puter called a digitizer to generate the screen locations by 
manually tracing a drawing or doing freehand sketches on 
the surface of a “touch pad” (e.g., Koala Technologies’ Touch 
Pad or KoalaPad). More advanced devices, such as the 
ThunderScan digitizer recently introduced for the Apple Ma- 
cintosh, have eliminated nearly all the manual work, so you 
can digitize a drawing or photograph in an automatic scan- 
ning fashion. And with a screen-dump utility, of course, 
whatever is created on the computer's screen by these meth- 
ods can be transferred to a printer. 

But let’s assume that your system doesn’t have either an 
automatic or semiautomatic digitizer, and you don't want to 
do printer graphics by screen dump (even with the Macin- 
tosh’s nifty screen graphics) in the first place. With these 
conditions you are forced to work out a completely manual 
method for converting the visual elements of a drawing to a 
series of dot codes. 

For a simple freehand drawing, a good way to start is to 
make a rough pencil sketch on a piece of graph paper that 
has eight or ten squares per inch. An even better way is to 
use the printer to produce long sheets of coding paper having 
seven-by-seven matrices of open circles. You can see what 
these look like in figure 5-17 and figure 5-18 and how to make 
them with program 5-9, GRID7X7. If your printer has a well- 
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FIGURE 5-17. 


Coding sheet for digitizing the jack-o’-lantern 


drawing. The seven-by-seven matrices of open circles are 


produced by program 5-9, GRID7X7. 


Printing a coding sheet for 


PROGRAM 5-9. GRID7X7. 


digitizing. 


"GRID7X7" -- FOR MAKING 7-BY-7 CODING SHEETS 


1@ *PROGRAM 5-9: 


15 "FOR TRS-8@ WIDEBODY PRINTERS (FOR EIGHT-INCH PRINTERS, CHANGE °18” TO 711? 
16 "IN LINE 188 AND SHORTEN LINE 198 TO 770 REPETITIONS OF CODE 129) 


2@ CLEAR 22800 


"CR WITHOUT LF 


3Q POS=CHRS (27) +CHRS$( 16) +CHRS(B)+CHRS(Q) 


40 DOS=CHRS (18) +CHRS( 156) +CHRS (162) +STRINGS (6, 193) +CHR$( 162) +CHRS (156) 


3@ INPUT "NUMBER OF 7-DOT ROWS" $RW 


5 CHR$ (20) 


"CONDENSED PRINTING 


CHR$ (27 ) 


6@ LPRINT CHR$(30) 


100 FOR X 


118 


=1 TO RW 
FOR L=1 TO 7 


LPRINT PQ$5 


128 


FOR Y=1 TO 18 


130 


FOR Z 


148 


1 TO 7: LPRINT DO$$: NEXT Z 


"VERTICAL LINE SEPARATING MATRIX UNITS 


LPRINT CHR$(255) 5 
NEXT Y 


158 


162 


LPRINT CHR$(13) 5 
NEXT L 


1708 


188 


29) sSTRINGS (250, 


STRINGS (258, 1 


129) 


LPRINT P@$;STRINGS( 252, 


198 


STRINGS (25, 129) 


"HORIZONTAL LI 


CHRS (51) § 


129) STRINGS (200, 129) ; STRINGS (48, 129) § CHR#(27) § 


NE SEPARATING ROWS 


200 NEXT X 
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worn ribbon or one with a light-colored ink, the drawing will 
stand out more clearly than if the circles are printed in heavy 
black, and this will make coding easier. 

Figure on drawing your original sketch about ten times 
larger (in height and width) than the final printout; if you 
want the figure in the printout to come out around two inches 
high, then make the sketch about twenty inches high. Also, 
leave an inch or so of blank area around all four sides of the 
drawing, in case you want to print it in a black-white rever- 
sal. If your coding sheet isn’t wide enough for the large 
sketch, glue two or several of the sheets together, as needed. 

After you ve decided on the final location of every line in 
the sketch, number the rows and columns of seven-by-seven 
squares in a fashion that is similar to the numbering of the 
coding sheet for the penguin drawing. If you plan to print 
the figure so that its vertical axis is parallel to the edge of the 
printer's paper, consider the rows to be print lines, each 
seven dots high. Unless there are too many codes in a print 
line to fit into a single DATA statement, the numbering of 
the print lines can also correspond to the numbers used in 
the program for DATA lines. For that reason, it’s a good idea 
to start the numbering well above the number of the last line 
of the main program—notice that the numbering for the jack- 
o -lantern and penguin starts at 210. 

If you want the vertical axis of the figure to be at right 
angles to the paper's edge, visualize the printhead as sweep- 
ing up the columns, instead of across the rows, of the coding 
sheet, and turn the sheet ninety degrees for the coding. In 
the case of the jack-o’-lantern we had nine rows of seventy 
dot columns (ten seven-dot-column groups) each in a “paral- 
lel” orientation. If we had used an orientation turned ninety 
degrees, we would have had ten “rows” of sixty-three dot 
columns (nine seven-dot-column groups) each, with the 
pumpkin’s head pointing to the right. 

Next comes an important step and one that is easy to glide 
over too hurriedly: filling in the tiny circles of the coding 
sheet so that each of them represents what will be a printed 
dot in the final product. Within each seven-by-seven matrix 
you have to make a firm decision about which dots in each 
dot column you want to turn on and which you want to re- 
main blank. Often a line of the drawing will run exactly be- 
tween two of the open circles, and you may feel at a loss to 
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decide which of the two should become dot locations or 
whether both should. It may not matter in the long run, be- 
cause the printout will be so much smaller than the drawing 
for the coding, but the point is that if you don’t decide one 
way or another, you won’t know which dot-code number to 
assign in the digitizing. 

The hardest work, of course, is that digitizing. To make it 
easier, you should fill in the open circles fully with a dark 
pencil where dot locations are to be, and unsmudge where 
you ve made erasures or vague lines, so that you have the 
maximum visual contrast between “dot” circles and “blank” 
circles. (If you’re using graph paper, read “squares” for “cir- 
cles.’’) 

From that point on, the procedure is simply to go from one 
dot column to the next, determining the dot code of each. If 
you ve never done this before, you may need to have figures 
4-3 and 4-7 to refer to for translating the dot patterns into dot 
codes, but mainly for psychological comfort. The fastest way, 
clearly, is to memorize the binary bit values of each dot lo- 
cation in a dot column (i.e., on TRS-80 printers, the sequence 
1, 2, 4, 8, 16, 32, and 64 for the top through bottom dot loca- 
tions, respectively), and get the dot code by adding these bit 
values in each dot column. For example, if you want the top 
and bottom pins of the printhead to print dots, then the code 
is simply the sum of 1 (top pin) and 64 (bottom pin), or 65; if 
you want the middle three, then it’s 4+8+16, or 28. 

You ll want to do all these additions in your head to save 
time, and this isn’t too difficult after some practice as long as 
you re dealing with only seven-dot columns that have code 
numbers from 0 to 127. But if you have eight pins to cope 
with, the task suddenly becomes twenty times harder and 
more maddening, because now the range is doubled (0 to 
255) and you may often have to deal with adding combina- 
tions such as 128+64+4+2+1 or 2+8+16+32+128. This 
should be fair warning to IBM-Epson and Apple users; they 
will be wise to stick to seven pins even though their printers 
have eight that are addressable. There is another advantage 
to the seven-pin approach, too—free and easy translation of 
TRS-80 codes to IBM-Epson or Apple codes and vice versa 
(see programs 4-2 and 4-3). 

In digitizing simple drawings such as our jack-o-lantern 
and penguin, things usually proceed smoothly if you do one 
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row at a time, writing down each dot code or each repetition 
of a dot code (using the negative-number repeating device) 
on lined notebook paper, and typing all the codes into DATA 
statements at some later time. If you divide each row into 
seven-dot-column units in accordance with the straight lines 
on the coding sheet (these should be inked by hand if you're 
using graph paper), and check to make sure that you have 
exactly seven dot codes written down for each of these units 
before going on to the next, you're much less likely to make 
coding errors. You'll also be in an easier position to check 
your written codes against a listing of the codes you typed 
into the computer. 

This practice is illustrated in the coding for the penguin 
drawing in figure 5-18 (the procedure was not followed in 
the coding of HALOWEEN). Notice in the DATA lines of 
figure 5-18 that, except for the consecutive blanks at the be- 
ginning and end of each row, the coding is chopped into 
seven-code units. In line 230, for example, the first two units 
having fourteen codes (—8, 0, 32, —5, 112) are followed by 
the third unit (—6, 112, 120), the fourth unit (120, —2, 124, 
—3, 126, 127), and the fifth unit (—7, 127) of seven codes, 
even though all five units could be condensed to —8, 0, 32, 
—1], 112, —2, 120, —2, 124, —3, 126, —8, 127. While more 
laborious, this seven-code-unit method saves a lot of time 
later in editing, not only by reducing the number of coding 
errors, but also by making it easier to spot where they have 
occurred. 

If you are digitizing in order to copy a drawing instead of 
starting with a freehand sketch, the techniques can be much 
the same, except that you will probably need to start with a 
tracing that is a lot smaller than the drawing on the coding 
sheet. If the tracing is done on a piece of see-through graph 
paper, you can do the necessary enlargement by letting each 
square of the graph paper be represented by a seven-by- 
seven square matrix of circles or squares. The penguin, for 
instance, was constructed from a tracing of a figure that was 
originally only about two inches high, and the tracing was 
made on a small piece of graph paper having eight squares to 
the inch. Then, using the old-fashioned eye-and-hand 
method, the lines of the tracing were translated to the lines 
of the enlarged coding sheet in a square-by-square manner, 
as indicated in figure 5-18. This method can, of course, be 


DATA statements 


218 DATA -78,8,999 
2280 DATA -70,8,999 


230 DATA 8585 325-59 1125-6, 112,128, 128, —2y 124, —3y 126, 1275-74127» 
—39 127, —-2, 126, 124, 128, 112, 96, -24,8,999 


248 DATA ~115Be ly ly So 397079159155 314 635-55 127967919 4s 145 4,8, -35 1 
93539 159-45 127, —4, 127, 126, 128, 96, 54, -20, 8, 999 


258 DATA ~229 8515357515. 31,118,-7,8, 8,54, 112, —4, 1275-75 12791279 1 
26, 124, 128, 96, 64, —-15.8,999 

268 DATA -23,8s9bs 165 149 25 14-7489 By S34 —-5y 1279-79 127 9 Gy 1279 1 2G 
26,112,-12,0,999 


278 DATA —215@8. 1125 155-5, By—74 Oy Oy By 3y 155635 —2y 1279 -7y 127 9-79 127 
»—32127,1280,-3,8,-7,0,999 


288 DATA —195O, 1125 155-7589 —-74 8, —-5 4 Bs 15 159-79 1274-74 1279 —4y 127, 
26, 8,8,-7,8,999 


298 DATA —1858,112,1518,-7,8,-7,8,—-5 By b4y 1275-75 1273-79 1279-5 yl 
27+1286,8,-7,0,999 


380 DATA —18, 8s 127,0,0,-7,0,-7,0,8, 64,5 1125 128, 126, —2y 127-75 127, 
—-79127,-64 127, 124, -7,8,999 


: 319 DATA ~18,@8,127,0, 0,-7.8, -—6, 8,112, 1265 —by 1275 634155 1155-4, 127 
‘ 9—-79127,-7,127,-7,8,999 

Ree 320 DATA —185 8s 35 1244 By —74 By —6y By 1275-55 1275 159 19 9s 1265-55 127, — 
79127.-551275 15515-7,8,999 


338 DATA ~19385 15145 48,64, -54 0s —6y By 1279 —4y 1275 155 Oe By —79 127, -7, 
127, -3:127,7,-3,8,-7,8,999 


348 DATA ~ 2298s 106 Bs 485 964 By —4y By 1435 79 39 Ly 39 Bs 79 315 639-45 127, 
—-7127,-3,127, 128,-3,8,-7,8,999 


1 358 DATA ~279O9 19192125 4-348, By By 72 6Oy 125 745 58999 15919 7995749, 
7395757 ¥ 39393079 79 79-39 155 145 129 By -7, 8,999 


Hand tracing 


he 

Weg 

<1 
av. 


368 DATA —29 Bs by —-5 935 79 69 35-39 39-39 2, 19-2158, 999 


378 DATA -78,8,999 


FIGURE 5-18. Original hand tracing (left), coding sheet (center), and DATA statements (right) for the penguin drawing. 
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used for enlarging a small freehand drawing as well as a 
tracing. 

In using a seven-by-seven matrix unit in our coding sheet, 
we are assuming that the print density will be set so that the 
ratio of horizontal to vertical distance in the printout will be 
one-to-one. This means we should use the elite (72-dots-per- 
inch) density on TRS-80 printers, and similar densities on 
IBM-Epson and Apple printers. The penguin printout in fig- 
ure 5-16 was made with the elite density for the DMP-400, 
set by LPRINT CHR$(27);CHR$(23);. What-happens when 
the same set of dot codes is printed in different densities is 
shown by figure 5-19. 


Condensed Elite Standard 


Elongated—Condensed Elongated-Elite Elongated-Standard 


FIGURE 5-19. In digitizing, you need to know which print 
density will be used in printing the final product. Here, the 
penguin, designed for the one-to-one elite density, is printed in 
all the other densities of the DMP-400. 


As you can see, you'd better know ahead of time how you 
intend to print a picture before setting up the coding sheet. 
If you want to use the DMP-400’s standard density for print- 
ing (60 dots per inch) and you don’t want it to look distorted, 
then a six-by-seven matrix of circles or squares should be 
your basic unit in the coding sheet instead of the seven-by- 
seven matrix we ve been using. 
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How easy are black-white reversals of whole pictures? Just 
as easy as with the little black arrow back in chapter 4 (figures 
4-4 and 4-5). Simply change LPRINT CHRS$(128+N); to 
LPRINT CHRS$(e55-N); in the program line that prints single 
dot patterns and LPRINT STRINGS$(-N,128+M); to LPRINT 
STRINGS (-N,255-M); in the line that repeats a dot pattern. 
Figure 5-20 shows how the penguin and some more products 
of HALOWEEN-type programs (called DAGWOOD and 
RABBITS) are transformed in this fashion. 

For larger and more complex line drawings, we need to 
refine our procedures in several ways. First of all, we'll get 
better pictures, because of higher resolution, if we use a 
more condensed density than either of these. For the DMP- 
400’s highest density (100 dots per inch) or the Imagewriter’s 
“Elite” density (96 dots per inch), ten-by-seven matrix units 
work well, and the IBM-Epson double density (120 dots per 
inch) calls for a twelve-by-seven size. For the Imagewriter’s 
highest density (160 dots per inch), we should increase that 
to about eighteen-by-seven, and for the Epson FX-80’s qua- 
druple density (240 dots per inch) to twenty-four-by-seven. 

If we use the ten-by-seven ratio for the DMP-400, we’ll 
need a coding sheet or graph paper having vertical lines 
every ten dot columns instead of every seven. Three small 
changes in GRID7X7 (program 5-9) will convert it to 
GRID7X10—with widebody printers, change 18 to 13 in line 
130, 7 to 10 in line 140, and 60 to 100 in line 190. 

Unless we compress the circles or squares so that ten of 
them take no more horizontal space than seven did before 
(which would make it a lot harder to distinguish dot col- 
umns), we will have to make our enlarged drawing from a 
tracing of a distorted one—about 40% fatter than normal. 
This is not too difficult to do if, as before, you make the 
enlargement in a square-to-square (now square-to-rectangle) 
fashion. 

Figure 5-21 shows how you can trace a photograph of your 
favorite cat and blow up the tracing for a ten-by-seven coding 
sheet. In this case an eight-by-ten-inch photograph was 
traced, and the grid of the tracing paper was only four squares 
per square inch, so the degree of enlargement vertically was 
only about 25%. Horizontally, it had to be doubled to fit the 
ten-by-seven coding format. 

The digitizing was done as before, except that groups of 
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FIGURE 5-20. Once you work out the dot codes, you can 
manipulate them in various ways. The easiest way is illustrated by 
these black-white reversals. (Dagwood reproduced with special 
permission of King Features Syndicate, Inc.) 


ten rather than seven dot columns were coded in each line. 
After all fifteen rows of 180 codes each were digitized in 
handwritten form, other refinements were introduced in the 
arrangement of DATA statements (see program 5-12 on pages 
154-155). The whole drawing was divided horizontally into 
three segments of sixty dot columns each, to prepare for en- 


Hand tracing of photograph 
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FIGURE 5-21. Digitizing for the DMP-400’s condensed (100- 
dots-per-inch) density. In working out the codes for this tracing of 
a photograph (upper part of figure), each square of the tracing is 
translated to a ten-by-seven rectangle of the coding sheet (lower 
part of figure), resulting in an enlargement that is distorted. 


tering, printing, and editing the dot codes for one third of the 
drawing at a time. 

For the left third of the figure, automatic line numbering 
of the DATA statements was started with the command AUTO 
210, and the first sixty dot codes of each print line were 
entered. Thus DATA lines 210, 220, 230, and so on were 
used for the first sixty codes of the first, second, third, etc., 
print lines, respectively. As these were typed in, they were 
placed after DATA —3, 127, so that every print line would 
start with a solid vertical line; this served as a check on car- 
riage returns. Then, after the command auto 214, the end- 
of-line codes were entered in the form DATA 999 in lines 219, 
229, 239, and so forth. 

Next, the left third of the drawing was printed, using a 


HOW TO DRAW WITH DOTS 147 


main program that was an enhanced version of HALOWEEN 
called WHITECAT. One of its enhancements was the addi- 
tion of a byte counter that would count every dot pattern 
printed in a print line. Another was changing the FOR R=... 
statement in line 100 so that R (row) values would conform 
to the numbering of DATA and print lines. Then, just after 
the end of each print line (or partial print line, before the 
drawing was completed), a print of the line number and the 
number of codes printed was introduced, so that editing 
would be even easier to do. 

The printouts in figure 5-22 show how the construction and 
editing of the picture proceeded as the middle and right- 
hand segments were added. In the upper left part of the 
figure is the printout after the first third of the codes were 
entered. You can see in this example how clearly coding 
errors showed up, how easy it was to identify the lines in 
which they occurred, and how many missing or extra dot 
codes they involved. After all the errors were corrected, the 
upper right printout verified that all lines had the same num- 
ber of bytes, so that work on the middle third could start. The 
dot codes for that segment were entered (using AUTO 213 and 
lines 213, 223, 233,..., 353). These were displayed in a 
printout to find coding errors, and the DATA lines were 
cleansed of those errors before proceeding to the final seg- 
ment (see the two middle figures). When the final set of dot 
codes was entered (in lines 216, 226, 236,..., 356), three 
codes for another vertical line (— 3, 127) were added to pro- 
vide another check on the byte count in each print line. The 
lower right printout in figure 5-22 shows the final product 
after the third stage of editing. 

The digitizing labor may seem more worth the eftort if you 
consider an original set of codes to be merely a foundation 
on which to build more creations. Figure 5-23 shows several 
ways we can use or modify a set of dot codes to produce 
distinctly different printouts. Notice in the upper left print- 
out in this figure that our WHITECAT codes produced a 
white cat with black whiskers and their reversal (upper mid- 
dle printout) produced a black cat with white whiskers. Since 
white cats and many black cats in the real world have white 
whiskers, the reversed version of the cat came out looking 
more like a real cat than the original white cat did. But the 
reversal of the eyes and the blackening of the background 


Before editing: After editing: 


First segment 


Middle segment added 


A 


All three segments 


FIGURE 5-22. When the number of dot codes in each print line is over a 
hundred, spotting errors in coding and correcting them is much easier if you 
do the drawing in left-to-right segments. Here the codes for WHITECAT are 
entered and edited in left, center, and right thirds of sixty codes each in 180- 
code print lines. Three codes are added for vertical lines at the beginning 
and end of each print line for checking carriage returns and line lengths. 
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area around the cat still rendered the reversed version pretty 
unrealistic. 

Another program, called BLACKCAT, remedies these 
shortcomings mainly by changing some of the 0 codes that in 
the reversal come out black to 127 codes that print blank, and 
vice versa. This double reversal was applied to the upper 
part of the background and the cat’s eyes; some of the back- 
ground was changed to dark shading (by alternating dot 
codes 42 and 85 or repeating the series 73, 18, and 36) so that 
the white whiskers would still show up against a dark back- 
ground (upper right printout). No more than a quarter of the 
original WHITECAT’s dot codes were changed, some by re- 
typing entire DATA lines and some by merely inserting short 
sequences of codes in the original lines. The dot codes were 
subtracted from 255 instead of being raised by 128 so that 
unchanged codes would continue to print in black-white re- 
versal. 

Three more printouts in figure 5-23, displayed in the bot- 
tom row, were produced by returning to the WHITECAT 
coding sheet and adding stripes and other markings. The 
codes in the WHITECAT program were changed accord- 
ingly to create a new program called TABBYCAT. 


FIGURE 5-23. A variety of printouts from the WHITECAT program and 
its modified versions, BLACKCAT and TABBYCAT. Screen tints 
(“bendays’”) were added to the last two printouts (bottom row). 


WHITECAT WHITECAT BLACKCAT 
original reversed double 
reversa) 


TABBY CAT TABBYCAT TABBYCAT 
original with benday with cut-out 
added benday 
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The bottom left printout is from TABBYCAT, as produced 
on the printer without any manual finishing touches. Its main 
purpose is to show how much more detailed a bit-image 
drawing can be when you use a print density that is higher 
than the one used in the jack-o’-lantern and penguin draw- 
ings. The center panel shows what happens when you apply 
one of the favorite tricks of cartoonists—adding a screen tint 
(also called a “benday”) to produce a medium gray. After all, 
most tabby cats are gray with black markings. In the right 
panel we have an even prettier tabby that is gray with black 
and white markings, in which parts of the gray benday mate- 
rial have been cut out with an artist’s knife to expose the 
white paper underneath. We’ll soon see other ways of getting 
grays without adding these plastic tints by hand. 

All of these recent programs—HALOWEEN, PENGUIN, 
DAGWOOD, RABBITS, WHITECAT, BLACKCAT, and 
TABBYCAT—are merely the offspring of a generic line- 
drawing program for TRS-80 printers called LINEDRAW. 
Three different versions of this program are presented in 
programs 5-10, 5-11, and 5-12, for Tandy, IBM-Epson, and 
Apple printers, respectively. These programs contain all the 
enhancements that we noted in the transition from HAL- 
OWEEN to WHITECAT, and some additional features. 

They also contain dot codes for three different drawings 
which are all designed for TRS-80 printers but will run on 
IBM-Epson and Apple printers as well. LINEDRAW/TRS 
has the DATA lines from DAGWOOD, which was digitized 
for 100-dots-per-inch printing. At the nearest lower density 
of the FX-80 (90 dots per inch) the Dagwood figure will be 
somewhat fatter than normal, and at the next higher density 
(120 dots per inch) it will be too thin; with Apple printers 
there will be little discrepancy when you use 96 dots per 
inch. LINEDRAW/EPS has dot codes of another cartoon 
from a program called WHITEDOG. These codes were pro- 
grammed for 60 dots per inch on TRS-80 printers and are 
followed by a code-conversion subroutine in LINEDRAW/ 
EPS that can be used with any seven-bit TRS-80 or Apple 
codes; the subroutine is a slightly modified version of 
TRSTOEPS (program 4-3). If you need to convert eight-bit 
Apple codes to IBM-Epson codes, use the EPSTOAPL sub- 
routine (program 4-2) in reverse. LINEDRAW/APL presents 
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the data codes from the WHITECAT program, designed for 
100-dots-per-inch density. 

At this point our LINEDRAW programs are only a little 
more sophisticated than the similar programs in the Epson 
and TRS-80 printer manuals. But if we take things further, 
we may get closer to more “photographic” drawings. 


PROGRAM 5-10. LINEDRAW/TRS. Universal line-drawing 
program for TRS-80 printers. 


1@ PROGRAM 5-10: "LINEDRAW/TRS® -- UNIVERSAL LINE DRAWING PROGRAM 

15 Copyright (c) 1985 by John Warner Davenport 

20 "FOR TRS-BO COMPUTERS AND PRINTERS (USE BOOTHE’S PRINTER DRIVER IF MOD. III) 
3@ CLEAR 1680 7(NOT NECESSARY FOR MODEL 4) 

40 DEFINT CyM,NyR,Z >(TO SPEED UP PRINTING) 

S5@ INPUT "BLACK-ON-WHITE (B) OR WHITE-ON-BLACK (W)"$BWS 


6@ LPRINT CHR$(3) 3 CHRS(27) § CHRS(28) § *SET CONDENSED PRINT DENSITY 
78 LPRINT CHR$(18)5 7ENTER GRAPHIC MODE 


180 
118 
1208 
130 


148 
158 


168 


178 


188 


278 


280 


FOR R=21@ TO 450 STEP 10: C=0 LOOP FOR 25 ROWS, RESET COUNTER 
READ N: IF N=999 THEN GOTO 178 "READ CODE #, LINE FEED IF 999 
IF BWS="B" AND N>=@ AND N<128 THEN LPRINT CHR$(1284+N)3: C=C+1: GOTO 118 

PRINT DOT-PATTERN AND ADVANCE BYTE COUNTER 
IF N>=@ AND N<128 THEN LPRINT CHR$(255-N) 3% C=C+1: GOTO 118 

’PRINT IN BLACK-WHITE REVERSAL AND ADVANCE BYTE COUNTER 
READ M "CODE # WAS NOT POSITIVE OR ZERO, SO READ NEXT 
IF BW$="B* THEN LPRINT STRINGS(-N, 128+M) 5: C=C+ABS(N): GOTO 118 

>REPEAT-PRINT DOT-PATTERN AND ADVANCE BYTE COUNTER 
LPRINT STRING$(-N,255-M)$= C=C+ABS(N): GOTO 110 

*REPEAT-PRINT WHITE-ON-BLACK AND ADVANCE BYTE COUNTER 

PRINT "BYTE COUNT FOR ROW'3R3" ="5C2 LPRINT STRINGS(5, 128) sCHRS(3Q@)5R5"  * 
3C§CHRS(18)5 
FOR Z=1 TO 7: LPRINT CHRS(27)3CHRS(5@)3* NEXT Zé LPRINT CHR$(27) 5 CHRS(16) 5 
CHR$(@) § CHRS(@) § 

NEXT R 

END 

REM -- DOT CODES FOR “DAGWOOD" CARTOON DRAWING 

DATA -142, 112,999 

DATA ~—35 1279-13650, -3, 127,999 

DATA ~3, 1275 -B6y Oy 1279-135 Oy 1273-14) By 1274-129 Oy 1275-79 By —35 1274999 

DATA ~3, 127) By Oy 127) —135 By 127-145 By 1275-125 By 1275-75 By —3y 1275999 

DATA =, 1274 —4By Dy 1648s 165 165 369 OBs 725 By 485 64 by Bs 53 45 by By —3y 645-498 4s 

bh y 325 325 BBs BO, 84s 40s Shy 1by 15, 112) by By 1275-144 By 1275-129 By 1275-748) 35 12799 

99 

DATA =3, 1279-479 Ds 2020494545 95999 Fy 1By 205 1215 1265 5By 35 1155115119759 91959597 

Bboy 755 LL y LP 103s 75155 155 79519 1079 B%y B4y 1865 425 119 775 125 18s 1855959 7909894 

yy 1279-145 Oy 1275-1258, 1279-7585 —-3, 127,999 

DATA = By 1275-554 Dy 1125 By 499% 9 475 115 95 17 185 165-2 1835999 By Ds 79 75 598s 150105 

By 185 235 7Ps 729155 Bly 2hy L114 35-159 Oy 1275-145 Oy 127) -125 By 127) —7 By 3 1275 999 

DATA =, 1275 559 Dy By 49 by 149579 GMs Ly Sy 2p 19 329 2p 9 649 49 Oy 165565515 11655252 

Dy 195 Bs 4y By —149 Oy 1275-145 By 1279-129 By 1279-79 By 39 1279999 


2908 
588 
518 
328 
338 


3548 


350 


368 


378 
380 
398 
400 


4108 


420 


439 
440 


450 
460 
476 
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DATA — 59 127) -525 Oy 64, 645 325 325 1, 16, 8D, 625 25 35 by OBy 724 BOs BQ, 1125-5, 48, 112,48 
924985 12569552925 1145 445 325 644-14 By 1279-145 By 127) 125 Dy 1279-79 By 35 1275 999 

DATA ~ 35 1275-485 By 112,85 by 14-3) Oy 96, 164 Oy 75-55 By —3y 45 79 —4y 44 — By By Sy 59 By 16516 
9765355 1658,8,Bs 15142525 4y 569 649-74 By 1279-145 By 127) -125 By 1279-75 By —3By 127,999 
DATA ~ Sy 1279-46585 1205 75-55 Oy 64, 60, 35-20) Dy 1125 125 25 1964, 564-8, Oy 64,605 35-7; 
@,127,-14,8,127,-12, 8, 127,-7,@,—-3, 127,999 

DATA ~5_ 1274-43585 96, 285 3) —by By 112, 154 DB, Oy—-45 By 1265-45 14975 BOs 165 16,-758, 7,8 
9805565 75-95 Oy 1275-9) Oy 127) -145 Oy 127) 125 Oy 1279-79 Oy -3y 127, 999 

DATA ~53 1275-40), 1125 125 39-45 By 64432) 325 485 464335 —By Dy 1y 25 2y 1y-By Oy 4, B25 24 
94925 15-1858, 1265 15-95 Oy 1275-145 By 1279-125 By 1275-7 Oy —3y 127,999 

DATA —5y9 1275-39585 35 6B, 56, —45 64535 4545 68s Ds 45 45 1165 125 4, —4y 36,425 425 1165 125 
108, 1258) 8s 165 16556, 188) 345 339-75 64, 55-55 Oy 1125 145 19-18, Dy 1275-145 By 1279-12 
90, 127,-7,0,-3, 127,999 

DATA ~5y 1275-395 By 12By by 14174974 1511482999 1195-145 1275 1264 1275-25 1265 124,68 
9605 235-35 165 485 325 Vy 9by 995 9B, 975 64s 1265 2y 2y 2y 1y—13y By 127) 145 By 1275-125 By 1 
275-758, -3, 127,999 

DATA —35 1275-39, 8s 35 76y—2y 1125 121, 1265-175 1275 3y 151135 1) Oy 120, 0,0, 124, 0,0, 96 
9—29 112548, 24, 1253515 15 —4y By 127-134 By 1279-145 Oy 1279-125 By 1275-75 Oy 35 127599 
9 

DATA -35 1275-33585 645 965 1125 1285 124, 1265-235 1275 126, 1125975 925 1125 645 79 24596 
9675 765565 115 45-188, 127, -13, By 1275-1458, 1275-12, Dy 1275-7 Oy —35 127,999 

DATA —33 127, -28, 8, 96, 128, 124, 126) —-37, 1275 75 1514-14905 1275-134, 1275-14, 8, 127 
9-12,0,127,-7,0,-3, 127,999 

DATA 33 1274-39 14 -b5 29 69 45 by By by 165 —32y 1275 -3y 635 555555 104,83, 83,94, 975-1 
7985 1275-13, 0,127, -145 8, 1274-1250, 127, —-79 8, —3y 1273999 

DATA 31274-3529 —by 45-65 By —6y 165 by 324 479-415 1275 1275 1245-35 32) 6 64,-3y Oy - 
33645635325 —-12) 05 1275-1458, 1275-125 By 1275-758, —3y 1275999 

DATA —5y 127, -16,8, 64, 48, 88, 40, 84, 44, 84, 44,84, 44, 84, 44,84, 43,87, 47,95, 635-37; 
1275 32532565 644By 151453 —by 2y -By 45 2y 145 185 185 —3y 169-75 32) 645 645 325 525 335-553 
2364-6405 31, 16, 15,88, 32, -3, 0, -3y 127,999 

DATA ~ 35 1275-1650, 154295 122, 117) 122511751225 1175 12251175 12251175 12251175 122, 
117512251175 98,53) 985 455 915 45,87) 45) 875 459875 459875 459 B79 429875 475 954 6359556 
551275 635 127) 635 1274 635-75 1275 635 1035 325 96 O45 59 By by 19 Oy 29 65 49-65 By —4y 16 
97/552 

DATA 65645 1515-6, 25 1,-5,05—-3, 127,999 

DATA —55 1275-3348, 3155851175 186,117) 1061175 10651175 106, 117, 106,117, 106,117, 
10651175 186,117, 106,117, 106,117, 186,117, 106, 1175 106,53, 58,53, 1225 117,122,117 
9122, 117512251175 12251175 155-47) 09-75 19-79 2y 39 12759999 

DATA -3,127,-38,80,-15, 1,-83,8,-3, 127,999 

DATA ~—142,7,999 

STOP 


PROGRAM 5-11. LINEDRAW/EPS. Universal line-drawing 
program for IBM-Epson printers. 


"PROGRAM 5-11: “LINEDRAW/EPS" -- LINE DRAWING FOR IBM-EPSON PRINTERS 
"Copyright (c) 1985 by John Warner Davenport 

"FOR MICROSOFT-BASIC COMPUTERS (TRS-80 MODEL III: CHANGE “ TO LEFT BRACKET) 
"CONVERTS TRS-80 CODES TO EPSON CODES. IF EPSON 8-BIT CODES ARE USED, DELETE 
LINES 135 AND 155. IF APPLE 8-BIT CODES ARE USED, REPLACE SUBROUTINE S5@@a W 
ITH MODIFIED "EPSTOAPL" FOR APPLE-TO-EPSON CONVERSION. 
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28 °IF EPSON FX-80 IS USED, PRINT DENSITY OF 574 DPI MATCHES TRS-80’S ELITE DENS 
ITY AND APPLE IMAGEWRITER’S LOWEST DENSITY. 


3@ D$="K"s ROWS=11: COLS=<56 *D$=PRINT DENSITY 
40 LPRINT CHR$(27)"a"; "MASTER RESET 
5@ LPRINT CHR$(27)°1°5 "SET 7/72" LINE FEED 


6@ INPUT “BLACK-ON-WHITE (B) OR WHITE-ON-BLACK (W)" 5 BWS 

188 FOR R=1 TO ROWS 

105 C=8 

118 LPRINT CHR$(27)  3D$5 CHR$(COLS) CHRS(@) § GRAPHIC RESERVATION 
120 READ N: IF N<@ THEN GOTO 152 

130 IF N=999 THEN GOTO 170 


135 NTRS=N: GOSUB 5080: N=EC *CONVERSION OF TRS-8O0 OR APPLE TO EPSON 

140 IF BW$="B° AND N>=@ AND N<256 THEN LPRINT CHRS(N)5% C=C+12 GOTO 128 7PR 
INT N 

145  LPRINT CHR$(255-N)32 C=C+1:3 GOTO 128 "PRINT B-W REVERSAL OF N 

15@ READ M 7CODE (N) WAS NEGATIVE, SO READ NEXT CODE AND CALL IT M 


155 NTRS=M: GOSUB 5080: M=EC 
168 IF BW$="B* THEN LPRINT STRING$(-N,M)32 C=C+ABS(N): GOTO 128 
7PRINT M, N TIMES 

165  LPRINT STRING$(-N,255-M)§: C=C+ABS(N): GOTO 128 7B-W REVERSAL OF M 

17@ PRINT “BYTE COUNT FOR ROW'SR3° -"§Ce LPRINT “ “3R3° "5C5 

175 LPRINT CHR$(13) § 

188 NEXT R 

198 END 

3@0 REM -- DOT CODES ARE FOR “WHITEDOG" CARTOON DRAWING 

318 DATA -11,0, 64, 325-35 16,-4, 8, 16, 16, 32s 112, 72, 68,-2, 64, -28, Q, 999 

320 DATA —7 Oy 9by 28925 19-129 By 15 45 By O55 33s 179 95 By 19-39 23 49 By 165 965-9505 999 

358 DATA 5 Dy 64 625 39 Oy 325 645-165 Oy 19-189 0_ 1,14, 116, 68, 188, 72, 112,08, 8,0,999 

34Q DATA 3, Os 9b 285995 1245 1265 1275 1265 124, 113, 98, 145 112,-27, 8, 64, 325 52s 16,1256, 
-4,3,1,0,0,0,999 

358 DATA 34, 155 4B, 795 63555 1275 635 285 995 By 35 325 645 64, —By By 96, 16, 16,8, 8,-35 4, 
—3,251515-14,8,999 

368 DATA 59 By 15 25 45 59 45 45 25 19 Oy Os Ly 14294, 1205-3, By 4955 by By 48, 64, -21, 0,999 

378 DATA —16,0, 8, 48, 64, —3y Oy 112, 125 3y 39 Oy 525 645-45 By 192,12, 112,-18, 0,999 

388 DATA —13,@, 112) 1254585 485679 615 78, 127,08, 127, By 64, —-2, By 64, 7, 1285-458, 96, 28, 3, 
~18,8,999 

378 DATA 13, By 35 1245 —3y By 1425 Sy 79 Os 19179255 43569, 65, 15128, -3, 0,15, 8,8, -3, 4,25 54 
9 66,5 2, 66, 60, -10, 8, 999 

400 DATA —15 Os 3545 Bs 165 325 645 325 165 645 325 64, 64, 52,113, 18, 7,-55 8,64, 32,17, 18,12, 
4,2,1,-12,0,999 

418 DATA 215 By 45 1589 O5 53 4545-39 29-35 1, -28, 8,999 

420 STOP 

5@8@ SUBROUTINE FOR CONVERTING TRS-80 TO IBM-EPSON CODES ("TRSTOEPS") 

5020 PRINT "ORIGINAL DECIMAL:" §NTRS 


5030 FOR P=6 TO @ STEP -1 (7 PINS, NUMBERED 6 TO @) 
5040 X(P)=NTRS-24P > (CONVERSION OF 

5050 IF X(P)<@ THEN Y$(P)="@": GOTO 5070 * DECIMAL CODE 

5060 = Y$(P)="1%s NTRS=X(P) > TO BINARY FORM) 

5078 NEXT P 


5080 BYTES=V$(6)+Y$(5)+V¥S(4)+VS (3) +YS(2)4+VS(1)+YS(0) "ORIGINAL BYTE (BINARY) 
5890 PRINT “ORIGINAL BYTES:" 5BYTES 

5180 MBYTES=YS(O)+YS(1)+YS(2)+YS(3)+V¥S(4)+V¥S(5)+¥$(6) "TURN BYTE UPSIDE DOWN 
511@ PRINT "MIRROR-IMAGE BYTES: °MBYTES 
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3128 EC=648VAL (YS(@) )+32*VAL (YS(1) )+16#VAL (YS (2) )+B#VAL (YS(3) )+44VAL (YS (4) )424VA 
L¢(YS(5))+VAL(Y$(6)) "CONVERT MIRROR BYTE TO DECIMAL 

313@ PRINT “ORIGINAL TRS CODE, "$NTRS$", EQUALS EPSON CODE "sEC 

3135 IF EC=9 THEN EC=8 

3148 RETURN 


PROGRAM 5-12. LINEDRAW/APL. Universal line-drawing 
program for Apple printers. 


1Q@ REM: PROGRAM 5-12: "LINEDRAW/APL" -- UNIVERSAL LINE DRAWING PROGRAM 

15 REM: Copyright (c) 1985 by John Warner Davenport 

18 REM: FOR APPLESOFT BASIC AND APPLE DOT MATRIX OR IMAGEWRITER PRINTERS 

2Q PR#1 

30 NL=15: COLS=1864 

4Q PRINT CHR$(27)"E"3: REM -- 96 DPI PRINT DENSITY 

{@@ FOR R=1 TO NL 

110 READ Ni IF N&@ THEN GOTO 152 

120 IF N=999 THEN GOTO 180 

130 IF PEEK(493@5) <> 16 THEN GOTO 130 

140 IF N>=@ AND N<256 THEN PRINT CHR$(27)"GQQ01"3: POKE 49304,N: GOTO 110 
152 READ M 

168 IF PEEK (49385) <> 16 THEN GOTO 162 

178 FOR X=1 TO -Nt PRINT CHR$(27)"GOQ01"3! POKE 49304,M: NEXT X! GOTO 110 
180 PRINT CHR$(27)"T14"3 CHR$(13)3: REM -- 7/72" LINE FEED, CARR. RETURN 
198 NEXT R 

195 PR#O 

198 END 

208 REM -- DATA CODES BELOW ARE FOR “WHITECAT" DRAWING 

210 DATA —5, 127, -28, 8,96, 16,-6, 8, 16, 16, 32,32, 64, 64,-18,0 

213 DATA -60,@ 

216 DATA -60,0,-3, 127 

219 DATA 999 

220 DATA ~5_ 1274-27505 127, 8, 8,-10, 0,0, 05 1525 254) 4585 165 324 325 44, -8,0 

223 DATA -68,0 

226 DATA 8,0, 645 64,64, -5, 32, -4, 165 165325 64, -7) 8, - 3B, By -3, 127 

229 DATA 999 

230 DATA ~3y 1274-27585 155 123,44, BB, 52,64, -74 Oy -105 0) Oy Dy 15 2) 24 44858, 16,5 32 
2353 DATA ~F 4325 165-185 165 165-9, 324 32532) —-5y 64, -3y Dy —-10, Dy Dy Oy 54 64, 32, 32, 16,1658 


256 DATA By 454525 25151,1,8,8;-10, 0,05 95, 31,-7,8,-38,8,-3, 127 
239 DATA 999 

240 DATA —33 127) -235 0, -3, 645 32,112) 95, 36, 42,53, 42, 21,10, 20,8,-3,0,-228,0 
243 DATA -37,0,-35151,-8,2,1,1,1,-8,9 

246 DATA —10,0,-4, 0,64, 32,95, 48, 24,4, 3,-9, 8, -30,0,-3, 127 

249 DATA 999 

258 DATA —3,127,-21,8, 108, 18,151,51,-4,0,-38,8 

293 DATA -60,0 

235 DATA —8,05 32, 104,84, 44,81,54,13,251,0,0,0,—-48, 0, -3, 127 
239 DATA 999 

258 DATA —35 1275-1610) 96,—3, 80,195 105 18565 2) -5,0,-3O,0 

263 DATA -60,0 

266 DATA -B8,0,3,5,31,63,-3, 52, 96, -4, 0, -48, 0, -3, 127 

269 DATA 999 
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DATA -3,127,-14,8, 64, 32, 32, 20, 26,1,-40,0 

DATA -68,0 

DATA -14,0,463, 96, -4,0,-48,0,-3,127 

DATA 999 

DATA —-3,127,-18,0,4,10, 73,49, -6, 0, -32,0, 60, 66,-4,1,57,125 

DATA 58425454385 1125 965 64,0, O, -25 50,64, 352,156,156, 80, 112,80, -4, 156, 32, 32,64,8,- 
10,0 

DATA —16,0,1,52532,4,4,8, 72,48, 16,-5,0,-30,0,-3,127 

DATA 999 

DATA —3, 1275-1005 Qs Oy 15 25 2945 725565 By Dy —3Oy Oy 4505 15 252545454 

DATA 454525253535 15126505 —-20, 0,8; 64, 60, 305 31,56, 48, 325 325 59, 475 395 325 S25 16, 
16,8,;4,3,0,-18,0 

DATA -20, 0,05 15505 445-3, 645-35 529-33 325-75 1659-7598 y ~3y 16, —-3y 165-359 By 2, 16, -5, 
127 

DATA 999 

DATA —3, 127,-10,0,8,—-3, 64, 78, 77,5 80, 96, 64, 64, -10, 64, -2, 64, 68, 68, 72, 72, 16,1653 
2,64,-28,0 

DATA -B8,8,31,946,-10,0,-8,@, 64, 48, 12,3,-8,8,-28,0 

DATA -4,0,-2,64,-2,32,0,0,-50,0,-3,127 

DATA 999 

DATA —3, 1275-65 Oy 1658385 454549 —-By 29 359 5D 54, -45 66, —3, 54, 98, 98, 82, 82,508,508, —-3; 
51,19,19,19, 20,24, 96,-5,0,-18,9 

DATA 9,05 635 645-9585 -7585 1245 3,0, -20, 0, 64, 32, 32, -3, 16,-3,8,4 

DATA 4,25251,-6,0,-50,0,-3,127 

DATA 999 

DATA 35 1279-95 By 645 325 1by 165 725 725 365 3b, 185 745 425 375 21521519, 115126, 7357556 
95375 365 365 205 B25 B25 5D, 425 425 259 255 259 775 775 695 365 379 355 58s 24, 165 40, 52, 64,-7 
78 

DATA -10,0,0,—-35 1525 2) 68, 32, 124, 32,24, 4,-3,2,1,1,-3,8,-10,0,8,—-35,64, 88, 48,16 
924,359,355, 54, 64,-8,0 

DATA -68,0,-3,127 

DATA 999 

DATA 3, 1275-75 Os 16583 45 25 665 33y 16, 165-3, 83 45 45-35 2, 15 715375 20, 12,24, 56,18,8 
2599751658585 45 45 29 25 159-990, -35 85 1525 25454,8,16 

DATA —3, 16, —35 325 64,5 64, bby 25 25 45 45 by by 59 by 59 by 45 by 2g 29 Dy Oy 64, 64, 64, 52, S251 
651658585 20, 225 425 425754194 215375 575 745 74518, 28, 356,41, 73, 18,18, 54, 56,68, 68 
DATA 8,8,-3, 16,32, 32, 564,64,0,-58,0,-3,127 

DATA 999 

DATA —3, 1273-10, 8,—-B, Oy 325 1658, 45251585645 325 16, 765 66, 359, 25, -8, 8, -20,8 

DATA —F Daly ly dy Bs 29-55 29 55 158, 8, -10,0,-350,1, 25 254,858,175 535 54, 66,459,955 
18, 36, 36, 72 

DATA 81,18, 34,36, 68, 8,8, 16517, 355695 74, 185 36, 48, By 16, 16,32, 64, -40,0,—-3, 127 
DATA 999 

DATA —3, 127, -235805251,0,80,3,454,120,-9,8,-280,0 

DATA —-53,0,1,1,2,;4,8,8,16 

DATA 325 O55 29297459518, 34,68, 458,051, 25494,8,-35, 8, -48,0,-3, 127 

DATA 999 


Textured drawings. Code 999, for ending a print line, is 
only one of several special codes a LINEDRAW program 
might have. For more ambitious picture-drawing, other code 
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numbers above 255 and below 999 could be used to branch 
to different subroutines. These could be designed to add 
shadings, backspace and overprint certain lines, etc., and 
could include some more timesaving devices. 

Instead of a black frame like the one surrounding Dennis 
the Menace (see figure 1-2), we could add shading for spot- 
lighting, as in figure 5-24. 

Random selections of dot codes fed into a dot-matrix 
printer will give you a nice selection of shadings to use in 
pictures. The computer’s RND (random) function (which is 
not truly random in its selections) can be used to make selec- 
tions of codes from groupings of dot codes that print many 
dots or very few dots, or any dot density from pure white to 
pure black. To add the shading around Dennis, six new 
DATA lines were added to LINEDRAW/TRS, and the start 
of the DATA statements was shifted from line 200 to line 
0000. The following lines were added to the main program. 


125 IF N>SOO AND N<S11 THEN GOSUB 1000: GOTO 
110 

1000 'MULTI-BRANCH FOR FIXED-LENGTH SHADINGS 

1010 RANDOM: ON N-SOO GOSUB 801,802,803,804, 
805,80b,807,408, 805,410 

1020 RETURN 


Subroutine 1000 is something of a Pandora’s box—an entry 
to 110 other subroutines. Ten of these, numbered 801-810, 


FIGURE 5-24. Spotlighting 
by adding various densities 
of shading that are produced 
by random selections from 
restricted groups of dot 
codes. Ten shading levels 
are generated by a 
subroutine (program 5-13, 
SPOTLITE) that is 
appended to the 
LINEDRAW/TRS program. 
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use the RND function to make random selections of dot 
codes listed in 100 others, numbered 601-700. For each of 
ten degrees of shading ranging from %0 (3%) to ®/0 (90%), 
there are restricted groups of ten dot codes in subroutines 
601-700 that may be randomly selected. Any DATA value 
from 501 through 510 will cause both a jump to subroutine 
1000 and a sequence of ten dot prints; the higher the number 
is in that 501—510 range, the darker the shading will be. 

All eleven subroutines that do the selecting of shadings 
use BASIC’s powerful ON...GOSUB switch. The selecting 
subroutines and groups of dot codes defining the ten degrees 
of shading are presented in program 5-13, called SPOTLITE. 
The labels for the latter (2/70, 7/70, etc.) refer to the average 
number of dots printed at random in a group of ten succes- 
sive prints, the maximum possible being 70 (all seven dots 
in all ten prints.) 


PROGRAM 5-13. SPOTLITE. Varying degrees of shading for 
spotlighting a drawing. 


10 ’PROGRAM 5-13: "SPOTLITE" -- SUBROUTINES FOR SHADING LEVELS 
15 ’Copyright (c) 1985 by John Warner Davenport 

20 FOR TRS-80 MODEL III AND TRS-80 PRINTERS 

3@ *NOTE: SHADING LEVELS ARE CALLED IN THE MAIN PROGRAM BY N VALUES OF 501-518 
4Q@ ’AND THE SELECTIONS ARE ROUTED THROUGH SUBROUTINES 1008 AND 801-810 
600 °’========CODES FOR RANDOM SELECTIONS========= 

601 OUT 251,128: RETURN 72/78 

602 OUT 251,144: RETURN 

603 OUT 251,128: RETURN 

604 OUT 251,128: RETURN 

685 OUT 251,128: RETURN 

606 OUT 251,128: RETURN 

607 OUT 251,128: RETURN 

608 OUT 251,130: RETURN 

609 OUT 251,128: RETURN 

618 OUT 251,128: RETURN 

611 OUT 251,128: RETURN 77/78 

612 OUT 251,132: RETURN 

613 OUT 251,160: RETURN 

614 OUT 251,128: RETURN 

615 OUT 251,192: RETURN 

616 OUT 251,129: RETURN 

617 OUT 251,130: RETURN 

618 OUT 251,128: RETURN 

619 OUT 251,136: RETURN 


678 OUT 
671 OUT 
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251,129: 
251,129: 
251,130: 
251,132: 
251,136: 
251,144: 
251,140: 
251,192: 
251,162: 
251,148: 
251,193: 
251,201: 
251,162: 
251,166: 
251,148: 
251,193: 
251,146: 
251,137: 
251,148: 
251,161: 
231,138: 
251,178: 
291,212: 
251,180: 
251,150: 
251,201: 
251,149: 
251,197: 
251,178: 
251,162: 
251,148: 
251,201: 
251,211 
251,213: 
291,178: 
251,166: 
251,1973 
251,1718 
251, 2345 
251,154: 
291,203: 
251,2135 
251,234: 
251,211: 
251,171: 
251,203: 
251,230: 
231,218: 
251,179: 
231,221: 
251,237: 
291,235: 
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RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 


*14/708 


721/78 


728/78 


735/708 


*42/78 


"49/78 


889 


818 


FOR Z=1 TO 10: X=RND(1@): 


251,183: 
251,215: 
251,219: 
251,221: 
251, 222% 
251,246: 
251, 2385 
251,198: 
251,213: 
251,221: 
251,2375 
251,215: 
251,238: 
2515254: 
251,2535 
251,2515 
25152472 
231, 2359% 
251,223: 
251,255% 
251,255: 
251,255: 
251,191: 
251,223: 
251, 239% 
25152475 
251,251: 
251,253 
251,254: 


RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 


: NEXT Z: RETURN 


FOR Z=1 TO 108 X=RND(1@): 


: NEXT Z: RETURN 


FOR Z=1 TO 10: X=RND(1@): 


: NEXT Z: RETURN 


FOR Z=1 TO 18: X=RND(1@): 


: NEXT Z:? RETURN 


FOR Z=1 TO 18% 


2 NEXT Zs RETURN 


FOR Z=1 TO 10: 


= NEXT Z: RETURN 


FOR Z=1 TO 105 X=RND(1@): 


: NEXT Z: RETURN 


FOR Z=1 TO 10: X=RND(1@): 


2 NEXT Z: RETURN 


FOR Z=1 TO 10: 


: NEXT Z: RETURN 


FOR Z=1 TO 10: X=RND(10): 


: NEXT Z: RETURN 
10GQ ° xxxeeeeeeeeeeMULTI-BRANCH FOR SHADINGS *###exHKHEREEES 
1018 ON N-5@@ GOSUB 801,802, 803,804, 805, 806, 807, 888, 809, 818 
1026 RETURN 


X=RND(10): 


X=RND(10)¢ 


X=RND(1@): 


756/78 


763/78 


ON X GOSUB 
ON X GOSUB 
ON X GOSUB 
ON X GOSUB 
ON X GOSUB 
ON X GOSUB 
ON X GOSUB 
ON X GOSUB 
ON X GOSUB 


ON X GOSUB 
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681, 602, 603, 604, 605, 606, 607, 688, 689, 618 
611,612,613, 614,615,616, 617,618,619, 628 
6214622, 623,624, 625, 626, 627, 628, 629, 638 
63156325 633, 634, 6355 636, 637, 638, 639, 648 
641,642,643, 644, 645, 646, 647, 648, 649, 658 
651,652, 653, 654, 655,656,657, 658, 659, 668 
661,662,663, 664, 665, 666, 667, 648, 669,678 
67156723673, 6745 6755 676, 677, 678, 579, 688 
681, 682, 683, 684, 685, 686, 687, 688, 689, 690 


691, 692, 693, 694, 695, 696, 697, 698, 699, 788 
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Dennis was surrounded by shading in figure 5-24 not only 
by the dot groups selected by DATA values ranging from 501 
to 510 but also by the values —10, 127 for pure black and 
— 10, 0 for pure white. New DATA lines before and after the 
original lines were added. A typical DATA line in the addi- 
tions for the shading would have a sequence such as — 10, 
127, 510, 509, 508, 507, 506, 505, 504, 503, 502, 501, — 10, 0, 
901, 502, 503, 504, 505, 506, 507, 508, 509, 510,—10, 127. 
Sequences similar to the first half of this example were added 
to the original lines for shading on the left, and sequences 
like the latter half were added for the right-hand gradations. 

There seems to be no problem intermixing these subrou- 
tine calls with the dot codes, negative repeat codes, and line- 
feed code in the flow of the program. This is provided, of 
course, that codes in the range of 501 to 510 are recognized 
by the program as being different from codes in the range of 
0 to 127, negative values, and code 999. Line 125 takes care 
of that matter by stating IF N>S0O AND N<S11 THEN GOSUB 
LOOOD. 

You might think of these subroutine calls as paintbrush 
strokes that could take many more forms than the shading 
levels in the spotlighting of Dennis. These could provide 
preprogrammed instead of random dot sequences, be of 
many different lengths, provide a wide variety of textures 
(not just graduated tints), and be inserted anywhere in a line 
of print. 

Well follow up this idea shortly, but first let’s consider 
doing a whole drawing with just the shadings. This is what 
Mike Keller proposes, under the apt title of “The Printer as 
a Paintbrush” in 80 Micro (June 1983). Using Epson MX-80 
and NEC 8023A printers, he converts an eight-by-ten photo- 
graph into a bit-image-drawn picture. He starts by placing a 
grid over a tracing of the photograph, dividing its whole area 
into Yiz-inch squares. In several well-illustrated steps, he 
shows how each of those little squares can be given a number 
from one to six, representing six levels of shading ranging 
from near-white to near-black. This is quite a project, be- 
cause the number of squares needing numbers amounts to 
120 rows with 96 squares in each row, or 11,520 in all. 

An interesting printout justifies the labor. Viewed from 
across the room, it looks very much like a photograph, and 
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up close it has an arty, cubist appearance that is fascinating. 
Another nice feature is that the printouts come out some- 
where near the original size of the photograph with this 
technique, whereas even fairly ambitious drawings by a 
LINEDRAW type of program are much smaller. 

Once you ve done the work of figuring out the codes and 
entering them into DATA statements, you can get more mile- 
age out of your labors with several manipulations of the 
image Keller suggests. Besides negative and mirror images, 
you can vary the contrast by eliminating intermediate shad- 
ing values—for example, have every square come out black 
or white—as is done by space scientists with computer- 
enhanced digital photos. You can also soften some of the 
edges in a drawing by using partial squares, that is, assigning 
more than a single value to one of those little squares, so that 
the left half of a square is lighter in shading than the right 
half, for example. 

Program 5-14 (CUBETINT) has several of these sugges- 
tions built into it. And by using ten shading levels similar to 
those surrounding Dennis, in addition to pure black and pure 
white, it provides twelve levels instead of the six gradations 
used by Keller. The program also has provisions for both 
fixed-length (subroutines 801—810) and variable-length (sub- 
routine 1000) squares of shading. Since Keller has already 
presented programs for IBM-Epson and Apple-type printers, 
CUBETINT is designed for TRS-80 printers. 


PROGRAM 5-14. CUBETINT. Drawing with small “cubes” of 
shading. 

19 "PROGRAM 5-14: “CUBETINT® -- DRAWING WITH SHADING LEVELS 
15 ’Copyright 1985 by John Warner Davenport 


20 *FOR TRS-80 PRINTERS AND TRS-80 MODEL III (USE BOOTHE’S PRINTER DRIVER) 
38 DEFINT A-Z 


40 LPRINT CHRS( 30) § CHRS(27) § CHRE (28) § "CONDENSED PRINTING 

38 FL=18 "FIXED LENGTH OF CUBE 

1@@ FOR R=181 TO 266 "LOOP FOR 85 ROWS 

11@ LPRINT CHRS(18); "ENTER GRAPHIC MODE 

120 READ N 

130 IF N=>@ AND N<12 THEN RANDOM: ON N+1 GOSUB 800, 801,802,803, 804,805, 806, 807 
, 8808, 809,810,811: GOTO 120 *FIXED-LENGTH SHADING LEVELS 


146 IF N=999 THEN GOTO 148 

150 IF N>3@@ AND N<480 THEN GOSUB 18@@8 : GOTO 120 *VARIABLE-LENGTH SHADING 
160 LPRINT CHRS(13)3 "CARRIAGE RETURN, LINE FEED 
178 NEXT R 


613 
614 
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REM: LINES 181-490 ARE AVAILABLE FOR DATA 

DATA D9 Dy D9 Dg Dg Py Dy Dy Dy Dy Dy Dy Dy Dy Dy Dy Dy De Dy Dy Dy De Dy De Dy Vo Vy Dy Vy De Pe De IgV IAD 
9 V9 D9 Vy Va Vy D9 Fy 999999 95 By Bs 79 By By 79 75 19 By By 75 75 By 79 79 79 79999 

DATA 998595 8y By Dy 95 99 Dy Fy By By By 99 D5 Fy Vy 99 By By Vy By Vy By Va Vy Fy V9 95 9995 9,8, 8,858 
38,9,9,8,8,8,8,8,8,9,9,9,9,9,9,9,8,8,8,8, 7,8, 7,8,8,8,8,8,999 

DATA 959595 8y8_ Bs Fy By 99 By 79 8y By By By 99 99 99 By By By 75 75 7989 By By By 998,998, 748,958 
999 By Fy By 74 By Py By Vy Dy Dy Dy Dy Dy Dy Ve Dy Dy Dy Dy Vy Vy Dy Fy Fy Fy Fy Fy FIP 

DATA 999999 959,85 898s 79 75 798385 Bs 9995953958985 75 75838585 959595858585 75 7389959 
98,8, 8, By By By By By By By Vy Dy Dy Vy Vy Dy Vy Py Vy Vy Vy Vy Dy Fy 99 99 99 99 999 

DATA 9999959959495 8y By By 75 7989 By 75 By Dy Fy By By Bq 75 75 79 By By By 99 94 By By By By 94 99999 
9858, 7585 758, By By By By By Vy Dy Vy Vy Dy Dy Dy Dy Vy Vy Dy Dy Fy Dy Dy Dy Vy IVF 

DATA 999595958389 8s 79 75 78 By By By By By By By By Fy By 75 79 By 99 99 Fy Fy By By By 9985 9, 8,9 
985 79 7484 By By By By By By By Vy Vy Vy Dy Dy Py Dy Vy Vy Dy Dy Fy Dg Dy Vy V9 Vy FOF 


DATA 10510, 18, 369, 341525 3593565 79 75 75 79 798985 By 75 75 75 43 45 494559 593959 5939 Sy 3, 
39593959 S959 59 Sy Sy Sy 59 by 75 79 79 79 75 V9 by 79 Fy 292939 495959 by 75 79 79 759 79999 

DATA DeDeVyloPy Zo SyMo bg Fa Tala lala lala ly ly led Sy Sy dydpdulececycelyrzeeecezecya 
9 Ze ly dy ly ly ly ly ly ly ly bg Ty 191 y Ty bg ly Vy by S959 49 Sy 2y 192949 by 999 

DATA DoW Aola2ydady bg ly lala ly ly lala ly ly 4ySy2o2y2eQelglolghglalstyleslsigtsiyt 
lglg lela ly hy dg dy 2y2y2y 23 2y4y59 1 y Zu Jy bg ly ly ly ly ly 7Zy ly ly ly 999 

DATA 9594379, 3315191525 by by 79797975 75 797 y ly Fy by Sy 59 2y2y 151515158, 8,80,8,8,8,8 
9B, BBO By By lola laladaly ly ly ty ly ly 2y2y2q2y2q2y3y3y 39 3y2y 259 29 5_ 999 

DATA Fy 9%y 3695 5419191929397 97979 Ta 7979 7975 75 199 4539292515150, 8,80,80,0,80,80,0,8 
90,8, By OB, Oy B,O, 8,8, OB By lala lglg lads ty ly dghy ly ly 2y2y2y2y 25 242,999 


DATA 95949499 %9Fy Fy Fy Vy Fy Vy By By By By My 7p 79 79 79 79 797979 79 79 79 By By By By By 8995 M99 
19495 Fy Fs Fy Pq Bq By By By By By By By By By 79 7p 79 79 79 By By Vy My Py yy 999 

DATA 9499 9y Fy %y Fy Fy Fy Fo Fy Fy Bq By By By By By By 7 79 79 79 71 By By By By By By By By 79 7995 M99 
19494 Fy Fs Vy %y Fy Fy By By By By By By By By 79 7p By By By By By Vy V9 99 Fy 9 999 

DATA 9599949599 Fy F499 F9 Fs Fy Pq By By By By By By By By By By By By Dy Vy Py By V9 By 979 2595 M9 
1949s %9 FoF Fy Fy Fs Vy Vy Py By Vy By Py By By By By Fy Vy Py Vy Dy My Py Py Py 999 

STOP 

REM -- SUBROUTINES FOR SHADING LEVELS (NOTE MODEL III USES LEFT BRACKET INST 
EAD OF "4" FOR EXPONENTIATION) 

E=@: RETURN 1/78 

E=@1 RETURN 

E=9: RETURN 

E=@: RETURN 

E=@: RETURN 

E=Q: RETURN 

E=@: RETURN 

RANDOM! Y=RND(7)-1: E=20Y: RETURN 

E2Q: RETURN 

E=@: RETURN ? ---—-------—— 

E=@: RETURN 5/78 

RANDOM: Y=RND(7)-11 E=20Y: RETURN 

RANDOM! Y=RND(7)-12 E=20Y: RETURN 

E=@: RETURN 


RANDOM: Y=RND(7)-15 E=2LY5 
E=@: RETURN 
RANDOM: Y=RND(7)-1: E=2LY5 
E=6: RETURN 


RANDOM: Y=RND(7)-1: E=2CY3 
E=@: RETURN Tees meen ara 
E=64: RETURN 712/70 
E=32: RETURN 


E=16: RETURN 

E=8: RETURN 

E=4: RETURN 

E=2: RETURN 

E=1: RETURN 

RANDOM: Y=RND(7)-1: E=20Y: 
E=20: RETURN 


E=65: RETURN ann 


E=73: RETURN 721/78 
E=34: RETURN 

=50: RETURN 
E=20: RETURN 

E=65: RETURN 

E=36: RETURN 

=72: RETURN 
E=18: RETURN 

=66: RETURN 


=40: RETURN ? nnn 


=42: RETURN 728/70 
=21: RETURN 

E=22: RETURN 

E=52: RETURN 

E=73: RETURN 

E=84: RETURN 

E=81: RETURN 

E=38: RETURN 

E=34: RETURN 


E=20: RETURN ?--------- 


E=73: RETURN 735/78 
E=101: RETURN 
=84: RETURN 
E=38: RETURN 
E=50: RETURN 
E=81: RETURN 
E=106: RETURN 
E=43: RETURN 
E=105: RETURN 


E=85: RETURN ? == - === 


E=83: RETURN 742/78 
E=43: RETURN 

E=101: RETURN 

E=106: RETURN 

E=105: RETURN 

E=51: RETURN 


RETURN 


RETURN 


RETURN 


RETURN 
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E=45: 
E=38: 

=935 

=91: 
E=107 
E=118 
E=117 
E=109 
E=93: 
E=61: 
E=55: 
E=59: 
E=62: 


E=85: 


E=93: 
E=91: 
E=117 
E=59: 
E=63: 
E=95: 
E=111 
E=119 
E=123 
E=125 
E=127 
E=127 
E=127 
E=126 
E=125 
E=123 
E=119 
E=111 
E=95: 
E=63: 


=1 TO FL? 
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RETURN 
RETURN 
RETURN 


RETURN ? ----------- 


RETURN "49/70 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 


RETURN ? 


RETURN 754/78 
RETURN 

: RETURN 

RETURN 

RETURN 

RETURN 

: RETURN 

: RETURN 

: RETURN 


: RETURN ? _--—----~-- 


: RETURN 63/70 
: RETURN 
: RETURN 
: RETURN 
: RETURN 
: RETURN 
: RETURN 


: RETURN 


RETURN = °----------- 
LPRINT STRINGS(FL,128)$! RETURN 
FOR Z=1 


TO FL® X=RND(10): ON 
1689 ,618 : LPRINT 
TO FL® X=RND(1@): ON 
3619 ,620 : LPRINT 
TO FL& X=RND(1@): ON 
3629 ,638@ : LPRINT 
TO FL: X=RND(1@): ON 
1639 ,640 & LPRINT 
TO FL: X=RND(1@): ON 
7649 4,658 : LPRINT 
TO FL: X=RND(10): ON 
1659 4660 *© LPRINT 
X=RND( 10): ON 
7678 : LPRINT 
X=RND(1@): ON 
3688 =: LPRINT 


7669 
TO FLé 
3679 


=1 TO FL: X=RND(1@): ON 


2689 4698 : LPRINT 
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*BLANK-WHITE SPACE 

X GOSUB 601 ,682 ,683 ,604 
CHR$(E+128)5 2 NEXT Z: RETURN 

X GOSUB 611 ,612 ,613 ,614 
CHRS(E+128)53 NEXT Z5 RETURN 
X GOSUB 621 ,622 ,623 ,624 
CHRS(E+128)58 NEXT Z: RETURN 
X GOSUB 631 ,632 ,633 ,634 
CHRS(E+128)55 NEXT Z? RETURN 
X GOSUB 641 ,642 ,643 ,644 
CHR$(E+128)52 NEXT Z=? RETURN 
X GOSUB 651 ,652 ,653 ,654 
CHR$(E+128)52 NEXT Z: RETURN 
X GOSUB 661 ,662 ,663 ,664 
CHR$(E+128)3: NEXT Z: RETURN 
X GOSUB 671 ,472 ,673 4674 
CHR$(E+128)3: NEXT Z? RETURN 
X GOSUB 681 ,682 ,6835 ,684 
CHR$(E+128)32 NEXT Z? RETURN 


7605 
9615 
3625 
36355 
9645 
3655 
7665 
3675 


» 685 


1606 
2616 
3626 
9636 
1646 
7656 
7666 
7676 


7» 686 


5607 
9617 
9627 
9637 
9647 
9657 
9667 
9677 


» 687 


165 
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2694 ,695 1,696 ,697 


RETURN 


2692 4693 
NEXT Z: 
*SOLID-BLACK PRINTING 


Digitizing a 


shading values that sum to ten 


hotograph for a program 
(CUBETINT) that draws 
pictures with squares of 
shading instead of lines. Most 
digits represent the shading 
value of a ten-column square. 
Where two smaller digits 
appear, combinations of 
dot columns are printed. 


FIGURE 5-25. 


(Original photograph courtesy 


of Max Factor.) 


? LPRINT CHRS(E+128) 55 


» 780 


In the digitizing, a black-and-white photocopy of an eight- 
Figure 5-25 shows part of the coding sheet. Notice that 
while most squares were given a single code in the 0-to-11 


by-ten cosmetics advertisement in color was divided into 


1699 


811 LPRINT STRINGS(FL,255)532 RETURN 
of six shading levels, as it turned out.) On the DMP-400, each 


of these squares was printed out as a seven-by-ten dot matrix 


being ¥s inch. (Using ¥ inch instead of Keller's Yi2 inch 
largely canceled out the advantages of having twelve instead 
in condensed pitch (approximately Yio inch square), making 
the printout about 20% smaller than the original. The twelve 
degrees of shading were represented by codes ranging from 
0 (pure white) to 11 (pure black). 

range, some were divided (diagonally) to provide for two 
different levels of shading over the ten dot columns of a 


OF ANY OF SHADINGS 1-9 (DETERMINED BY LAST DIGIT) MAY BE SELECTED BY CODE 
eighty-five rows of sixty-four squares each, the square size 


S RANGING FROM 381 TO 399 


1698 
1028 RANDOM 


1000 ?xxeHeRHRHREEE MULTI-BRANCH FOR VARIABLE-LENGTH SHADINGS ##2#eeex HHH He 
101@ "UP TO 9 DOT-COLUMNS (DETERMINED BY MIDDLE DIGIT OF A J@@-SERIES DATA CODE) 


18040 ON VAL(RIGHTS(NS,1)) GOSUB 801,802,805, 804, 805, 8046, 807, 808, 809 


81@ FOR Z=1 TO FL? X=RND(10)= ON X GOSUB 691 
1058 FL=10 


1030 NS=STRS(N): FL=VAL(MIDS(N$,3,1)) 


1068 RETURN 
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square. In the program, code numbers in the range of 301 to 
399 are sent (by line 150) to subroutine 1000, which uses 
string functions to determine the middle and last digits of the 
code. The middle digit, which can range from | to 9, deter- 
mines how many dot columns will be used, and the last digit 
determines what level of shading will be in those dot col- 
umns. (Shading levels are restricted to levels 1 to 9 in this 
subroutine, that is, they do not include pure white or heavy 
black.) Every time one 300-series code is used, it must be 
paired with another one, and the middle digits of the two 
codes must add up to ten, the standard number of dot col- 
umns in a square. 

A “normal” printout from the CUBETINT program is 
shown in figure 5-26. This is one in which the full range of 
shadings is used in an attempt to get a normal degree of 
contrast in the drawing. 

By changing the subroutine numbers in lines 130 and 
1040, you can vary the contrast many different ways. Elimi- 
nating extreme shading values can be done by not calling 
subroutines 800, 801, 802, 809, 810, and 811 at all, for exam- 
ple, so that the lightest shading level is 3 and the darkest is 


FIGURE 5-26. Rendering of 
an eight-by-ten photograph by 
the CUBETINT program 
(reduced 50% from actual 
printout size on the DMP-400). 


FIGURE 5-27. Printouts from 
the CUBETINT program: 
horizontal mirror images (upper 
pair), negative and positive 
images (middle pair), and high 
and low contrast (bottom pair). 


8. This produces the lowest-contrast printout shown in figure 
5-27 (bottom right panel). A high-contrast printout, produced 
by eliminating all intermediate shading levels, is also shown 
(bottom left). There is also a negative image (center left), 
generated simply by reversing the orders of the original sub- 
routine numbers in lines 130 and 1040. 

For a horizontal mirror image, the DATA values for each 
row can be read into an array and then printed from the array 
in reverse order. This would mean adding DIM N(b4) early 
in the program, changing each N to N(I), and putting a new 
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FOR-NEXT loop inside the first loop. At the beginning of 
the new loop, FOR I=1 TO 64 would produce a normal print- 
out and FOR I=64 TO 1 STEP -1 would result in a mirror-image 
rendition. Using DIM N(b4), incidentally, assumes that all 
partial squares are combined into regular ten-dot column 
Squares, so that each row will contain only sixty-four DATA 
values; if this is not done, a higher value than 64 will be 
needed in the DIM statement, and the programming will be 
more complicated in other ways. 


Lines and textures combined. We can come even closer to 
“photographic” pictures if we combine regular line drawing 
with these paintbrush strokes we call shading levels. Instead 
of using the shading just to surround a line drawing, as in the 
spotlighting of Dennis, or having the whole drawing done by 
shading blocks, as with the CUBETINT program, we can 
integrate the lines and the shading. A few additions to the 
LINEDRAW programs are all we need, as program 5-15 
shows. 

This program, called FOTOGRAF, has the usual LINE- 
DRAW features of immediately printing any DATA code in 
the range of 0 to 127 (line 150), repeating the printing of any 
code that is preceded by a negative number (lines 160-180), 
executing a line feed and carriage return at the end of each 
print line (lines 100 and 190), and counting bytes in a print 
line (lines 150, 180, 190, 1040, 2070, and 3035). It also has 
provisions for printing a ten-column (fixed-length) block of 
shading (line 110 and subroutines 1000, 800, and 600). And 
as with CUBETINT, the block of shading can be split into 
partial blocks having different shading values (line 120 and 
subroutine 2000). 

Still another feature, not used in the previous drawing pro- 
grams, is a backspacing technique (line 130 and subroutine 
3000). The idea here is to make it possible to lay down a strip 
of shading (usually light) and then back up in order to draw 
something on top of it. Or the reverse: adding shading after 
having drawn some sharp details in the usual LINEDRAW 
fashion. One way or another, FOTOGRAF offers you a total 
intermixture of high-resolution lines and curves with tex- 
tures. 

Our example for this program’s output is the same as for 
CUBETINT—except that only the facial portion of the 
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young woman’s photo was digitized for a FOTOGRAF ver- 
sion. Figure 5-28 shows the printout. Now, it’s safe to say, 
we're getting a lot closer to photography than we did with 
CUBETINT, even when printouts from the latter program 
are reduced (compare figure 5-28 with figures 5-26 and 5-27). 


PROGRAM 5-15. FOTOGRAF. Combining line drawing with 
shading levels for “photographic” drawings. 


>PROGRAM 5-15: "FOTOGRAF" -- LINE DRAWING WITH SHADING LEVELS 
"Copyright (c) 1985 by John Warner Davenport 
"FOR TRS-80 MODEL 4 AND TRS-80 PRINTERS 


3@ DEFINT A-Z 
40 FL=10 
38 FOR R=100@2@ TO 10438 STEP 10 


C=0 


78 LPRINT CHR$(3@) § CHRS(27) 3 CHRS (20) 5 CHRS(18) 5 


READ N: IF N<@ THEN GOTO 160 


IF N=999 THEN GOTO 185 

IF N>5@@ AND N<999 THEN GOSUB 1000 : GOTO 90 "FIXED-LENGTH (18 DOT-COLUM 
NS) SHADING 

IF N>3@@ AND N<40@ THEN GOSUB 2008 = GOTO 90 7VARIABLE-LENGTH SHADING 

IF N>40Q@ AND N<481 THEN GOSUB 3808 =: GOTO 92 *BACKSPACE SUBROUTINE 

IF N=9 THEN N=8 "DETOUR (TROUBLE CODE) 

IF N>=@ AND N<128 THEN LPRINT CHRS(N+128)5: C=C+1= PRINT C3: GOTO 98 

READ M "CODE # WAS NOT POSITIVE OR ZERO, SO READ NEXT 

IF M=127 AND C>389 THEN M=0 

IF M=9 THEN M=8 

LPRINT STRINGS(-N,M+128)5: C=C+ABS(N): PRINT C3: GOTO 98 
OES=MIDS(STRS(R),5,1)8 OE=VAL (OES) 

IF OE=1 OR OE=3 OR OE=5 OR OE=7 OR OE=9 THEN T=3 ELSE T=8 

LPRINT CHRS(3@) SSTRINGS(T,32)5"° "3R5° "sCss FOR Q=1 TO 20: LPRINT CHRS( 
27) $CHR$(51)32 NEXT Q: LPRINT CHR$(27) 3 CHRS(16) § CHRS(@) §CHRS(@)52 PRINT: PRI 
NT "BYTE COUNT FOR ROW"3R3" = °3C ’END-OF-ROW PRINTS, LINE FEED, CARR. RET 


RETURN 71/78 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

ANDOM: Y=RND(7)-1: E=24Y: RETURN 
=@: RETURN 

E=0: RETURN ae eee 
E=@: RETURN 75/78 

RANDOM: Y=RND(7)-1:2 E=24Y: RETURN 
RANDOM: Y=RND(7)-1: E=24Y: RETURN 
E=@: RETURN 
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. (AS IN *CUBETINT”’ ) 


695 E=125: RETURN 

696 E=123: RETURN 

697 E=119: RETURN 

698 E=111: RETURN 

699 E=95: RETURN 

700 E=63: RETURN Te Restate ea 

88@ "ROUTING FOR FIXED-LENGTH SHADINGS 

818 FOR Z=1 TO FL? RANDOM: X=RND(1@): ON X GOSUB 601 ,4602 ,683 ,4604 ,605 ,6 
@6 ;,607 5,608 ,689 ,610 +*: LPRINT CHRS(E+128)5: NEXT Z: RETURN 

820 FOR Z=1 TO FL? RANDOM: X=RND(1@): ON X GOSUB 611 ,612 4,613 ,614 4,615 ,6 
16 ;617 ,618 ,619 ,62@ +: LPRINT CHR$(E+128)3: NEXT Zs RETURN 


‘ (AS IN *CUBETINT’ ) 


89@ FOR Z=1 TO FL® RANDOM: X=RND(1@): ON X GOSUB 4681 ,4682 ,483 ,684 ,685 ,6 
86 ,687 ,688 ,689 ,690 : LPRINT CHR$(E+128)3: NEXT Z! RETURN 

908 FOR Z=1 TO FL® RANDOM: X=RND(1@): ON X GOSUB 4691 ,692 ,693 ,694 ,695 ,6 
96 1,697 4,698 4,699 ,78@ : LPRINT CHR$(E+128)53: NEXT Z: RETURN 

1080 *MULTI-BRANCH FOR FIXED-LENGTH SHADINGS 

1018 RANDOM 

1020 LPRINT CHR$(18) ; 

1038 ON N-508 GOSUB 81@ ,828 ,838 ,840 ,850 ,860 ,8708 ,882 ,899 ,9290 

1040 C=C+10: PRINT C; 

105@ RETURN 

2800 *MULTI-BRANCH FOR VARIABLE-LENGTH SHADINGS 

2010 *UP TO 9 DOT-COLUMNS (DETERMINED BY MIDDLE DIGIT OF A 3@@-SERIES DATA CODE 

) OF ANY OF SHADINGS 1-1@ (DETERMINED BY LAST DIGIT) MAY BE SELECTED BY COD 
ES RANGING FROM 381 TO 399 

2028 RANDOM 

2030 LPRINT CHRS(18) ; 

2040 NS=STRB(N): FL=VAL(MIDS(N$,3,1)) 

2050 IF RIGHT$(N$,1)="@"° THEN GOSUB 980 : GOTO 2089 

2068 ON VAL (RIGHTS(N$,1)) GOSUB 818 ,820 ,830 ,84@ ,85@ ,860 ,880 ,88@ , 
890 

2070 C=C+FL= PRINT C3 

2080 FL=10 

2890 RETURN 

3080 ’SUBROUTINE FOR BACKSPACING WITHIN A PRINT LINE 

3@1@ PRINT "BACKSPACE CODE:"3N3° BYTE TOTAL: "*5C 

5820 NS=STRS(N)2 BK=2Q*VAL (RIGHTS (NS, 2) ) 

3030 LPRINT CHRS$(3@) § CHRS(8) 5 CHRS( BK) 5 CHRS(18) 3 

3035 C=C-BK/2: PRINT C 

3040 RETURN 

10800 REM -- DATA 

10801 DATA 501,501,501, 351, 322, 333,502,502, 502, 403,48, 112,80, 112, -2, 80, -2, 112,48 

»80, -J, 112, -4, 80, 46, 96, 64, —2, 64, 0,-2; 64, -5, Q, 501 55901 9 5@1 § 501 9 501 

10@@2 DATA 5@1,501,501,501,501,501,501,501 

18004 DATA 5@1,501,501,501,501,501,501,501 

10606 DATA 501,501,501,501,501,501,501,501 

16008 DATA 501,501,501 

10@89 DATA -3, 127,999 
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1Q@@19 DATA 501,501,501, 322, 383,503, 401,—-3,051,3,5, 145 11531527, 587,507,557, 126,11 
8,114,124, 114,502,501, 402, 114, 104,980,546, 80, 40, 48, 96, 80, 88, 8B, 64, —3, 32,-4,6 
4,8,501,501 

10812 DATA 501,501,501,501,501,501,501,5081 

10@14 DATA 501,501,501,501,501,501,501,501 

10016 DATA 501,501,501,501,501,501,501,501 

19018 DATA 501,501,501 

10019 DATA -3,127,999 

10020 DATA 501,501,371, 332,503,503, 50352152535 79115 785 29y 465 43, 119,587,587, 587,35 
57,48, 98,52,88,81,40, 96, 18, 80, 88, 96, 325 4,564,564 


(ETC. ) 


We’re still not all the way there—you can easily tell that 
figure 5-28 is not a photograph, and there’s little danger that 
printouts from a FOTOGRAF program for seven- or eight- 
pin printers will be mistaken for true photographs. The dots 
are too big for subtle textures, there aren’t enough shading 
levels for realistic skin tones, and the RND function isn't 
random enough for top-quality shadings. 

Nevertheless, despite the limitations, the DMP-400 can 
manage eyes, reflections of light off eyes and lips, eyelashes, 
and probably contrasting strands of hair fairly well. With an 
Epson FX-80 or RX-80, we could use the 240-dots-per-inch 
density and undoubtedly come up with something better. 
But that might not be worth the extra work in digitizing (2.4 
times as many codes required), because the increase in reso- 
lution would still be only in the horizontal direction. If you 
look closely at some of the eyelashes in figure 5-28, you'll 
see that we need increased vertical resolution just as much. 
Perhaps a printer such as the Epson LQ-1500, which has 24 
pins packed into the same printhead space as the FX-80's top 
eight pins as well as the 240-dots-per-inch density, could 
produce a printout that would pass as a true photograph. 

With seven- or eight-pin printers, you can come closer than 
figure 5-28’s example if you choose an easier subject to sim- 
ulate. Dark, high-contrast photos are much easier than well- 
lighted subjects with small changes in texture, especially if 
the latter are in color instead of black and white. For a dra- 
matic comparison, try the famous Life magazine photograph 
taken by Karsh showing a scowling Winston Churchill in 
high contrast, and put your FOTOGRAF printout next to the 
several renditions of this photograph that have appeared in 
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FIGURE 5-28. Simulation of a photograph using the FOTOGRAF program. The subject 
is the same as the young woman in figures 5-26 and 5-27. 
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microcomputer magazines and printer manuals in the past 
three years. 

The drawing in figure 5-28 was printed in forty-two passes 
of the printhead, and each print line had 390 dot patterns. 
(That’s 16,380 dot columns.) The coding was for the DMP- 
400’s highest density, 100 dots per inch. As before, the cod- 
ing was done with a hand-and-eye enlargement of the origi- 
nal photograph, and in this case the coding sheet was thirty 
by thirty-nine inches in size. 

The early DATA lines of the FOTOGRAF program show 
examples of the various drawing features it provides. Nearly 
all of the lines contain 500-series codes for ten-column 
squares of shading and 300-series codes for under-ten-col- 
umn blocks of shading, as in the CUBETINT program. 
These, which reduce the digitizing labor considerably, are 
intermixed with LINEDRAW-type codes for individual dot 
columns with no difficulty. You'll also see a few examples of 
400-series codes for backspacing and overprinting; notice 
that DATA statements containing these have to have ten 
more codes for each ten-column unit of backspacing for the 
overprinting. So the total number of dot codes required is 
more than the 16,380 dot columns they fill. 

Keep in mind that drawings by the FOTOGRAF program 
don’t have to be done in a single print run. Following Kali- 
nowski’s suggestion (80 Micro, November 1983), you can 
also program different parts of a figure for separate printings 
that start at the same point on the paper. In his case, this 
meant separate printings for different ribbon colors, which 
opens up a whole new world of printer graphics. But even in 
black-and-white graphics you can find advantages of, for ex- 
ample, separating the LINEDRAW features of a drawing 
from the shadings provided by 300- and 500-series codes. 
Doing this does require careful planning, though, and it also 
involves a certain amount of gambling on the consistency of 
line feeds, since you are trying to print one printout on top 
of another with an exact fit. 

As with the CUBETINT digitizing, it’s nice to discover 
that there are several ways of making use of the coding be- 
sides just printing a four-by-four-inch picture like the print- 
out in figure 5-28. For example, with a widebody printer you 
can use the FOTOGRAF codes to print a picture measuring 
about twelve inches square, or you might have a two-by- 
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three-inch printout that you’d print in poster size of, say, 
thirteen by twenty inches. This is one of the things that pro- 
gram 5-16 (ENLARGER) does. 


PROGRAM 5-16. ENLARGER. Making poster-size printouts 


wit 
10 
15 
20 
30 
35 
40 
58 
68 
78 
80 
92 
180 
110 
120 
130 
140 
150 
155 


h digitized drawings. 


"PROGRAM 5-16: "ENLARGER" -- MAKING POSTER-SIZE PICTURES 
"Copyright (c) 1985 by John Warner Davenport 
"FOR TRS-80 DMP-400 PRINTER AND MODELS III OR 4 


CLEAR 5000 "(NOT NECESSARY FOR MODEL 4) 
DEFINT A-Z 
INPUT "NUMBER OF DOT-COLUMNS PER ROW" $CL 


INPUT "NUMBER OF ROWS" RW 
INPUT "FIXED LENGTH OF SHADING" ;FL 
DIM N(2*CL),X(7),¥$(7), BYTES (2#CL) 
PRS=STRINGS$(2, 154) "PRINTED RECTANGLE (ADJUST SIZE FOR DEGREE OF ENLARG’T) 
BKS=STRINGS (2, 128) "BLANK SPACE OF SAME HEIGHT & WIDTH AS RECTANGLE 
LFS=CHR$ (27) +CHR$ (58) +CHR$ (27) +CHRS(50)+CHR$(27)+CHR$(5Q) °3/72" LINE FEED 
"NOTE? LINE FEED SIZE MUST EQUAL HEIGHT OF RECTANGLE FOR BUTTING OF LINES 
INPUT "BLACK-ON-WHITE (B) OR WHITE-ON-BLACK (W)" Ss BWS 
LPRINT CHRS(3Q) § CHRS(27) § CHRS(23) § CHRS(27) $CHRS(31) 5 "ELITE, BOLD 
LPRINT CHRS(18) 5 "ENTER GRAPHIC MODE 
REM -- LINES 168-230 STORE DECIMAL DOT-CODES IN N(C) ARRAYS 
PRINT “STORING CODES IN ARRAY" 
FOR R=1 TO RW 
C=1 
READ N 
IF N=999 THEN N(C)=Ni PRINT "999": C=C+12 NUM=C!: GOTO 249 


IF N>=@ AND N<128 THEN N(C)=N: C=C+1i: GOTO 230 

IF N<@ THEN READ Mt FOR X=1 TO -N: N(C)=Ms PRINT M$: C=C+i: NEXT X? GOTO 2 
30 

IF N>5@@ AND N<6@@ THEN GOSUB 1088: GOTO 230 *FIXED-LENGTH SHADING 

IF N>30@ AND N<4@8 THEN GOSUB 2080: GOTO 230 "VARIABLE-LENGTH SHADING 

IF N>48@ AND N<411 THEN N(C)=N: C=C+1i: GOTO 230 

GOTO 188 


REM -- LINES 250-348 CONVERT DECIMAL CODES TO BINARY STRINGS 
PRINT "CONVERTING TO BINARY CODES" 
FOR C=1 TO NUM 


IF N(C)=999 THEN GOTO 350 

IF N(C)>40@ AND N(C)<411 THEN N(C)=N(C)+1: BS=RIGHTS(STRS(N(C)),1)3 BYTE 

$(C)=BS+BS+BS+BS+BS+BS+B$: C=C+1: GOTO 340 

NDEC=N(C) 

FOR P=6 TO @ STEP -1 
X (P)=NDEC-24P "(MODEL IIT: LEFT BRACKET FOR "4") 
IF X(P)<@ THEN Y$(P)="@": GOTO 320 
YS(P)="1"5 NDEC=X(P) 

NEXT P 

GOSUB 478 "ASSEMBLE AND DISPLAY BINARY-FORM BYTES(C) 

NEXT C 


REM -- LINES 360-438 PRINT BITS STORED IN BYTES(C) ARRAY 
PRINT "PRINTING BITS OF BYTES ARRAY" 


868 


870 


FOR L=1 TO 7 
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FOR C=1 TO NUM 


DIGS=MIDS(BYTES(C),L,1)2 BK=40*VAL (DIGS) -40 


175 


IF VAL(DIG$)>1 THEN LPRINT CHRS$(3@) 5 CHRS(8) § CHRS(BK) 5CHRS(18)55 GOTO 4 


20 
IF BWS="B* 
IF BWS="B" 
IF BWS="W" 
IF BWS="W" 
NEXT C 


LPRINT LFS 3CHRS$(27) § CHRS(16) § CHRS(@) § CHRS(@) § 


NEXT L 
NEXT R 
END 


> eeeeeeceeeeeeeexeee ASSEMBLY OF BYTES(C) 4H HEHEHE EHHEEEHREEEERE 
BYTES (C)=VS(Q) +¥S(1)+¥$(2) +¥S(3) +¥$(4) +¥S(5)+YS(6) 


RETURN 


: RETURN 
: RETURN 
s RETURN 
: RETURN 
: RETURN 
> RETURN 
: RETURN 


=@: RETURN 
=@: RETURN 
=@: RETURN 


MmmMamMmmMmmmm 


AND DIG$="@" THEN LPRINT BK%$3: GOTO 420 
AND DIG$="1" THEN LPRINT PRS$: GOTO 420 


AND DIG$="@° THEN LPRINT BK$; 
AND DIG$="1° THEN LPRINT PR$5 


71/70 


75/78 


RANDOM: Y=RND(7)-1: E=24Y: RETURN 


(AS IN *CUBETINT’ OR ’FOTOGRAF’ ) 


E=125: RETURN 
E=123: RETURN 
E=119: RETURN 
E=111: RETURN 
E=95: RETURN 
E=63: RETURN 


*ROUTING FOR FIXED-LENGTH SHADINGS 


FOR Z=1 TO FL: RANDOM: X=RND(1@): ON X GOSUB 
1609 ,610 = N(C)=E: C=C+1: 
FOR Z=1 TO FL: RANDOM: X=RND(1@): ON X GOSUB 
1619 ,620 +: N(C)=Es C=C+1: 
FOR Z=1 TO FL: RANDOM: X=RND(1@): ON X GOSUB 
1629 4,638 = N(C)=E2 C=C+1: 
FOR Z=1 TO FL: RANDOM: X=RND(1@): ON X GOSUB 631 
1639 4,640 = N(C)=Es C=C+1: 
FOR Z=1 TO FL: RANDOM: X=RND(1@): ON X GOSUB 641 
1649 ,650 = N(C)=E: C=C+l: 
FOR Z=1 TO FL: RANDOM: X=RND(1@): ON X GOSUB 651 
1659 4660 = N(C)=Es C=C+1: 
FOR Z=1 TO FL? RANDOM: X=RND(1@): ON X GOSUB 661 
1669 ,670 


@6 ,687 ,688 
16 ,617 ,618 
26 4627 4,628 
36 5637 ,638 
46 ,647 ,648 
56 ,657 ,658 


66 ,667 ,668 


2 N(C)SEs C=C+1i 


601 
NEXT Z: RETURN 
611 
NEXT Z: RETURN 
621 
NEXT Z: RETURN 


NEXT Z: RETURN 
NEXT Z: RETURN 
NEXT Z: RETURN 


NEXT Z: RETURN 


"LF AND CR 


7 604 
7614 
9624 
9634 
7644 
» 654 


7564 


14605 
9615 
9625 
7655 
9645 
655 


7665 
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888 FOR Z=1 TO FL? RANDOM: X=RND(10): ON X GOSUB 671 1672 5673 5674 4,675 46 


76 +677 5678 4679 ,688 = N(C)=Es C=C+it NEXT Z! RETURN 


898 FOR Z=1 TO FL: RANDOM: X=RND(1@): ON X GOSUB 6981 1682 ,683 ,684 ,685 464 


86 ,687 ,688 ,689 ,698 : N(C)=Es C=C41: 
908 FOR Z=1 TO FL: RANDOM: X=RND(1@): ON X GOSUB 
96 +697 ,698 ,699 ,700 =: N(C)=E: C=C+1: 
1@@@ *MULTI-BRANCH FOR FIXED-LENGTH SHADINGS 
101@ RANDOM 
1020 LPRINT CHR$(18)3 
103@ ON N-5@0 GOSUB 81@ ,820 ,83@ ,840 ,85@ 
185@ RETURN : 
2000 *MULTI-BRANCH FOR VARIABLE-LENGTH SHADINGS 


NEXT Z: RETURN 
691 5,692 ,693 ,694 ,695 ,6 
NEXT Z: RETURN 


5868 ,870 ,882 ,890 ,920 


2018 "UP TO 9 DOT-COLUMNS (DETERMINED BY MIDDLE DIGIT OF A 3@Q-SERIES DATA CODE 
) OF ANY OF SHADINGS 1-1@ (DETERMINED BY LAST DIGIT) MAY BE SELECTED BY COD 


ES RANGING FROM 381 TO 399 
2820 RANDOM 
20380 LPRINT CHRS(18)35 
2040 N$=STRS(N)? FL=VAL(MIDS(N$, 3, 1)) 


2058 IF RIGHTS(N$,1)="@" THEN GOSUB 992 : GOTO 2080 


2860 ON VAL(RIGHT$(N$,1)) GOSUB 810 ,9820 ,830 


2890 RETURN 
1@@0@ REM -- DATA 


5840 ,85@ ,86@ ,882 ,880 , 


18801 DATA 381,501,501, 351, 322, 333,502,502, 502, 403, 48, 112,80, 112, -2, 8B, -2, 112,48 
188, —3, 112) —4,80, 48, 96, 64,-2, 64,0, -2, 64,-5,0,501,501,501,501,501 


10802 DATA 501,501,501,501,501,501,501,501 
10804 DATA 501,501,501,501,501,501,501,501 
10826 DATA 501,501,501,501,501,501,501,501 
1@@08 DATA 501,501,501 
10089 DATA -3,127,999 


18010 DATA 301,501,501, 322, 383, 5035 401,-3, Oy 1,345 14,115 51) 27,507,507, 3575 126, 11 
By 1165124, 114,502,581, 402, 116, 104,80, 54,80, 40, 48, 96, 80, 80, BD, 64, -3, 32,-4, 64 


19,501,501 
18012 DATA 501,501,501,501,501,501,501,5@1 
10014 DATA 501,501,501,501,501,501,501,501 
10816 DATA 501,501,501,501,501,501,501,501 
10018 DATA 501,501,501 
18019 DATA -3,127,999 


18020 DATA 301558153715 332,503,503, 503, 21,2535 75115 785 295 465 435 119,507,507, 50753 
375485 98,52, 88, 81540, 96, 18, 80, BO, 965 32, 4,64, 64 


; (ETC. ) 


The main purpose of ENLARGER is to provide blowups 
of drawings, including LINEDRAW- as well as FOTO- 
GRAF-produced drawings. The principle involved is about 
the same as the use of different-sized squares to represent 
pixels in screen dumps (see program 4-7, DUMPSIZE). But 
in this case we are representing each dot printed by the 
printer (instead of screen pixels) by larger graphic prints. 


HOW TO DRAW WITH DOTS ae 


These larger prints need not be squares. We can use rec- 
tangles for the enlarging, and in so doing we can change the 
height-to-width ratio. This makes possible a second function 
of the program—to make the original coding appropriate for 
a different printer or a different print density (usually both). 
For instance, if you wanted to use the TRS-80 codes for a 
large printout of Dennis (program A-1 in appendix A) or Dag- 
wood (program 5-10) on an IBM-Epson printer in double 
density, you could adjust for the TRS-80’s 100-DPI density 
by using a nearly-square rectangle instead of a perfect 
square. In shifting from TRS-80 to Epson hardware, it is also 
necessary to invert all the original dot codes to their mirror 
images. This conversion is easily accomplished by manipu- 
lating the order of subscripts for the BYTE$(C) array in line 
480 of the ENLARGER program. 

When these poster-size printouts are viewed from a dis- 
tance of several yards, they certainly look like photographs 
and like posters of the sort that make political convention 
halls seem rather cluttered. When you get a little closer, the 
dots used in light shading look more like freckles than dots 
because they’re now rectangular, and they seem to be more 
unvarying in size than in the original small printouts. 

If this bothers you, or if you want to try converting the 
portrait into something more abstract, you can represent the 
original dots by something other than solid rectangles—el- 
lipses, diamonds, crosses, open rectangles or squares, and 
other possibilities—and not worry so much about the height- 
to-width ratio. 

Those interested in mere enlargement will find that many 
different sizes of enlarged drawings are possible, depending 
on the size of the graphic element representing the original 
dots. To get an enlargement that makes the most of an eight- 
inch printer, you'll have to experiment with other sizes than 
our three-dot-high element in program 5-16. The shape as 
well will need adjustment, depending importantly on the 
printing density you select, and the line feed will need to be 
set equal to the height of the element. If there is no need for 
converting codes to mirror-image codes, you need only re- 
verse the order of the subscripts of BYTE$() in line 480. 

At the present stage of development of picture drawing 
with dot-matrix printers, the manual digitizing labor for just 
one drawing can be enormous—many dozens of hours, in 
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fact, if you are a novice. As a result, programs such as FO- 
TOGRAF are likely to be enjoyed more by hobbyists than by 
professionals. For the dedicated hobbyist this makes it all 
the more fun—like doing one of those five-thousand-piece 
jigsaw puzzles. People in more of a hurry, however, may not 
have to wait long for new devices (e.g., optical scanners) that 
will reduce coding time sharply without a sacrifice of visual] 


quality. 


6 
Your Own Graphics Catalogue 


CHARTPAK ... Letraset... Formatt ... Zipatone ... do 
these names ring a bell? You’d certainly know them if you 
were a graphic artist or draftsman, because these (and many 
others) are the companies that produce the plastic tapes, 
screens, and rub-on lettering sheets that artisans in the world 
of commercial art and illustration depend on daily. 

After the last chapter, you might be wondering: If the dot- 
matrix printer can draw so well, could it take the place of 
those graphic arts materials? How nearly can the BASIC- 
controlled printer duplicate the wares in the catalogues put 
out by Chartpak, Letraset, et al.P Well, let's see. 


How to Make Graphic Art and Drafting ‘“‘Tapes”’ 


Drafting tapes. From the examples of horizontal lines in 
chapter 5 we’ve already seen how the microcomputer and 
printer can make solid, dashed, dotted, and patterned lines 
of varying thickness. Figure 6-1 has some more examples, 
showing that even where the patterns get pretty fancy in the 
catalogues the printer keeps up quite well. 

As with the catalogue tapes, these printer-produced lines 
can be used as connecting lines in graphs, as borders or 
frames in layouts, and other ways. The BASIC statements for 
them may be part of a larger program for a graph, diagram, or 
table in which one of these patterns is a horizontal line, or 
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DRAETING TAPES 


a ee i Hs 
STRINGS(N, 136) § STRINGSI(N, 152) STRINGS(N, 156)  STRING$(N, 188) STRINGS(N, 198) § STRING$(N, 255) 


STRINGS(4, 136)+STRING$(2, 12B) STRINGS(7, 148)+STRINGS(3, 128) STRINGS (18, 156)+STRINGS(3, 128) 
(REPEATED 24 TIMES) (REPEATED 16 TIMES) (REPEATED 11 TIMES) 


STRINGS (11, 156) +STRINGS(3, 128) +STRINGS (4, 156) +STRINGS(3, 128)+STRINGS(4, 156)+STRINGS(3, 128) 
(REPEATED 17 TIMES) 


WeBeSIVSVVeweesVeewBVeewwweswesuesweeeneweeeueeaeweauwuweuuae 


CHRS (132) +CHRS (148) +STRINGS(5, 156) +CHRE( 152) +CHRS( 144) +STRINGS(2, 128) (REPEATED 43 TIMES) 


ahah henhahakabrbabakatahatn tt th thh ther LeALALLrttLeritiiad 
CHRS ( 1558) +CHRS ( 176) +CHRS ( 184) +CHRS ( 188) +STRINGS (3, 198) +CHRS( 158)+CHRS(134)+CHRE(138) (43 TIMES) 


PL PPA ALRIA DIL PLAS PIS A PPP LPL IPE PS MPS lt ttntos VASA eer ere rn treteratnr eaterare er atatir tars Wier terme arate’ 


CHRS (136) +CHRS (144) +CHRS (136) +CHRS (132) (REPEATED 128 TIMES) 


Mee, feet, *, e, e, se, o%, Me ete, “A, a 
gE a NN Ng! St ae aS 


PAPAS PARAL PALAADL ADA APNE LEN NRL AEP LN Png Pag phage 
CHRS (156) +CHRE (144) +CHRS (140)+CHRS( 144)+CHRE( 134) +CHRS(132)+CHRS(138)+CHR$ (132) (REPEATED 68 TIMES) 


(USNS ND NNN ND ND NDNA NDNA NDI ISDN ESNenerreneneie: 


CHRS (156) +CHRS ( 128) +CHRS(136)+STRINGS (6, 156) +CHRS (136) +CHRE(128)+CHRS(156)+CHRS(128) (37 TIMES) 


FIGURE 6-1. Simulated drafting tapes and their BASIC 
statements for TRS-80 printers. Where ‘““REPEATED . .-. TIMES” 
occurs, the LPRINT statements are enclosed in FOR-NEXT 


loops. 


the printed lines may be cut out and pasted up as vertical, 
horizontal, or sloping lines. 

Remember, too, that the lines may be printed on transpar- 
ent sheets placed in the printer as well as on regular white 
paper. Thus a good imitation of transparent drafting tapes can 
be used for pasteups. And unlike the real tapes, you don’t 
have to worry about running out. (But you might have to 
worry about wearing out—the printer’s ribbon, that is.) 

The examples in figure 6-1 were from the DMP-400. Again, 
for IBM-Epson systems, use a chart (figure 4-1 or 4-3) to con- 
vert from TRS-80 dot codes. For Apple printers, subtract 128 
from the Radio Shack dot codes. 


Statistical tapes. With two or three sweeps of the printhead, 
the printer will put out a nice variety of tapes for statistical 
charts. Figure 6-2 shows some samples that are not exact 
replicas of tapes in the catalogues but ones that will serve 
just as well. These usually look best when they are printed 
in bold, except for the fine shading in the second example— 
depending on how well inked the ribbon is, bold printing 
can often produce a muddy-looking appearance with such 


STATISTICAL TAPES 


PRINTED IN TWO PASSES: 


230 AS=CHRS (231) +CHR$( 179) +CHR$ (153) +CHRS (285) 

CET KEE EEEElttlt#=A,_—=S 24 FOR N=1 TO 5Q: LPRINT AS3: NEXT Ni LPRINT CHR$(255);LFS3 
250 BS=CHRS (204) +CHR$ (230) +CHR$ (243) +CHR$(217) 
268 FOR N=1 TO 5Q@: LPRINT B$;: NEXT N: LPRINT CHR$(255) 


278 AS=CHRS(213)+CHRS( 163) +CHRS (213) +CHRS (137) 

288 FOR N=1 TO 5@: LPRINT A$3: NEXT N: LPRINT CHRS$(255) iLFS5 
29@ BS=CHRS$ (234) +CHRS$ (196) +CHRS (234) +CHRS (289) 

3@@ FOR N=1 TO 5@: LPRINT B$;: NEXT N: LPRINT CHR$(255) 


31@ AS=CHRS(213)+CHRS(129)+CHRS(171)+CHRS (129) 

32@ FOR N=1 TO 5@: LPRINT A$3: NEXT N: LPRINT CHRS$(255)5LF S35 
330 BS=CHRS (234) +CHRS (192) +CHRS (213) +CHRS(192) 

349 FOR N=1 TO 50: LPRINT B$3: NEXT Ni LPRINT CHR$(255) 


350 A$=CHRS$( 135 )+CHRS( 195) +CHR$ (225 ) +CHRS (177) +CHRS(153)+CHRS(141) 
LLL LLL 360 FOR N=1 TO 33: LPRINT A$3: NEXT Ni LPRINT CHRS$(255) 5LFS5 
37@ BS=CHRS$( 195 ) +CHRS (225 ) +CHRS (2408) +CHRS (216) +CHRS (204) +CHRS (198) 
38@ FOR N=1 TO 33: LPRINT B$3: NEXT N: LPRINT CHR$(255) 


398 AS=STRINGS (4, 255) +CHRS(129) 
CUUNUNRVARURUNEREURERERRRRERRENMENEROENE) §=©400 FOR N=1 TO 40: LPRINT AS3: NEXT Ni LPRINT CHR$(255)5LFS3 
418 BS=STRINGS (4, 255 )+CHR$(192) 
420 FOR N=1 TO 408: LPRINT B$3: NEXT N? LPRINT CHR$(255) 


430 A$=CHRS$ (255 )+STRINGS (4, 129) 


CIM E) «= 440 FOR N=1 TO 40: LPRINT A$$: NEXT Ni LPRINT CHR$(255)5LFS3 
458 BS=CHR$ (255) +STRINGS$ (4, 192) 
46@ FOR N=1 TO 4@: LPRINT B$;2 NEXT N: LPRINT CHR$(255) 


470 AS=STRINGS (288, 219) 
SSS 40 trrint A8sCHRS(255) LF 8; 

498 BS=STRINGS$ (280, 237) 

580 LPRINT B$;CHRS$(255) 


PRINTED IN THREE PASSES: 


A a a I 


520 A$S=CHRS$(213)+CHRS$(137)+CHRS (213) +CHRS$ (163) 

530 FOR N=1 TO 5@: LPRINT A$3: NEXT N: LPRINT CHRS$(255)5LFS5 
548 BS=CHRS$(178)+CHRS (145 )+CHRS (170) +CHRS (196) 

550 FOR N=1 TO 5@: LPRINT B$;: NEXT Nz LPRINT CHR$(255) 5LFS5 
560 C$=CHR$ (213) +CHRS (226) +CHRS$ (213) +CHRS (208) 

570 FOR N=1 TO 5@: LPRINT C$3: NEXT N: LPRINT CHR$(255) 


580 AS=CHRS (145 )+CHRS (129) +CHRS (197) +CHRS (129) 
S90 FOR N=1 TO 5@: LPRINT A$$: NEXT N: LPRINT CHR$(255)5LFS3 
68@ BS=CHRS( 162) +CHRS( 128) +CHRS (136) +CHRS (128) 
61@ FOR N=1 TO 5@: LPRINT BS$3: NEXT N: LPRINT CHRS$(255) 5LFS$ 


FIGURE 6-2. Statistical tapes simulated by repeating groups of dot codes in two.or 
three printhead passes. The programming is for TRS-80 printers. 


fineness or may be difficult to photograph for camera-ready 
copy. 


Borders. Simple borders like those in the catalogues can be 
programmed for the dot-matrix printer using either bit-image 
codes in graphic mode or the ready-made block-graphic char- 
acters (if available) in text mode. In either case, as figure 6-3 
illustrates, FOR-NEXT statements surrounding code se- 
quences make it easy. The sequences are usually shorter 
when you use the block-graphic characters, but you are less 
limited in what you can do when you use the bit-image dot 
patterns. 
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BORDERS 


TEXT MODE BLOCK-GRAPHIC CODE SEQUENCES 


NPA ee §=AS=STRINGS ( 30,229) 


SEEBSBSB RHE EBRB ER BEB AS=CHRS (239) +CHRS (224) 
S-a-6-8-8-8-8-o eee AS=CHRS (239) +CHRS (241 ) 
ADAALA 4 4 hhh fr tahrfat, AS=CHRS (252) +CHRS (254) 


SBABABASAEOBABABASABSA = AS=CHRS (239) +CHRS (252) +CHRS (254) 


In text mode, use FOR X=1 TO N: LPRINT CHR$(30)3A$;: NEXT X 


GRAPHIC MODE BRIT-IMAGE CODE SEQUENCES 


SPOS OOOOOOOOOOOHOOOHOO AS=CHRS( 136) +CHRS( 156) +CHRS(190)+CHRS (255) + 
CHRS (198) +CHRS (1546) +CHRS (136) +CHRS( 128) 


DANWAAWWAAIIAIIIPN9h_— AS =CHRS (156) +CHRS (184) +CHRS (240) +CHRS(184)4 
CHR$ (156) +CHRS (142) +CHRS(135) 


SPOOSOSOOOCOCOOOOOCOCOOD AS=CHRS( 156) +CHRS(156)+STRINGS(2, 198)+STRINGS$(2, 


255) +STRINGS (2, 198) +CHRS( 156) § CHRS( 136) 
ttt} | ASHSTRINGS (2, 136) +CHRS ( 198) +STRINGS(2, 136) 


IO AS=STRINGS (2,179) +STRINGS (2, 140) 
In graphic mode, use FOR X=1 TO N: LPRINT CHR$(18);A$3: NEXT X 


FIGURE 6-3. Simple borders produced on the DMP-400 by 
repeating concatenated codes for built-in block-graphic characters 
in text mode (upper set) and for bit-image dot codes in graphic 
mode (lower set). 


When it comes to fancier borders—the so-called decora- 
tive borders—only the bit-image approach is feasible be- 
cause of the resolution required. But this will often call for 
more than a single printhead pass, and figuring out the code 
sequences for many of the more baroque or gingerbread 
styles may take too much time or too many passes to consider 
doing them on the printer. 

The computer and printer have ways of making up for this 
shortcoming, though. It is a simple matter for the computer 
to select a few dot patterns at random and tell the printer to 
print the sequence of selected codes in different ways. To 
get a random selection of dot codes stored in RAM, a FOR- 
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NEXT loop enclosing the statement A(I)=RND(128) -1 for 
seven-pin printers, or A(I)=RND(256) -1 for eight-pin print- 
ers, will do the job. 

Once the codes are stored in the A(I) array, they can be 
printed in forward and backward orders, which amounts to 
printing an image and then its horizontal mirror image im- 
mediately afterward. Then the image-and-mirror-image pat- 
tern can be repeated many times in a single pass of the 
printhead. This will give you a border design, but how dec- 
orative it will be depends on the luck of the draw in the code 
selections by the computer. 


PROGRAM 6-1. DECBORDS. Decorative borders from 
randomly selected dot codes. 


10 ’PROGRAM 6-1: "DECBORDS" -- RANDOMLY SELECTED DOT PATTERNS FOR BORDERS 
15 ’FOR TRS-80 PRINTERS AND TRS-80 MODEL III (USE BOOTHE’S PRINTER DRIVER) 
20 INPUT "LENGTH OF DOT-PATTERN SEQUENCE (UP TO 16)°5Q 

3@ INPUT "NUMBER OF BORDERS TO BE PRINTED" 5N 


40 LPRINT CHRS(3Q) § CHRS(27) § CHRS(31)5 "BOLDFACE PRINTING 

5@ LPRINT CHRS(27) 5 CHRS(23) § *>COMPRESSED DENSITY 

6@ DIM A(16) "ARRAY SIZE (UP TO 16) 

1080 FOR K=1 TO N 

118 FOR I=1 TO Q: AC(I)=RND(128)-1:2 NEXT I >RANDOM SELECTION, ARRAY STORAGE 
12@ FOR I=1 TO Qt PRINT A(I)§$= NEXT I >COMPUTER-SCREEN PRINT OF CODES 
13@ FOR J=1 TO 20 

140 FOR I=1 TO Q: LPRINT CHR$(18) $CHRS(128+A(1T))§3 NEXT I ’PRINT PATTERN 
150 FOR I=Q TO 1 STEP -1: LPRINT CHRS(A(I)+128)52 NEXT I "REVERSE ORDER 
160 NEXT J 

170 LPRINT CHRS$(3@) 5CHRS(13) 5 "LINE FEED (1/6 INCH) 

182 FOR I=1 TO Q: LPRINT ACI)$: NEXT I "PRINT OF DOT CODES UNDER BORDER 
199  LPRINT CHRS(13)5 *CARRIAGE RETURN, LINE FEED 

2@0 NEXT K 

218 END 


In program 6-1, called DECBORDS for “decorative bor- 
ders,” the user can order any number (N) of borders to be 
printed having a dot sequence of length Q by answering the 
INPUT prompts in lines 20 and 30. With a fifteen-inch 
printer in elite pitch, the length of the dot-code sequence is 
limited to sixteen in this program unless the number of rep- 
etitions of the sequence in forward and reverse orders (lines 
140 and 150) is reduced from twenty in line 130. An actual 
(and typical) printout of several borders produced in succes- 
sion on the DMP-400 is shown in figure 6-4. 

Most of these designs, frankly, don’t measure up to the 
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OOS SON GOS SPW Ne FON GOP SOON SOY OEE SOOM NOS OEY SEY SOY GOON GOON SOY HES 
38 72 KH 4 B 24 B 9 

08 SAVE ARIE SARE SARE SAAN SHANE: SAVE SARIS ARGS RUE ARIE APUG: SHENG. SHPGE SAGE SUE RUE SEE: SHPUE: he 
= bed Biss sai 8 68 ald 1 


77 126 15 81 15 187 38 13 


183 112 se 9 189 46 82 87 
TRAST ISERIES SES ATS AS ESAS SEGA FESR SII RIA SERIE 
119 121 69 112 118 61 78 42 


42 55 13 55 55 21 16 72 
ELARTATATARIRLAIAIRTATRIRIRIRIRTATRURIRIATS 
25 118 42 106 @ 64 5 123 


127 112 78 33 40 eid 65 4 


95 40 18 96 18 74 10 27 


82 = all 187 9% 20 126 oe 


3 74 54 107 38 128 18 124 


FIGURE 6-4. Use of randomly selected dot codes for producing 
borders in a single printhead pass (DECBORDS program). 


decorative borders you see in the catalogues, although a few 
are somewhat interesting. If you set N high enough, say 
N= 1000, you’re bound to get some prettier ones, and some 
pretty ugly ones, too. With a few thousand printouts, you 
might come up with a work of genius, but if you do, let the 
computer take some of the credit! 

And be sure to save the code numbers printed under the 
design so you can duplicate it anytime you want. You can 
change the DECBORDS program slightly to make reproduc- 
tions—in place of A(I)=RND(128)-1: at line 110, put READ 
A(I): and then just list the work-of-genius numbers in a 
DATA statement at the end of the program. 

There’s a quicker way to achieve your artistic triumph— 
use mirror-image codes. DECBORDS provides only a hori- 
zontal mirror image by printing the code sequence forward 
and backward. With borders made in two passes of the print- 
head, you could print the original set of dot codes that is 
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selected by RND in the first pass (forward and backward as 
before) and print the vertical mirror image of that set in the 
second pass (again backward and forward). This is what MIR- 
ACLES (“mirror-image spectacles,’ program 6-2) does. 


PROGRAM 6-2. MIRACLES/TRS. Decorative borders and 
patterns using mirror images (TRS-80). 


10 "PROGRAM 6-2: "MIRACLES/TRS" -- 7-PIN DECORATIVE BORDERS & PATTERNS 

15 *Copyright (c) 1985 by John Warner Davenport 

20 °FOR TRS-80 PRINTERS AND TRS-80 MODEL III (USE BOOTHE’S PRINTER DRIVER) 
3Q@ LPRINT CHRS( 30) § CHRS(27) 5 CHRS(31) 5 7BOLD PRINTING 

48 LPRINT CHRS$(27) 3 CHRS$(23) 5 "ELITE DENSITY 

S@ INPUT “LENGTH OF DOT-PATTERN SEQUENCE (UP TO 16)"3Q 

60 INPUT "NUMBER OF VERTICAL REPETITIONS" 5R 

78 INPUT "NUMBER OF PATTERNS TO BE PRINTED" 5N 

88 DIM A(16),B(16) 

98 FOR Kz1 TON 

100 FOR I=1 TO Q: RANDOM: A(I)=RND(128)-1: GOSUB 1@@@: NEXT I ’ARRAY STORAGE 


11@ FOR I=1 TO Q? PRINT ACI)$* NEXT I PRINT "DISPLAY SELECTED CODES 
120 FOR I=1 TO Q? PRINT B(I)§: NEXT I "DISPLAY MIRROR-IMAGE CODES 
138 =0 


149 FOR J=1 TO 20 

150 FOR I=1 TO Q: LPRINT CHR$(18) §SCHRS(128+A(1))§2 NEXT I *PRINT PATTERN 
168 FOR I1=Q TO 1 STEP -1: LPRINT CHRS(A(I)+128)$= NEXT I ’REVERSE ORDER 
178 4 =NEXT J 

188 LPRINT CHR$(18) 5CHRS(13) § "GRAPHIC (7/72") LINE FEED 
198 FOR J=1 TO 20 

208 FOR I=1 TO Q? LPRINT CHRS(1284+B(I))3: NEXT I "PRINT MIRROR PATTERN 
2108 FOR I=Q TO 1 STEP -1: LPRINT CHR$(128+B(1I))3: NEXT I "REVERSE ORDER 
220 =0NEXT J 

230 8 8C=C+ii IF C<=R THEN LPRINT CHRS$(18)$CHRS(13)52 GOTO 148 


240 LPRINT CHRS( 30) 5 CHRS(13) § 71/6" LINE FEED 

25@ FOR I=1 TO Qt LPRINT A(I)§: NEXT I "PRINT SELECTED DOT-CODES 
266 LPRINT CHRS(13) § 

270 =9FOR I=1 TO Qt LPRINT B(I)§5 NEXT I "PRINT MIRROR-IMAGE CODES 
280 \LPRINT CHR$(13) 5 

2970 NEXT K 

3@@ END 


1000 *xexeHKKHRHHEE MIRROR-IMAGE CONVERSION OF 7-BIT DOT-CODES *##*#e#exHHRHEHHE 
1018 ’(MODIFIED VERSION OF PROGRAM 4-3, *TRSTOEPS’ ) 


1020 NTRS=A(T) "ENTER TRS-80 CODE, ACT) 
1930 FOR P=6 TO @ STEP -1 >(7 PINS, NUMBERED 6 TO @) 
1040 8 X(P)=NTRS-24P * (CONVERSION OF 

1050 IF X(P)<@ THEN Y$(P)="@": GOTO 1078 7” DECIMAL CODE 

1060 YS(P)="1": NTRS=X(P) 7 TO BINARY FORM) 

1670 NEXT P 


1088 BYTES=Y¥S$(6)+VS(5)+V¥S(4)+V$(3)+V¥$(2)+VS(1)+YS(8) "ORIGINAL BYTE (BINARY) 

1090 MBYTES=VS (0) +¥$(1)+V¥$(2)+Y$(3)+Y¥S(4)+YS$(5)+Y$(6) "TURN BYTE UPSIDE DOWN 

1100 BCT )=64*VAL (YS(O) )+3Z*#VAL (YS(1) )+16#VAL (YS(2) )+B*VAL (YS(3) )+48VAL (YS(4) )+2% 
VAL (Y$(5))+VAL (Y$(6) ) "CONVERT MIRROR BYTE TO DECIMAL 


111@ RETURN 


= 6 
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1@5 2 
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FIGURE 6-5. Using mirror-image dot codes to produce decorative borders 
by random selection (MIRACLES program with R=0). These borders are 
printed in two printhead passes, with the second pass being a vertical mirror 
image of the first. The randomly selected dot codes are displayed in the two 
rows of numbers under each border. The patterns on the left resulted from 
selections of six dot codes at a time, those on the right from eight-code 


selections. 


Figure 6-5 shows what happens. The effect of adding the 
mirror-image line is really rather amazing and certainly says 
something about how much symmetry matters in visual 
beauty. With the vertical as well as horizontal symmetry pro- 
vided by MIRACLES, we get nice-looking borders from over 
half—not just one out of every ten or so—of our random dot- 
code selections. And this could go on for thousands of print- 


outs! 
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The samples in figure 6-5 were produced by the DMP-400 
using program 6-2, and thus were limited to seven-dot codes, 
or fourteen-dot heights in each two-pass border. There’s 
room for more variation with eight-dot printers, so versions 
of MIRACLES for IBM-Epson and Apple printers are also 
presented (programs 6-3 and 6-4). 

How do we get the mirror-image codes for these MIRA- 
CLES programs? From subroutines, such as the one called 
in line 100 of the DMP-400’s program. These subroutines 
can be close copies of the EPSTOAPL (eight-bit) and 
TRSTOEPS (seven-bit) conversion programs in chapter 4 
(programs 4-2 and 4-3). 


PROGRAM 6-3. MIRACLES/EPS. Decorative borders and 
patterns (IBM-Epson). 


10 *PROGRAM 6-3: "MIRACLES/EPS" -- 8-PIN DECORATIVE BORDERS AND PATTERNS 


15 ’Copyright (c) 1985 by John Warner Davenport 

2@ ’FOR THE EPSON FX-80 PRINTER DRIVEN BY TRS-80 MODEL 4 (USES °’4* SYMBOL) 
3@ LPRINT CHR$(27)"°O";5 "MASTER RESET 

40 INPUT “LENGTH OF DOT-PATTERN SEQUENCE (UP TO 16)"3Q 

5@ INPUT "NUMBER OF VERTICAL REPETITIONS" 5R 

60 INPUT "NUMBER OF PATTERNS TO BE PRINTED’ 5N 


INPUT "PRINT DENSITY (@ TO &)"5D 


8@ DIM A(18),B(18) 
9@ FOR K=1 TO N 


108 FOR I=1 TO Q: RANDOM: A(1)=RND(256)-1: GOSUB 1008: NEXT I ’ARRAY STORAGE 
11@ FOR I=1 TO Q: PRINT A(I)32 NEXT I "DISPLAY SELECTED CODES 
120 FOR I=1 TO Q: PRINT B(I)3: NEXT I "DISPLAY MIRROR-IMAGE CODES 
138 C=0 "START REPETITION COUNTER 
140 = G2Z=FIX(40#Q)/256! G1%4=40%0Q-256%G62% *DOT-COLUMNS NEEDED 

150 GRS=CHRS(27)+"*"+CHRS(D)+CHRS(G1Z)+CHRS(G2%) "GRAPHIC RESERVATION 

168 LPRINT GR$$ "RESERVE COLUMNS, DENSITY 
17@ FOR J=1 TO 20 

188 FOR f=1 TO Q: LPRINT CHRS(A(I))5: NEXT I "PRINT SELECTED PATTERN 
198 FOR T=Q TO 1 STEP -15 LPRINT CHRS(A(I))5: NEXT I "REVERSE ORDER 
280 NEXT J 

210 LPRINT CHR$(27)"A" CHRS(8) CHRS( 18) 3 *B/72" LINE FEED 

220 (LPRINT GR; 

238 FOR J=1 TO 20 

246 FOR I=1 TO Q: LPRINT CHRS(B(I))5: NEXT I "PRINT MIRROR-IMAGE PATT. 
250 FOR I=Q TO 1 STEP -1: LPRINT CHRS(B(I))3: NEXT I "REVERSE ORDER 
260 NEXT J 

278 3=C=C+i: IF C<=R THEN LPRINT CHR$(27)"A*CHR®(8)CHRS(13)32 GOTO 162 

280 LPRINT CHRS(27)"2°CHRS(13) § 

290 FOR I=1 TO Q? LPRINT AC(I)§: NEXT I "PRINT SELECTED DOT-CODES 

308 LPRINT CHR$(27)"2"CHRS$(13) § 

318 FOR IY=1 TO Q: LPRINT B(I)$: NEXT I "PRINT MIRROR-IMAGE DOT-CODES 
326 LPRINT CHRS(27)"2"CHRS(13) § 

338 NEXT K 


340 END 
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10@Q "xxxeeHKKHHHHH MIRROR-IMAGE CONVERSION OF 8-BIT DOT-CODES #exxexeeeeennene 
1010 *(MODIFIED VERSION OF PROGRAM 4-2, "EPSTOAPL’ ) 


102@ NEPS=A(1) "ENTER EPSON DOT-CODE, ACI) 
1038 FOR P=7 TO @ STEP -1 *(8 PINS, NUMBERED 7 TO @) 
1040 X(P)=NEPS-2[ P "(CONVERSION OF DECI- 

1056 IF X(P)<@ THEN Y$(P)="@": GOTO 1070 * MAL CODE TO 

1060 YS$(P)="1"5 NEPS=X(P) * BINARY FORM) 

1070 NEXT P 


1080 BYTES=VS$(7)+YS$(6)+VS(5)+¥S(4) +¥$(3) +V¥S(2)+YS(1)+Y$(0) "ORIGINAL 

1890 MBYTES=VS(O)+VS(1)+¥S(2) +¥S(3) +¥S(4) +¥S(5) +¥$(6)+YS(7) "MIRROR IMAGE 

1180 NAPL=128#VAL (Y$(@) )+64*VAL (Y$(1) )+32%VAL (YS(2) )+16*#VAL (YS(3) ) +B#VAL (YS(4) D+ 
4SeVAL (YS (5) )+2*VAL (YS$(6) )+VAL(Y$(7) ) "CONVERT MIRROR-BYTE TO DECIMAL 

1110 BCI )=NAPL "TAG CONVERTED CODE AS B(I) 

1128 RETURN 


PROGRAM 6-4. MIRACLES/APL. Decorative borders and 
patterns (Apple). 


1@ REM -- PROGRAM 6-4: "°MIRACLES/APL® -- BORDERS AND PATTERNS 

15 REM -- Copyright (c) 1985 by John Warner Davenport 

2@ REM -- FOR APPLE IIe COMPUTERS WITH APPLESOFT BASIC AND APPLE IMAGEWRITER 
3@ INPUT “LENGTH OF SEQUENCE "39 

40 INPUT “NUMBER OF VERTICAL REPETITIONS "3R 

53@ INPUT "NUMBER OF PATTERNS TO BE PRINTED °3N 

10@ FOR K=1 TO N 


110 PR#O 

120 FOR I=1 TO Q 

130 A(T)=INT(255#RND( 256) ) 
148 GOSUB 1082 

150 NEXT I 


168 FOR I=1 TO Qi PRINT A(I)§" "$2 NEXT I: PRINT 

17@ FOR I=1 TO Q: PRINT B(I)3" “3: NEXT I: PRINT 

180 C=0 

190 =PR#1 

200 = PRINT CHRS(24)52 REM -- CLEAR PRINTER’S BUFFER 
21@ PRINT CHR$(27)+"E"§: REM -- PRINT DENSITY = 96 DPI 
228 GOSUR 2000 

25@ FOR J=1 TO 40 


248 FOR I=1 Ta Q 

2210 IF PEEK(493@5) <> 16 THEN GOTO 250 
268 POKE 49304,A(T) 

2/8 NEXT I 

280 FOR I=Q TO 1 STEP -1 

298 IF PEEK (49305) <> 16 THEN GOTO 299 
520 POKE 49304,A(T) 

318 NEXT I 

328 NEXT J 


330 PRINT CHRS(27)+"T16"+CHR$(10) 3 
340 GOSUR 7000 
350 FOR J=1 TO 48 


362 FOR I=1 TQ Q 
378 IF PEEK (49305) <> 16 THEN GOTO 378 
3808 POKE 49304,B(1) 


390 NEXT I 
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420 FOR I=Q TO 1 STEP -1i 


418 IF PEEK(493@5) <> 16 THEN GOTO 418 
420 POKE 49304, B(T) 

430 NEXT I 

440 NEXT J 


45@ C=C+1: IF C=<R THEN PRINT CHR$(27)+"T16"+CHR$(10) 3:2 GOTO 220 

460 PRINT CHRS(27)+"T24"+CHRS(1Q) 5 

470 FOR I=1 TO Q? PRINT A(I)3° “$2 NEXT I 

480 PRINT CHRS(27)+"°T24°+CHRS(1Q) § 

490 FOR I=1 TO Q2 PRINT B(I)5° "3: NEXT I 

38@ PRINT CHRS(27)+°T32°+CHRS$(10) 5 

310 NEXT K 

5328 END 

1000 REM -- ##*####% SUBROUTINE FOR MIRROR-IMAGE CONVERSION ##+%+ 

1018 REM -- MODIFICATION OF "EPSTOAPL® (PROGRAM 4-2) 

1020 NAPL=A(T) 

1@3@ FOR P=7 TO @ STEP -1 

1040 X(P)=NAPL-24P 

1050 IF X(P)<@ THEN Y$(P)-"@": GOTO 1070 

1@60 Y$(P)="1": NAPL=X(P) 

1070 NEXT P 

1080 BYTES=YS(7)+¥$(6)+YS(5)+¥S(4)+V¥S(3)+VS(2)+¥S61)+Y$(Q) 

1090 MBYTES=YS(@) +¥$(1)+Y$(2)+YS(3)+¥S(4)+Y¥S(5)+Y$(6)+Y$(7) 

1180 NEPS=128*VAL (Y$(@) )+64*VAL (Y$(1))+32"VAL (Y$(2) )+16#VAL (YS (3) ) +B*VAL(YS(4) ) + 
4EVAL (YS(5) )+2*#VAL (Y$(6) ) #VAL (YS(7) ) 

111@ B(I)=NEPS 

112@ RETURN 

2000 REM -- #*##**% SUBROUTINE FOR GRAPHIC RESERVATION #*#%# 

201@ RES=80*Q: L=LEN(STRS(RES) ) 

2020 PRINT CHRS(27)+°G"; 

2030 FOR Z=1 TO 4-L: PRINT "@"3: NEXT Z 

2048 PRINT RIGHTS(STRS(RES),L) 3 

205@ RETURN 


The processing time for generating mirror-image codes 
with these conversion programs is on the slow side, however, 
so you might consider speeding things up by replacing these 
subroutines with one consisting of a simple listing of the 
direct conversions, such as (with seven-bit codes): 


L000 IF A(I)=0O THEN B(I)=0O: RETURN 
1001 IF A(I)=1]1 THEN B(I)=b4: RETURN 
100e IF A(I)=e THEN B(I)=32: RETURN 


lle? IF A(I)=1le? THEN B(I)=127: RETURN 


This works in a pretty snappy way, since as soon as an IF 
turns out to be true in the computer’s scanning of the list, its 
RETURN will send the program right back to array storage 
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and printing. With eight-bit printers, this method of doing 
the mirror-image conversions (the numbers for the conver- 
sions are in the first two figures of chapter 4) means typ- 
ing 256 statements instead of the three dozen or so in 
EPSTOAPL. 

It turns out that, whether you have a seven- or eight-dot 
program, the chances of getting a handsome border design 
for a MIRACLES program vary quite a bit with the length of 
the random code selection (Q). With very short sequences 
(Q=2 to 4), there usually aren't enough different dot patterns 
to generate interesting or pretty designs. And with the long- 
est sequences (Q above 12), the visual pattern tends to get 
too complex to yield something pleasing. A certain degree of 
simplicity, combined with enough ingredients (Q=5 to 12) 
to get hundreds of possible sequences, seems to be needed 
for producing a high percentage of attractive borders. 


Screen, Tints, and Textures 


Besides symmetry and simplicity, repetition is obviously 
adding a good deal to the pleasant effects of the more suc- 
cessful borders “designed” by the computer. So far we have 
had only horizontal repetition of image-and-mirror patterns 
in DECBORDS and MIRACLES, and we've been missing 
out on effects that could result from repeating the vertical 
image-and-mirror image. Built into the MIRACLES program 
is a feature to allow two-pass borders to keep repeating them- 
selves before printing out the code numbers. If we use this 
feature, we'll get rhythm in another direction and a bigger 
bonus—new forms created by the butting of the bottom and 
top of each border design. 

Whenever the prompt (NUMBER OF VERTICAL REPE- 
TITIONS?) is answered with a value of R above zero, the 
program will produce patterns that are too wide to be called 
borders, and in many ways more intriguing. Figure 6-6 pre- 
sents some sample printouts of these multipass patterns. 

Patterns produced by vertical repetitions are fascinating in 
their final printed form, and they are downright thrilling to 
watch as they are being printed. The peak of interest comes 
when the third line of printing starts, because it is usually 
difficult to tell from the initial two-pass border how the 
whole pattern is going to look. As soon as you see the third 


TRS-80 DMP-400 


32 81 112 89 109 54 24 76& 93 81 
2 69 7 77 91 54 12 25 93 69 & 32 


36 
89 109 54 23 76 
77 91 S54 116 25 


20 16 32 60 760 10 16 1 89 90 26 123 
20 4 2 30 49 40 4 10804 77 45 44 i111 


FIGURE 6-6. Patterns produced by the DMP-400 and FX-80 
printers by repeating two-pass border designs vertically as well as 
horizontally (MIRACLES program with R>0). 


and fourth lines, you can’t help thinking ‘“Navajo!”’ or “Per- 
sian!” or “Colonial!’”’ or “Scotch plaid!” and wondering 
whether it is a piece of wallpaper, a rug, or a flannel shirt that 
you ve created on the printer. 

Whether one of these patterns reminds you of a Navajo 
blanket or a madras jacket can also be determined by the 
print density used. Generally, the condensed density doesn’t 
allow enough white space to show for clear, good-looking 
patterns, but that may be the best density for simulating the 


192 GRAPHICS FOR THE DOT-MATRIX PRINTER 


tight, intricate styles favored in New Delhi. The elite density 
is usually the best compromise between the needs for white 
space and fine resolution, but American Indian designs are 
more readily suggested by printing in condensed-elongated 
mode, and styles of the British Isles seem more on the mark 
in standard density. 

With high densities, such as the Apple printers’ 160-dots- 
per-inch density, you're likely to have a dire shortage of 
white space, so you may want to repeat each randomly se- 
lected code before storage in the forward and backward ar- 
rays. Better yet, you can adjust the random selection itself so 
that more 0 codes are selected: for TRS-80 printers, instead 
of A(I)=RND(128)-1 use A(I)=RND(25b)-1: IF A(I)>12? 
THEN A(1I)=0. With Applesoft’s RND function the equivalent 
would be A(I)=INT(512*RND(1))-1: IF A(I)>255 THEN 
A(1)=0.) This trick can be used to generate more white space 
(and very complex borders or patterns with high values of Q) 
in other printers as well. 

As with DECBORDS, you can add READ and DATA state- 
ments to the MIRACLES program for making copies of any 
designs you want to select from the random productions. No- 
tice also that you can take a pattern that comes close to a 
design you want, put the dot codes that are under its printout 
into a DATA line, and edit the sequence—change one or two 
of the numbers in the DATA statement to make it exactly the 
design you want. 

For that matter, why not use the READ-and-DATA form 
of MIRACLES for drawing nondecorative patterns from 
scratch? Once you get acquainted with the dot patterns, you 
can make good guesses ahead of time about how simple com- 
binations of them will look in mirror images and repetitions. 
An upside-down V shape, for instance, results from the se- 
quence of binary codes 64, 32, 16, 8, 4, 2, 1, 1, 2, 4, 8, 16, 32, 
and 64. If you put that sequence in a DATA line, and answer 
the prompts with Q=14 and R=6, the printer will present 
you with the lattice at the top of figure 6-7. 

It is just as easy to generate the pattern of squares and the 
brick pattern in the middle part of figure 6-7. The bottom 
pattern—rows and rows of circles—is a particularly useful 
one, as we’ve already seen in chapter 5, because it is handy 
for working out dot codes for drawings. And when you get 
involved in designing symbols, letters, and numbers, you 


YOUR OWN GRAPHICS CATALOGUE 193 


xX K KX OK KKK KKK 
sosestatevaterateracereceracerecererermermconeanenns 
CLL LLCS CCCCCCCCC LES 


DOOKQOOOOY 
PRK 
x SSSR EK 
SSSR 


RRR KR KM KKK ICKY 
SRR KR KK KNOY 
SOR R KR KKK KKK KKK KKK KING 
SSIS ROKR KKK RK RK KN 


64 32 146 8 42112 4 8 16 32 && 
12 4 8 16 32 6 6&& 32 16 8 4 2 1 


OU 
28 34 65 65 65 28 
28 & 65 65 65 BF 2 


FIGURE 6-7. Printouts from an altered version of the 
MIRACLES program in which preplanned selections of dot codes 
are entered into DATA statements instead of having random 
selections. 


may find that these rows of circles are better than graph paper 
for coding—you may want to make a dozen or more pages of 
them. 

Quite a few of the grids and patterns used in architectural 
drafting, mapmaking, and geological illustration can be sim- 
ulated by variations of the DECBORDS and MIRACLES 
programs. Failing that, drawing programs similar to LINE- 
DRAW (programs 5-10 to 5-12) may fill the bill. 

Some dry-transfer materials shown in the catalogues are 
probably impossible to do—decently, at any rate—on most 
dot-matrix printers in personal computing use today. This 
seems to be the case with the most complex architectural 
symbol sheets and with sheets having tints and textures of 
certain types. 
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Wouldn't you know it: Tints made of dots are hardest of 
all! Dot tints (also called shading films and dot screens) usu- 
ally range from 10% to 80% blackness and have twenty-five 
to eighty-five dot-lines per inch. These are precision-made 
by the graphics companies, and they vary the size and even 
the shape of the individual dots in ways that the DMP-400 or 
Epson FX-80 can barely approach. Some of the graduated 
dot-and-line tint sheets, which have grays of near-white con- 
tinuously changing to near-black and vice versa, or oblique 
lines with slightly varying slopes, present a challenge not 
likely to be met by any of today’s dot-matrix printers, even 
printers having twenty-four-pin printheads. 

But there are a few useful things in this line that seven- or 
eight-pin printers can manage. With a program called SHAD- 
INGS (program 6-5), designed for IBM-Epson printers, we 
can make random-dot tints varying in small steps from white 
to black, and graduated tints as well. 

The SHADINGS program is like the DECBORDS pro- 
gram in having sequences of dot codes selected randomly. It 
is even more like the shading subroutines in SPOTLITE 
(program 5-13) in chapter 5, and is in fact a direct extension 
of those. Instead of drawing randomly from the whole range 
of binary dot codes from 0 to 127 (as in DECBORDS), SHAD- 
INGS draws from much smaller, selected groups of dot codes 
at any one time (as in SPOTLITE). 

In the ordered series of subroutines in the SHADINGS 
program, you can see several different ways of selecting 
codes at random. The codes given are as useful for Tandy or 
Apple printers as for IBM-Epson printers; no mirror-image 
conversions are needed. The code selections do not contain 
any common trouble codes. 


PROGRAM 6-5. SHADINGS. Graduated dot tints. 


18 
il 
12 
15 
20 
38 
40 
38 
60 
70 
88 


>PROGRAM 6-5: "SHADINGS* -- 15 DIFFERENT SHADING DENSITIES 
"FOR GRADUATED DOT TINTS OR SHADING RECTANGLES 

"FOR IBM-EPSON PRINTERS, TRS-80 COMPUTERS 

*Copyright (c) 1985 by John Warner Davenport 

CLEAR 5@O: DEFINT ZyRyNyoJ Ky IyX,A 

INPUT “GRADUATED (G) OR NOT (N)"5GNS 

IF GN$="N° THEN INPUT "SHADING VALUE (@ - 15)°32Z 

INPUT "NUMBER OF LINES PER SHADING’ S5R 

LPRINT CHR$(27) "8" 3CHRS(27)"3"CHRS(20)3; ’MASTER RESET, 20/216" LINE FEED SET 
N=44 

DIM A(N) 
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90 IF GN$="N° THEN GOTO 130 

100 FOR J=1 TO 6: LPRINT CHR$(27)"L°CHRS(N) CHRS(@) SSTRINGS(N,1)52 NEXT J 
SOLID LINE ABOVE PURE-WHITE SPACE 

11@ LPRINT CHR$(13)5 

120 FOR Z=@ TO 15 


130 FOR K=1 TO R 
148 FOR I=1 TO Ni RANDOM: X=RND(N): ON Z+1 GOSUB 1080, 1100, 1200, 1380, 1400, 15 


QO, 1600, 1780, 1880, 1940, 2800, 2188, 2200, 2300, 2400, 2500: NEXT I 
158 IF K=1 THEN PRINT: PRINT "SHADING VALUE = °32 
168 FOR I=1 TO Ni PRINT ACT)$* NEXT I 
178 FOR J=1 TO 3 


175 LPRINT CHR$(27)°L* CHRS(2*N) CHRS(Q) § 
188 FOR I=1 TO Ni LPRINT CHRS(A(I))§% NEXT I 
198 FOR I=N TO 1 STEP -1: LPRINT CHRS(A(T))55 NEXT I 


288 NEXT J 

2108 LPRINT CHRS$(13) 5 

220 NEXT K 

238 IF GNS="N" THEN GOTO 258 

248 NEXT Z 

258 END 

998 REM -- SUBROUTINES FOR RANDOM SELECTIONS OF DOT CODES 
999 REM -- (POSSIBLE TROUBLE CODES 9, 10, 12, 13, AND 112 NOT SELECTABLE) 
1882 REM -- SHADING LEVEL @: BLANKS ONLY, 0% DENSITY 

1001 A(I)=@: RETURN 

11@@ REM -- SHADING LEVEL 1: 7/448 DOT RATIO, 1.6% DENSITY 
1101 IF X=1 THEN A(I)=1 

1102 IF X=2 THEN A(I)=2 

1103 IF X=3 THEN A(I)=4 

1104 IF X=4 THEN A(I)=8 

1185 IF X=5 THEN A(I)=16 

1106 IF X=6 THEN A(1)=32 

1107 IF X=7 THEN A(1)=64 

1108 IF X>7 THEN A(1)=@ 


128@ REM -- SHADING LEVEL 2: 14/448 DOT RATIO, 3.1% DENSITY 
1201 IF X>@ AND X<3 THEN A(I)=0 

1202 IF X>2 AND X<5 THEN A(I)=1 

1203 IF X>4 AND X<7 THEN A(T)=2 

1204 IF X>6 AND X<9 THEN A(TI)=4 

1205 IF X>8 AND X<11 THEN A(I)=8 

1206 IF X>10 AND X<13 THEN A(I)=16 

1207 IF X>12 AND X<15 THEN A(I)=32 

1208 IF X>14 AND X<17 THEN A(1)=64 

1209 IF X>16 THEN A(1)=0 

1216 RETURN 

13@0 REM -- SHADING LEVEL 3: 28/448 DOT RATIO, 6.2% DENSITY 
1301 IF X>@ AND X<5 THEN A(I)=0 

1302 IF X>4 AND X<9 THEN A(I)=1 

1303 IF X>8 AND X<13 THEN A(T)=2 

1304 IF X>12 AND X<17 THEN A(I)=4 

13@5 IF X>16 AND X<21 THEN A(I)28 

1306 IF X>2@0 AND X<25 THEN A(1I)=16 

1307 IF X>24 AND X<29 THEN A(I)=32 

1308 IF X>28 AND X<33 THEN A(1)=64 


1309 
1318 
1480 
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IF X>32 THEN A(I)=@ 

RETURN 

REM -- SHADING LEVEL 4: 45/448 DOT RATIO, 10% DENSITY 
IF X>@ AND X<7 THEN A(T)=1 

IF X>6 AND X<13 THEN A(I)=2 
IF X>12 AND X¢19 THEN A(I)=4 
IF X>18 AND X<25 THEN A(I)=8 
IF X>24 AND X<31 THEN A(1)=16 
IF X>3@ AND X<37 THEN A(I)=32 
IF X>36 AND X<43 THEN A(I)=64 
IF X=43 THEN A(I)=1 

IF X=44 THEN A(1)=6 

IF X=245 THEN A(1)=64 

IF X>45 THEN A(1)=0 


REM -- SHADING LEVEL 5: 64/448 DOT RATIO, 14.3% DENSITY 
IF X>@ AND X<5 THEN A(1)=0 

IF X>4 AND X<9 THEN A(I)=1 

IF X>8 AND X<15 THEN A(I)=2 

IF X>14 AND X<21 THEN A(1)=4 
IF X>2@ AND X<27 THEN A(1)=8 
IF X>26 AND X<33 THEN A(I)=16 
IF X>32 AND X<39 THEN A(1)=32 
IF X>38 AND X<43 THEN A(1)=64 
IF X>42 AND X<47 THEN A(1)=17 
IF X>46 AND X<51 THEN A(1)=66 
IF X>5@0 AND X<55 THEN A(1I)=18 
IF X>54 AND X<59 THEN A(1)=40 
IF X>58 AND X<63 THEN A(1)=34 
IF X>52 THEN A(I)=1 

RETURN 

REM -- SHADING LEVEL 6: 96/448 DOT RATIO, 21.4% DENSITY 
IF INT(X/4)=<1 THEN A(I)=0 

IF INT(X/4)=2 THEN AC(I)=1 

IF INT(X/4)=3 THEN A(TI)=2 

IF INT(X/4)=4 THEN A(I)=4 

IF INT(X/4)=5 THEN A(I)=8 

IF INT(X/4)=6 THEN A(1I)=16 

IF INT(X/4)=7 THEN A(T)=32 

IF INT(X/4)=8 THEN A(1)=64 

IF INT(X/4)=9 THEN A(1I)=17 

IF INT(X/4)=1@ THEN A(I)=33 

IF INT(X/4)=11 THEN A(1)=36 

IF INT(X/4)=12 THEN A(1)=40 

IF INT(X/4)=13 THEN A(T)=65 

IF INT(X/4)=14 THEN A(1I)=66 

IF INT(X/4)=15 THEN A(1)=68 

IF INT(X/4)=16 THEN A(I)=18 
RETURN 

REM -- SHADING LEVEL 7: 136/448 DOT RATIO, 30% DENSITY 
X=INT(X/4)° IF X=<1 THEN A(T)=5 
IF X=2 THEN A(I)=8 

IF X=3 THEN A(I)=24 


4 THEN A(I)=17 
5 THEN A(1)=18 
& THEN A(1)=20 
7 THEN A(1)=33 
8 THEN A(1)=34 
9 THEN A(1)=36 
10 THEN A(1)=48 
X=11 THEN A(1I)=68 
X=12 THEN A(I)=72 
X=13 THEN A(1)=80 
X=14 THEN A(I)=65 
X=15 THEN A(I)=81 
X=16 THEN A(1I)=74 


<< oe KK OK KX 


RETURN 


REM -- SHADING LEVEL 8: 
X=INT(X/4)5 


X=2 THEN A(I)=21 
THEN A(I)=25 
THEN A(1)=37 
THEN A(1T)=41 
THEN A(I)=42 
7 THEN A(T)=49 
8 THEN ACI)=73 
9 
i 


=< 
il 


ou 


THEN A(I)=81 
@ THEN A(1)=84 
X=11 THEN A(1I)=88 
X=12 THEN A(1I)=97 


aS oe OK OK OK OK 


X=13 THEN A(1)=100 


X=14 THEN A(1I)=38 
X=15 THEN A(1)=34 
X=16 THEN A(1)=36 


RETURN 


REM -- SHADING LEVEL 9: 
X=INT(X/4)5 


X=2Z THEN A(1)=42 
X=3 THEN A(1I)=82 
X=4 THEN A(I)=41 
X=5 THEN A(1I)=37 
X=6 THEN A(1)=84 
X=7 THEN A(I)=101 
X=8 THEN A(I)=43 
X=9 THEN A(I)=81 
X=1@ THEN A(1)=83 
X=11 THEN A(T)=85 
X=12 THEN A(1)=44 
X=13 THEN A(1I)=45 
X=14 THEN A(1)=77 
X=15 THEN A(1)=70 
X=16 THEN A(1)=86 


RETURN 


REM -- SHADING LEVEL 10: 
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180/448 DOT RATIO, 40% DENSITY 
IF X=<1 THEN A(T)=11 


224/448 DOT RATIO, 50% DENSITY 
IF X=<1 THEN A(1)=85 


268/448 DOT RATIO, 60% DENSITY 


X=INT(X/4)2IF X=<1 THEN A(T)=15 


IF 


X=2 THEN A(I)=39 
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THEN A(1I)=45 
THEN A(I)=51 
THEN -A(I)=57 
THEN A(I)=77 
THEN A(1I)=86 
THEN A(T)=92 
THEN A(T)=101 
=10 THEN A(I)=105 
X=11 THEN A(1)=188 
X=12 THEN A(T)=114 
X=13 THEN A(I)=116 
X=14 THEN A(1I)=107 
X=15 THEN A(I)=110 
X=16 THEN A(1)=103 


>< >< >< OK KC OK OK 
iuhk uh & ton 
COON oO UW S 


RETURN 


REM -- SHADING LEVEL 11: 


X=INT(X/4)2 IF X=<1 THEN A(T)=31 


X=2 THEN A(I)=47 
X=3 THEN A(1I)=55 
THEN A(T)=59 
THEN A(1)=61 
THEN A(1)=79 
A(1)=87 
THEN A(I)=93 
THEN A(1)=107 
X=1@ THEN A(1)=109 
X=11 THEN A(1)=115 
X=12 THEN A(I)=118 
X=13 THEN A(T)=121 
X=14 THEN A(1)=124 
X=15 THEN A(1I)=43 
X=16 THEN A(T )=62 


un ft NH i a 
COOnou S 
~~ 
» a 
m 
= 


os << oC OK OK OK 


RETURN 


REM -- SHADING LEVEL 12: 
X=INT(X/4)3 IF X=<1 THEN A(T)=126 


X22 THEN A(T)=125 
X=3 THEN A(I)=123 
X=4 THEN A(I)=119 
X=5 THEN A(T)=111 
X=6 THEN A(1)=95 
X=7 THEN A(1T)=63 
X=8 THEN A(I)=111 
X=9 THEN A(1)=125 
X=1@ THEN A(I)=55 
X=11 THEN A(1)=59 
X=12 THEN A(I)=79 
X=13 THEN A(I)=91 
X=14 THEN A(1I)=103 
X=15 THEN A(TI)=117 
X=16 THEN A(1I)=124 


RETURN 


REM -- SHADING LEVEL 13: 
X=INT(X/4): IF X=<1 OR X=9 THEN A(T)=126 
IF X=2 OR X=10@ THEN A(T)=125 


312/448 DOT RATIO, 70% DENSITY 


356/448 DOT RATIO, 80% DENSITY 


392/448 DOT RATIO, 87.5% DENSITY 


235835 
2504 
2385 
2386 
23507 
2388 
2509 
2488 
2401 
2482 
2403 
2404 
2485 
2406 
2407 
2468 
2489 
2588 
2501 
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IF X=3 OR X=11 THEN A(I)=123 
IF X=4 OR X=12 THEN A(T)=119 
IF X=5 OR X=13 THEN A(I)=111 
IF X=6 OR X=14 THEN A(I)=95 
IF X=7 OR X=15 THEN A(1I)=63 
IF X=8 OR X=16 THEN A(I)=127 
RETURN 


REM ~- SHADING LEVEL 14: 424/448 DOT RATIO, 95% DENSITY 
X=INT(X/4): IF X=<1 THEN A(1)=126 

IF X=2 THEN A(1)=125 

IF X=3 THEN A(I)=123 

IF X=4 OR X=8 THEN AC(I)=127 

IF X=5 THEN A(I)=111 

IF X=6 THEN A(I)=95 

IF X=7 THEN A(I)=63 

IF X>8 AND X<17 THEN A(1I)=127 

RETURN 

REM -- SHADING LEVEL 15: 448/448 DOT RATIO, 100% DENSITY 
A(I)=127: RETURN 


Figure 6-8 shows fifteen levels of shadings resulting from 
random selections of dot codes from fourteen different 
groups of restricted-range codes (#1 through #14) and from 
simply repeating binary code 127 (#15, pure black). Instead 
of drawing from two to sixteen at a time as in DECBORDS, 
the SHADINGS program selects sixty-four dot codes in each 
sampling. And although each sequence is printed forward 
and backward a few times as in DECBORDS, the hope is 
that with a sequence as long as sixty-four, the repetition 
won't be very noticeable. 

For the lightest degrees of shading (levels 1 to 4), the ran- 
dom selection is limited to single-dot codes (1, 2, 4, 8, 16, 32, 
and 64) and the blank code (0). At level 1, only 7 of the 64 
numbers selected by RND will print a dot at all—that is “%48 
or only 1.56% of the highest possible number of dots (448) 
that a seven-pin-printhead could print in sixty-four prints 
with a full range of dot codes (0 to 127). Near the dark end of 
the shading series (levels 13 and 14), only codes printing six 
or seven dots are available for random selection. At value 15, 
the chances of a dot print are 98.44% (almost Ivory Soap in 
reverse) or 441 dots out of the possible 448. 

The user of SHADINGS is offered a choice (line 30) be- 
tween a printout of (a) a graduated tint in which each of the 
random-dot patterns shade into the next-darker shading level 
or (b) a particular degree of shading, again of the user's 
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FIGURE 6-8. Fifteen densities of oe produced by random selections 
from restricted groups of dot codes in long sequences (SHADINGS 
program). 


choice (line 40), with a selection of any of the sixteen dark- 
ness values in the 0-to-15 gamut. Regardless of whether (a) 
or (b) is chosen, a later INPUT prompt (line 50) lets the user 
specify how many lines (i.e., repetitions, R) of a given shad- 
ing level are to be printed. 

When you choose (a) and run the SHADINGS program 
with the FX-80’s single, double, and quadruple print densi- 
ties (by changing “L” to “K” or “Z” in lines 100 and 175), 
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you get graduated dot tints like those in figure 6-9. Notice 
how the print density affects the rate of change from light to 
dark shading. Also, if you study the printouts for the degree 
of repetition that is revealed in the dot-pattern sequences, 
you ll see that repeated forms are hardest to detect with sin- 
gle density and easiest with quadruple density. Changes 
from one shading level to the next are also easy to detect, in 
these printouts at every fourth print line (R was set to 4). If 
you try to make the graduation more continuous by dropping 
R to 1, then a whole printout will be less than two inches 


FIGURE 6-9. Graduated dot tints produced by the SHADINGS program. 
Single (left), double (center), and quadruple (right) densities of the FX-80 
were used. 
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high. The only way to get these tints to show the smooth 
transitions from light to dark like those in the catalogues, 
apparently, is to use many more shading levels—perhaps two 
or three times as many as in the SHADINGS program. 

Graduated line tints are easier to program than graduated 
dot tints. In fact, the main idea in the programming of line 
tints has already been shown in chapter 5’s ULTHIRES pro- 
gram (program 5-1)—varying the number of 16 inch line 
feeds between horizontal lines. If you vary the number ac- 
cording to a sine function, you'll get printouts that resemble 
the line tints in the catalogues, provided your printer coop- 
erates by being consistent in the size of its line feeds. 

The SHADINGS program can be altered in several ways 
to generate special-effect textures. For instance, you can 
shorten the sequence of randomly selected dot codes and 
return to selecting from all 128 dot codes as in DECBORDS 
and MIRACLES. If you shorten the sequences to under 20 
dot codes in length, you will no longer get random-looking 
dot patterns because the repetition of dot patterns becomes 
easy to detect, but this adds to their interest. 

A good way to set up the sampling of all 128 codes is to 
delete lines 30, 40, 90-120, and 230 and change line 140 to 
FOR I=] TO Nz: A(I)=RND(LIMIT)-1: IF A(I)>12? THEN 
A(I)=0. Because of the IF, NEXT I needs to be put in a new 
line (145). Normally LIMIT, which needs to be specified in 
a new line earlier, would be 128, but to increase the amount 
of white space you can set LIMIT to higher values. For 
shorter code sequences, you simply type in a lower value of 
N in line 70. And if you want print lines to be as long as they 
were before, increase the number of horizontal repetitions 
accordingly in line 170. For example, if you drop N to 16, 
change line 170 from FOR J=1 TO 3 to FOR J=1 TO Le. 

Depending again on the luck of the draw, this altered 
SHADINGS program will give you some sparkling tapestries 
that can often be even more fascinating than the patterns 
produced by vertical repetitions in the MIRACLES program. 
(Notice that instead of repeating the same two-pass symmet- 
rical pattern many times, you are now generating a different 
dot pattern for each print line, while still getting the advan- 
tage of horizontal repetition with each line.) A typical print- 
out is shown in figure 6-10’s upper panel. 

To add to the “special effects” of these textures, you can 
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insert a black-to-white reversal of each line between the ran- 
dom selections. The lower panel of figure 6-10 shows one 
result of doing this. To provide the black-white reversal fea- 
ture, add the following lines to the already altered SHAD- 
INGS program to provide the black-white reversal feature. 


ele FOR J=1 TO le 

213 LPRINT CHRS$(2?)"L"CHRS(2*N)CHRS(O); 

C14 FOR I=] TO N: LPRINT CHRS(12?7-A(I));: 
NEXT I 

ecl& FOR I=N TO 1 STEP -1: LPRINT 
CHRS$(1e2?-A(I));: NEXT I 

C16 NEXT J: LPRINT CHRS$(13); 


By now we ve changed the original SHADINGS program 
so much that it would be wise to consider the altered version 
a different program deserving a new name. As a suggestion, 
you can save it on tape or disk under the name TEXTURES. 


Some of the graphic symbols that appear on tapes and dry- 
transfer sheets are easy to do on the printer, and some are 
not. The fairly easy ones include those that make use of sim- 
ple geometric forms such as squares, diamonds, and circles. 
Many types of arrows and pointers, register marks, traffic 
signs, and stars are also not too difficult. The same goes for 
the simpler symbols used in maps and architectural draw- 
ings. Coding sheets and programming approaches similar to 
those used for the cartoons in chapter 5 will be helpful in 
working out the codes. Two or three passes of the printhead 
may be all that are necessary for good-looking replicas of the 
catalogue symbols, assuming high-density printing is used. 
Some two-pass symbols—ones more likely to be seen in 
the daily newspapers than in graphics catalogues—are illus- 
trated in figure 6-11. This figure also shows that bit-image 
symbols can easily be intermixed with text characters; as 
soon as each spade, heart, diamond, or club symbol is printed 
in graphic mode, the program just shifts to text mode (for 
printing the numbers) on the same print line, provided semi- 
colons after the graphic symbols are used to suppress line 


feeds. 
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NORTH 

@ 3532 

9 k72 

> 00106 

& 52 
WEST EAST 
@ 37 @ 0104 
VY a94 626 
Oo K753 O jee 
& 8643 sai & 43107 

@ Akee 

Y Q3103 

0 42 

& kas 


ist Pass: 128,128, 128, 192,224, 240, 252, 240, 224, 192, 128, 128,128 
2nd Pass: 140,158,191,191,191, 159, 255, 159, 191,191,191, 158, 148 
ist Pass: 240, 248, 140, 140, 140, 152, 184, 152, 140, 140, 148, 248, 248 
2nd Pass: 128,129,131, 134, 140, 152, 248, 152, 140, 134, 131,129,128 
ist Pass: 128,128, 192,224,176, 152, 140, 152, 176, 224, 192,128,128 
2nd Pass: 128, 131,135,148, 152, 176,224,176, 152, 148, 135,131,128 
ist Pass: 128, 128, 128, 176, 248, 252, 252, 252, 248, 176, 128, 128,128 
2nd Pass: 140,158, 191,191, 198, 159, 255, 159, 198, 191, 191, 158, 148 
FIGURE 6-11. Bit-image bridge symbols combined with text- 


mode alphabetical characters. 


Ultra-high-resolution symbols. Even with condensed print- 
ing, many of the more detailed symbols can’t be handled 
very well using seven- or eight-dot printhead sweeps as in 
the LINEDRAW programs—the resolution is just not fine 
enough. What’s needed is an ultra-high-resolution version of 


the LINEDRAW program—FINEDRAW (program 6-6). 


PROGRAM 6-6. FINEDRAW. Drawing with ic-inch line 
feeds and a single pin of the printhead. 
10 ’PROGRAM 6-6: “FINEDRAW" -- ULTRA-HI-RES DRAWING PROGRAM (G CLEF SYMBOL) 


15 *Copyright (c) 1985 by John Warner Davenport 
20 "FOR TRS-GO COMPUTERS AND PRINTERS 


30 CLEAR 1680 
40 LPRINT CHRS$(3@) § CHRS(27) 5 CHRS(20) 5 CHRS(18) § *CONDENSED PRINTING 
50 LFS=CHRS$(27)+CHRS$(51) 71/216" LINE FEED 


68 INPUT “BLACK-ON-WHITE (B) OR WHITE-ON-BLACK (W)" 5 BWS 
100 FOR R=1 TO 200 

110 READ A: IF A=999 THEN GOTO 198 

120 IF A=998 THEN GOTO 218 
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138 IF A>® THEN LPRINT CHR$(27) §CHRS(16) §CHRS(1)§$CHRS(A)$38 GOTO 110 

140 READ M 

150 IF BW$="W" THEN GOTO 178 

168 LPRINT STRING$(-A,M+128)53: GOTO 188 

176 LPRINT STRING$(-A, 136-M) 3 

186 GOTO 110 

196 LPRINT LFS; 

200 NEXT R 

21@ END 

1800 °*##* POSITION GIVEN BY FIRST VALUE IN EACH DATA LINE ### 

1801 DATA 120, -80,0,999 

1682 DATA 128, -88,0,999 

1@@3 DATA 120,-88,08,999 

1004 DATA 120, -32, 0, -5,8,-43,8,999 

1005 DATA 120, -38,0,-9,8,-41,0,999 

1806 DATA 1280, -29,8,-12,8,-39, 8,999 

1807 DATA 120, -28,0,-3,8,-7,8,-4,8,-38,0, 999 

1888 DATA 120, -27,0,-3,8,-9,0,—4,8,-37,0,999 

1@89 DATA 120, —-9,0,-2,8,-15,8,-3,8,-11,0,—-4,8,-36,8,999 

1018 DATA 1280, -8,0,-4,8,-14,8,-2,8,-13,0,-3,8,-36,0,999 

1011 DATA 120,-7,0,-6,8,-12,0,-2)8,—-14, 0) —458,-35,@, 999 

1012 DATA 120, -6,8,-8,8,-11,0,-1,8,-16,0,-3,8, -35,0, 999 

1013 DATA 120,-5,0,-1,8,-1,0,-8,8,-9,0,-1,8,-17,0,-3,8,-35, 0,999 

1014 DATA 120, -5,6,-1,8,-1,8,-8,8,-9,8,-1,8,-18,0,-3,8,-34,0,999 

1615 DATA 120,-5,0,-1,8,-1,8,-8,8, -8,0,-1,8,-19,0,-3,8, -34,8,999 

1016 DATA 128, -4,0,-1,8,-2,8,; -8,8, -8,8,-1,8, -20,0,-2,8, -34,0, 999 

1017 DATA 128,-4,0,-1,8,—-2,8,-8,8,-7)0,—-158,—-21,8,-3,8,-33, 8,999 

1018 DATA 120, -4,8,-1,8,-2,0,-8,8,-7,0,-1,8,-21,0,-3,8,-33,0; 999 

1019 DATA 120, -4,8,—-1,8,-2,0,-8, 8, -6,0,-1,8,-18,0,—-3,8, -10, 0, -2, 8, -33,8,999 

1028 DATA 120, -4,8,—-1,8,-2,8,-B, 8, —6)0,—-15 8, -9) 8, -6, 8, -B, 8, -3, 8, —32, 0,999 

1021 DATA 120, -4,0,—-1,8,—-2, 0, -8, 8, -6,0,-1,8,—-8,0,—-8, 8, -7,0,—-3, 8, -32, 08,999 

18022 DATA 120, -3,08,—-1,8,—-3,8,—-8, 8, —by Oy -15 89-7) By -2y 8; —49 By —3y By -73 Oy 358, -325 0, 
999 

1023 DATA 128, —-3,0,-1,8,—-3, 8, -8,8,—-6,8,-1,8,-6, 0, —-2,8, -6, 8, -3, 8, -6, 0, -4,8,-31,0, 
999 . 

1024 DATA 120, -3,0,-1,8,—-3,0,-8,8,-5,0,—-1,8)-7,8,—-1) 8) —75 Oy —35 By -79 0, -3, 8-31 50, 
999 

1025 DATA 120,-3,0,-1,8,-3,@,-8,8,-5,0,-1,8,-6,0,-1,8,—-8,@,-3,8,-7,8,-3,8,-17,0; 
-6,8,-8,8,999 

1826 DATA 128, -3,0,-1,8,—4) 8, —6,8, -6,8,—-1,8)—-165 8, -3, 8, —6, 8, -3,8,-12,8,-11,8,-8; 
8,999 

1027 DATA 120,-3,0,-1,8,-5,0,—-4,8,-7,8,-1,8,—-16, 8, -3,8,—-7) 8, —-3, 8, -8, 8, -5,8,-8, 0, 

2 -2,8,-7,6,999 

1028 DATA 128, —-3, 8, -1, 8, —6y 8, -2, 8, —8y Oy —-1, 8, 165 8) —3y 8-730, —3, 8, 6,0, —-3, By -12,0 
97298, —-7,80,999 

1829 DATA 128, -3,8,—-1)8,—-16,0,—-1,8,-17, 0, —2, 85-758, —-3y 85-3508, —3,8,—-16, 8, -2, 85-6; 
0,999 

1038 DATA 128, -3,8,—-1,8)-16,8,-1,8,—-17, 8, —2) By by Oy -7) By -19y By —2y By 65 By 999 

1031 DATA 128, -3)0,-1,85—-16,8,-1,8,-17,8)—2) 8, —35 Oy —4)8y—1 58, —3y 8, -21,0,-3, 8-5; 
8,999 

1032 DATA 128, -4,8,-1,8)—-155 8-1, 8) —-17, By —59 By 5, By —35 By —21 4B, - 3,8, -3, 8, 999 

1033 DATA 1285-45 Oy —-1) 8-155 8, —-1,8, —-14, 89-5, By -8y Oy —4y By -21, 8, —-3, 8,-4.0, 999 

1034 DATA 120, —458,—-1,8,)—-15,8,—-1,8, —%y Oy —5, By —3, Oy —25 By —9, By —3y By -21, 8, -3,8,-450 


7999 
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120, —45Oy—158y 159 Oy —19 89-35 Oy —6y By -85 By -25 By -9, Oy —4, 8, —28, B, -3, 8, - 458 


120559 @y—19 89-145. —54 By 13, Os —2y By -9y By —4y By —20 By —4, 8, —3, 8, 999 
128-65 Oy —13 81 —By By —6y By -179 Oy —2y By 10 By —3, 8, —28, OB, —3, 8, -458, 999 
120) —-75 Oy —By By 59 Oy 19 By 175 By —29 By 10 By —45 By -195 By -3,8, -458, 999 
120-20, Oy 198) —-16) 0, -3y 89-10, O, —45 85-19, Oy —25 By -5 9 By 999 

120, -20, 0, -1,8,-16, 8, -3,8,—-11,0,-3,8,-19,8,-1,8, -6,8,999 

120, -20, 0-158 —-16, 0, —-3,8,—-11,8,—-4,8,—-18,0,—-1,8,-6,8,999 

1205-20, Oy -15 8) —-165 Oy —-3y By 125 Oy — 3,8, -17, By -1) 8, -75 8,999 

120, -20) Oy 158) —-15 50, —-3)8)-13, 0, —-458,-15,8,-1,8,-8, 8,999 

120, —-20) Oy 15 By —-15y Oy —-3y 8s 14,8, -3, 8, -14,8,-15 By -9, Bs, 999 
120,20, —15 8, —-145 05-3, 8, —-16)0,—3,8,-12,8,-1,8, -18, 0,999 

120, -215@,—-1) 8) 13,0, —-3, 8, —-17, 8, —-3, 8, -10, 8, -2, 8, -18, 0,999 
1205-21305 —1985 125 Oy -39 85-19, 0, —3, 8, -8, 8, -2,8,-11,8,999 

120, -21,@,-1;8,-11,0)-4,8)—-28, 8, —4,8,-4,8,-2,8,-15, 8,999 

120, -21,0,-2,8,-10,0,—-3,8, -23,8,-6,8,-15,8,999 

120,215, —25 8-95 Oy —45 8-445 8,999 
120,-21,0,-2,8,-8,0,—-4,8,-45,0,999 

120, -22, 8, —-258,-5,0,-5,8, -46, 8,999 

120, -22,0,-11,8,-47,0,999 

120, -22,0,-10, 8, -48, 8,999 

120, -23,0,-8,8,—-49,0,999 

120, -25, 8, —-4,8,-51,8,999 

120, -88,8,999 

120, -88,0,999 

120, -82, 0,999 

998 


Whereas the lower-resolution LINEDRAW program uses 
the whole range of dot codes, FINEDRAW uses only one 
that prints anything—code 8 (middle dot)—and the blank 
code (0). And whereas LINEDRAW uses a standard line feed 
for graphic mode (7/2 inch with seven dots), FINEDRAW 
uses the tiny 16-inch line feed. This makes a huge difter- 
ence in the number of printhead passes needed to draw a 
figure. If you recall that Y16 inch is only a third of a dot in 
size, you'll realize that for every single (seven-dot) sweep of 
the printhead using LINEDRAW, we're substituting twenty- 
one (single-dot) sweeps using FINEDRAW. 

That means we'll often have twenty-one times as many 
DATA lines in FINEDRAW, too. But they'll be much sim- 
pler: Except for special codes, there are only the two dot 
codes (8 and 0) to worry about. Negative numbers are used 
in FINEDRAW as in LINEDRAW, except that we have a 
new rule: Every 8 or 0 must be preceded by a negative num- 
ber, even when you don’t want to repeat (in which case —1 
is used, meaning “print the following code only once’). 
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This rule was put in to give ourselves full freedom to use 
positive numbers for positioning (note line 130), line feeds 
(code 999 as before), or special subroutine calls. The latter 
are not illustrated in program 6-6, but these could take many 
forms, even a temporary shift from FINEDRAW to LINE- 
DRAW. 

This rule also makes it easier to see the simple alternation 
patterns that form in DATA statements when you follow the 
practice of starting a new DATA line for each new line of 
print. As lines 1013-1018 of program 6-6 show most clearly, 
you can see not only the alternation of 0 and 8 codes easily 
but also how the codes line up vertically when several DATA 
lines are listed on the screen or on the printer. This is a 
godsend for detecting and editing errors in data entry. 

Suppose we try out the FINEDRAW program on a chal- 
lenging symbol that has plenty of curves—the G clef. First 
we ll have to figure out the codes for each DATA and print 
line. Assuming condensed printing (the only density that 
makes sense with FINEDRAW) and also assuming that the 
printhead will travel parallel to the central shaft of the G clef, 
we ll have to start with a drawing like that on the left side of 
figure 6-12. 

With some guesswork and trial and error, we draw a G clef 
that is elongated about ten units for every seven units in the 
final printed form, on ten-squares-per-inch graph paper or (as 
in figure 6-12) on seven-by-ten matrices of circles drawn by 
the printer (as in figure 6-7, bottom). So far, the process is 
just about the same as with the distorted drawing in WHITE- 
CAT (figure 5-21), except that we’ve gotten a little help from 
where the G clef lies in relation to the five lines of the musi- 
cal staff (E-G-B-D-F, remember?). 

At this point we could use the drawing to work out the 
codes for a LINEDRAW version of the G clef, and for com- 
parison, we will. For a G clef drawn that way, we need only 
three passes of the printhead to cover the eighteen squares 
(which are eighteen dots) of the symbol’s width. For FINE- 
DRAW, however, these eighteen squares need to be ex- 
panded to three times as many, since there will be three '416- 
inch line feeds for each dot-unit of width. 

Hence the fat (right-hand) drawing of figure 6-12, from 
which we can directly read off the sequence of code-8 dots 
and code-0 blanks needed for each DATA and print line. It’s 


LINEDRAW PASSES FINEDRAW PASSES 


g out dot codes for a 
FINEDRAW version of the G-clef symbol. 


usually best to use the same numbering system for the DATA 
lines, print lines, and the lines in the “fat” drawing, to make 
editing easier. 

Often the DATA values won’t come out exactly right the 
first time. When you get your first look at a printout you may 
think you can’t come any closer to perfection, but if you have 
a magnifying glass you'll see the flaws easily. In the case of 
our G clef, our first-draft printout is shown on the left in 
figure 6-13. This doesn’t seem to need any more gilding of 
the lily, but if you “explode” the drawing, as in the right- 
hand portion of figure 6-13, by switching from condensed to 
pica density (or better yet, elongated-pica) and increasing the 
line feed (line 50), you'll likely see some chances for further 
improvements (see the circled areas of the exploded G clef). 


Le 
q 


“On x val 
aM 


FIGURE 6-13. Left: printout of the FINEDRAW version of the 
G clef before final editing. Right: exploded view revealing 
imperfections (circled) to be corrected in the editing. 


After editing our G clef, we got the comparison of LINE- 
DRAW and FINEDRAW renditions shown in figure 6-14. 

You can write versions of FINEDRAW for IBM-Epson and 
Apple printers pretty easily by noting the differences among 
the three versions of LINEDRAW (programs 5-10, 5-11, and 
5-12) in chapter 5. For the Apple printers, the smallest line 
feed available—"44-inch—should produce nearly as good a 
printout as the printers having Yie-inch feeds. If it doesn’t, 
there is the consoling tradeoff that only two-thirds as many 
DATA and print lines would be needed. 

Now that we've got the printer printing musical symbols, 
the obvious next step is to get the computer to listen to some 
real music, a live piano performance perhaps, and translate 
the sounds into bit-image codes for the printer. Publishers of 


FIGURE 6-14. Gclefs from the LINEDRAW program, printed 
in three printhead passes, and the FINEDRAW program, printed 
in fifty-three passes. 


Drawn by LINEDRAW: Drawn by FINEDRAW: 
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sheet music would no doubt find that handy, and so would 
composers. How to perform these marvels is beyond the 
scope of this book, but don’t be surprised if the high-tech 
people have it all figured out by the time you re reading this. 
Even earlier than that, they will have reversed the process 
by getting a computer to read some printed music and play it 
through a synthesizer. 


Logos. Life is too short to draw very many symbols the 
FINEDRAW way, certainly not pages of sheet music. But if 
you have only one or two figures to draw, it can make sense 
to invest this kind of effort. This is likely to be the case with 
decorative initials, special insignia, company logos, and 
other large symbols. 

FINEDRAW is not the only way to make logos and letter- 
head designs, nor is LINEDRAW the only alternative. In the 
Epson FX-80 manual, Kater has three whole chapters on 
making logos and other symbols with user-defined characters 
that can be stored in that printer and retrieved with ASCII 
codes. Presumably the same sort of approach can be taken 
with the Apple Imagewriter and its “custom characters,” and 
the manual for that printer also provides a detailed chapter 
on this topic. 

If you’re tempted to use these techniques or the LINE- 
DRAW approach, remember that a good final product can be 
achieved with some of the old tricks of the commercial 
graphics business, such as making a figure extra large and 
then shrinking it to a final size in which flaws become invis- 
ible. Also, don’t forget black-white reversals and mirror- 
image reversals, by BASIC or by camera. 

We began this chapter by asking how closely the dot-ma- 
trix printer (meaning the most common eight- or nine-pin 
printers) can match the quality of the tapes and dry-transfer 
sheets of the graphics catalogues. The honest answer to this 
seems to be: surprisingly well on ordinary drafting tapes and 
decorative borders, also nicely on some complex symbols 
and logos (but with lots of work involved), less well (but 
often passably) on common symbols, and poorly on the most 
detailed screen tints and curvy symbols. If you're disap- 
pointed by this outcome, consider the efforts summarized in 
this chapter as merely a warm-up for some more serious work 
on drawing with eighteen- or twenty-four-pin printers. 


7 
Your Own Alohabets 


MORE than 70% of the space in graphics catalogues is de- 
voted not to borders, textures, and symbols but to letters and 
numbers. In dot-matrix printer graphics we have reason to be 
concerned about making our own letters and numbers, be- 
cause the built-in characters of all printers fall short of meet- 
ing our needs in graphs, diagrams, and tables. At times these 
ready-made characters are too small, at other times too big. 
Often they’re not facing the right way on the page, and some- 
times they're difficult to line up precisely with hash marks 
on the axis of a graph. And there are times when only profes- 
sional-looking typefaces will do the job. 

So let’s see what homemade alphabets we can build out of 
the bit-image dot patterns. 


How to Make Numbers and Letters 


The first thing we’ll need is some graph paper, or better yet, 
some printouts of blank dot matrices such as the ones we 
produced in the last chapter (figure 6-7, bottom drawing), for 
figuring out the dot codes. 


Coding sheets. Then we’ll have to decide what size of char- 
acters we want and what direction we want them to face 
(orientation on the page) when they’re printed. These things 
will depend a whole lot on whether we want to be able to 
print each character in a single sweep of the printhead. With 
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5x5 5X7 7x 10 
IBM-EPSON: 
DIRECTION—+_~ 
i 

PRINTING ——»++ 

APPLE 

APPLE, ees RENEE SRBBLLSRS 
PRINTOUT: cs B G) 


FIGURE 7-1. Coding sheet for homemade letters of different 
size and orientation. 


a single pass of a seven-pin printhead, we won't be able to 
make numbers or letters much bigger than the built-in ones, 
but we do have some leeway about size and quite a bit of 
freedom to vary their style. Figure 7-1 shows three different 
letters we can get out of the seven-dot width of a single 
Sweep. 

In the left part of this figure you can see that the code 
sequence 24+36+4+4+14 on IBM-Epson printers (12+ 
18+16+16+56 on Apple and Tandy printers) prints out 
as a tiny but legible J that is turned at a right angle from 
the direction the built-in characters face. In the center sam- 
ple, we get a somewhat larger letter B facing still another 
direction from IBM-Epson sequence 127+73+73+73+54 
and (by chance, because of vertical symmetry) the same se- 
quence on Apple and Tandy printers. In the right-hand side 
of the figure we have a larger, bold-style G produced by 
the chain 65+ 127+99+99+4+111+111+99+99+ 127+65 on 
IBM-Epson printers and 65+ 127+99+99+ 123+ 123+3+ 
99 + 127+ 65 on the Apple and Tandy printers (128 needs to 
be added for the Tandys, as usual). 

To make a whole alphabet, you have to decide on the size 
of the dot matrix (five by seven, seven by ten, etc.) that will 
fit all the letters and numbers of that character set, and then 
draw the characters on the coding sheet. Then, regardless of 
the size of the characters, you have at least four choices as to 
their orientation: upright (right side up, like the built-in char- 
acters), perpendicular (turned ninety degrees to the right 
from the built-in characters), upside down (opposite of up- 
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UPRIGHT §PERPEND- UPSIDE- REVERSE 
ICULAR DOWN PERPENDICULAR 
IBM-EPSON: GREY BHSODOOD REARS Baaseow 


DIRECTION —» 


PRINTING ——~> 


APPLE, 
TRS-8Os 


PRINTOUT: R 7 Ps ac 


FIGURE 7-2. Coding sheet showing different dot-code 
sequences for the four different orientations of the same character. 


right), and reverse perpendicular (opposite of perpendicu- 
lar). 

4 figure 7-2 shows, the orientation will determine which 
particular dot codes are required for a given character as well 
as the order of the codes. Give this figure some extra study, 
because to understand it you have to visualize the movement 
of the printhead as going from the left margin of the paper 
toward the right side, and you also have to keep in mind 
where the printhead’s upper dots (the #1, #2, and #4 pins 
on Apple and TRS-80 printers, the #64, #32, and #16 pins 
on IBM-Epson printers) are. 

Most of the alphabets whose characters can be printed in a 
single printhead pass use small enough dot matrices to meet 
the requirements for “user-defined” characters with the 
Epson FX-80 or “custom characters” with the Apple Image- 
writer. In both cases, there is a rather complicated series of 
special codes for defining, storing, and retrieving these 
homemade characters (see the manuals for details). With the 
FX-80, the characters (which can be symbols other than let- 
ters and numbers) must be small enough to fit into a matrix 
that is eight dots high and six columns wide, but you can 
consider this an eight-by-eleven matrix because (as with the 
built-in characters) the five intermediate positions between 
the six columns can be used, and either the top eight or the 
bottom eight of the FX-80’s nine pins (but not all nine at a 
time) can be used. 

With the Imagewriter, custom characters can also use 
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either the top or bottom eight of the nine pins, but unlike the 
FX-80, the characters can be up to sixteen dots wide. With 
both printers, you should note that the storage of homemade 
characters in the printer's RAM is temporary; if you shut off 
the power, they will be lost. So a format file that is stored on 
tape or disk will be needed for storing the dot-code se- 
quences and “installing” these custom characters—and the 
special control codes for storing and retrieving them—every 
time you want to use them after booting up the system. 

If your printer doesn’t have the custom-character feature, 
there is no need to weep. All the storing and retrieving can 
be done by the computer and dot-code sequences can be sent 
to the printer for printing homemade characters nearly as 
quickly. Naturally, after putting in all the time to work out 
the dot codes for the characters, you would be storing this 
information on tape or disk anyway. And control codes as 
well as dot codes can be built into the definitions of the 
characters, as we'll see later in this chapter. 

In the examples of character sets that follow, the printouts 
will be from the DMP-400 (usually) and the FX-80 (occasion- 
ally). Code sequences for the characters will not be pre- 
sented in most cases, but full coding for the more important 
alphabets can be found in appendix B. The codes are in 
binary-sum form, so that they can also be used for Apple 
printers. 


The smallest alphabet. A five-by-five matrix appears to be 
the smallest that will provide decent-looking, legible char- 
acters. When these are in the perpendicular orientation they 
can be made taller or shorter by varying the print density. 
The upper part of figure 7-3 displays some five-by-five per- 
pendicular characters in standard and elongated sizes as they 
appear in DMP-400 printouts. 

When printed at higher densities, these five-by-five char- 
acters are in many cases too small to be clearly legible, and 
for many purposes they may be too primitive in style, at 
whatever density, to be useful. In a tight squeeze, though, 
they ll help solve a problem. 


Near-normal-sized alphabets. The lower part of figure 7-3 
shows a homemade five-by-seven alphabet in several densi- 
ties, and the (DMP-400) printer’s built-in capital letters are 
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STANDARD 


& BCODOEFGHIJKLMNOPGRSTUVWXY Z 


CONDENSED-—ELONGATED 


ABCDEFGHIJKLMNOPGRSTUVWXY2Z 


2 xX 7 ALPHABET 


BUILT-IN CHARACTERS: 
IMOCNWLUTH OKIE ZOCCeNr-D>SSxX>N 


STANDARD 


ABCDEFGHIJKLMNOPQRSTUVUWXY2Z 
abcdefghijklmnopqrstuvwxyz 


ABCDEFGHIJKLMNOPQRSTUVWX YZ 
abcdefghigjklmnopqrstuvwxyz 


CONDENSED 


ABCDEFGHIISJTKLMNOPARSTUNVU XY 2 


CONDENSED-ELONGATED 
ABCDEFGHIJKLMNOPQGRSTUVUWXY2 


FIGURE 7-3. Perpendicular five-by-five and five-by-seven 
alphabets printed on the DMP-400. For the latter characters, a 
comparison with the printer’s built-in characters is provided. (See 
programs B-2 and B-4 in appendix B for the dot codes.) 


also shown for comparison. At the standard density of 60 dots 
per inch, these perpendicular five-by-sevens are slightly 
taller than the built-ins; the sizes are nearly identical when 
the homemade characters are printed in elite (72-dots-per- 
inch) density. 

Figure 7-4 shows five-by-seven do-it-yourself character 
sets in upright, perpendicular, and upside-down orienta- 
tions. Three different sets of dot-code sequences were nec- 


PERPENDICULAR 
FIGURE 7-4. Five-by- 


seven alphabets in 
upright (left), 
perpendicular (center), 
and upside-down (right) 
orientations. The upright 
and upside-down 
characters run parallel to 
the printhead’s 
movement. (See 
programs B-3, B-4, and 
B-5 in appendix B for the 
dot codes.) 


ABCDEFGHI JKLMNOPQRSTUVUXYZ 


NMOd-S3qaTSdN 


ABCDEFGHIJKLMNOPQRSTUVWUXYZ 
UPRIGHT 
ZARMANLSAYODdONWINCIHS 4309089 


essary for these. All three orientations are printed in standard 
density. 

Compare these alphabet sets with those in figure 7-5, 
which are printed in elongated, elite, and condensed pitches. 
See how the uprights and upside downs get fatter and thin- 
ner, while the perpendiculars get taller or shorter, as the 
density is varied. For a view of reverse perpendiculars, turn 
the page upside down. 


FIGURE 7-5. How upright and upside-down characters are affected differently 
from perpendiculars by changes in the DMP-400’s printing density. 
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ABCOEFGHIJKLMNOPQRSTUVUXYZ 


CONDENSED 


ABCDEF GHI JKLMNOPQRSTUYUXYZ 
ZAXAANLSYOdONW INS TH9II0IGY 


ZAKAANLSAYOdDONW IALSTHS 43098 
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The DMP-400’s five-by-seven perpendicular set has 
lower- as well as uppercase letters (see figure 7-3). The low- 
ercase letters that have descenders (“legs’’)—letters g, p, q, 
and y—have backspace control codes as well as dot codes in 
their string definitions. That is, the dot-code sequence for 
each of these letters is preceded by the sequence CHR$ 
(30) + CHR$(8) + CHR$(4) + CHR$(18) to start the printing 
two dot-spaces lower than for the other characters. This little 
trick is easy in the case of perpendiculars but of no use for 
descenders in the upright or upside-down alphabets. 

Unless we are taking advantage of features such as the 
Epson FX-80’s provisions for user-defined characters, we 
can’t make our upright letters exactly like the built-in char- 
acters because we are restricted to whole dot-columns and 
not allowed to address intermediate positions between them 
that the printer’s ready-made characters use. But we can ap- 
proach the sharpness of the built-ins in a perpendicular al- 
phabet if we use a high density and a five-by-eleven matrix. 
Figure 7-6 shows the five-by-eleven condensed alphabet that 
makes use of the denser packing of the dots in the DMP- 
400’s condensed pitch. 

If you're planning to use normal-sized homemade charac- 
ters for camera-ready copy, you may run into difficulties in 
the photographic reproduction of five-by-seven characters 


FIGURE 7-6. A perpendicular five-by-eleven condensed alphabet 
designed for 100-dots-per-inch density on the DMP-400. (See programs B-6 
and B-7 in appendix B for the dot codes.) 


SX 11 CONDENSED ALPHABET 
CONDENSED 


ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 


ELITE 


ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 


STANDARD 


ABCDEFGHIJKLMNOPQRSTUVWXYZ20123456789 
BE RO RRB DHORU DDD RDR RON ROBHR RRA RA eG 
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because of their loose dot packing. Much better results will 
show up with the five-by-eleven condensed letters. A com- 
parable alphabet can be produced on IBM-Epson printers by 
using their double density (120 dots per inch) and a five-by- 
thirteen matrix. For the best quality on Apple printers use a 
five-by-seventeen matrix with the highest density (160 dots 
per inch). (The numbers thirteen and seventeen are chosen 
here instead of twelve and sixteen because they are odd 
numbers, which tend to work better than even numbers in 
designing alphabetical characters.) 

Black-white reversals often don’t come out clear and legi- 
ble with any of the homemade alphabets we've seen so far. 
With the five-by-five and five-by-seven characters printed in 
standard or elite densities, you can’t reduce their size pho- 
tographically by more than about 25% before they become 
pretty hard to read—there’s just not enough white area. The 
same holds for printing in the DMP-400’s condensed pitch, 
the Epson double density, and the Imagewriter’s only den- 
sity without any photographic reduction. But with five-by- 
eleven, five-by-thirteen, or five-by-seventeen matrices you 
have a lot more room for maneuvering to get a good, legible 
white-on-black. For example, you can change two or three 
codes in each letter’s code sequence so that the letters con- 
tain more white space. 

We can also make our letters easier to read, and a bit more 
stylish, by adding serifs. If we make better use of the seven- 
dot width in a seven-by-eleven perpendicular set, for exam- 
ple, we can get a serified alphabet that is quite useful. Figure 
7-7 shows what our seven-by-eleven serif characters look like 
on the DMP-400 along with some seven-by-sixteen serifs on 
the Epson FX-80. 

TRS-80, Apple, and IBM users who envy those having 
italic alphabets in their printers’ ROMs—such as the Epson 
FX-80 users—should especially take note of what can be 
achieved with homemade alphabets. Figure 7-8 shows that a 
fairly good italic in both upper- and lowercase can be man- 
aged with the DMP-400 in condensed pitch. This character 
set was designed in the upright orientation, the same way as 
the built-in italics on the FX-80 face, using a seven-by-nine 
matrix. The code sequences (appendix B), converted to 
Epson coding, should work for the IBM Graphics Printer in 
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7X11 SERIF ALPHABET 


STANDARD 
ABCDEFGHIJKLMNOPQRSTUVWRY20 1254567892 


ELITE 
ABCDEFGHI JKLMNOPORSTUVWXY20 12354567890 


CONDENSED 


ABCDEFGHIJKLMNOPQRSTUVWXYZO 1293456789 Milt2 


7 X 1464 SERIF ALPHABET CEPSON FX-—-80) 


A BC DE F G&G Hdd KL S 


AH RHRAABHAA EH & aA 


N QO P Q@ RS TU VY VU & Y 2 


HOROReeHeeeee 


FIGURE 7-7. Serif alphabets: seven-by-eleven perpendiculars 
from the DMP-40 and seven-by-sixteen perpendiculars from the 
Epson FX-80 (double density). (See programs B-10 and B-11 in 
appendix B for the dot codes.) 


FIGURE 7-8. An upright italic character set for TRS-80 printers. 
(See program B-8 in appendix B for the dot codes.) 


ABCDEFGHITKLENOPQARSTUUVUHWNXYZ/ “#E 
abcderfrQGhisFk&l anoPperstuvwxvyzZa&’ & 
ZZZ4G5b7ABPDC #3 -2./045N\*%_' 


Personal Computer Graphics 
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7X10 BOLD ALPHABET 


ABCOEFGHIUKLHNOPORSTUVAXY20123456768 


ARBECKOWERF IGRHEIBJRKELIMBNBOBPRORRESH TRUIVEMEXEVECEOR (ECUSE4ISIGI7IOR9 
ABCDEFGHIJKLNNOPORSTUVWXYZ0123456769 


STANDARD 


ARBECHORERFIGHHG IRRKELEMPNEORPECRRISETRURVEMEXE VEZHON 1 ROTST4ISIGR7 EES 
ABCDOEFGHIJKLMNOPORSTUVWX¥20123456768 
abcdefghijklmnopqrstuvuxyz 


ARBECHORE RF RGRHE IR JRKELEMPNEORPRORRESH TRURVEMEXE VEZEON 18 2RSE4ESIGR ESE 


ABCDEFGHIJKLMNNOPORSTUVWXYZ0123456769 
abcdefghijklmnopqrstuvwxyz 


CONDENSED 


DEAR HMARABHDHRA NERD OROREHRONMORBRHBODREABBOS SAEs 
ABCOEFGHIJKLMNOPORSTUVNXYZ201234856867698 


FIGURE 7-9. Seven-by-ten perpendicular bold characters (DMP-400). (See 
program B-9 in appendix B for the dot codes.) 


double density, although the characters would be slightly 
narrower. 

The alphabets we've seen so far may be a bit too dainty for 
things like labeling a graph. But we still haven’t run out of 
ways to print characters in a single printhead pass. Let’s try 
a homemade boldface style. 

Figures 7-9 and 7-10 show two bold alphabets, a seven-by- 
ten bold perpendicular for Radio Shack printers and an eight- 
by-eighteen bold perpendicular for IBM-Epson printers. 
These are probably more useful for legends on graphs, can 
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SB x 18 BOLD ALPHABET CEPSON FX-—-80) 


SINGLE DENSITY 


TUYHXY201234567890 
POU DRHEOHAEGEGHEED 


DOUBLE DENSITY 


TUVwWXY2031238345 6 7 8 8 I 


HDODORMRBORBABEABAEAEBED 


FIGURE 7-10. Eight-by-eighteen perpendicular bold characters 
(FX-80). (See program B-12 in appendix B for the dot codes.) 


still be printed in a single pass, and work well in black-white 
reversals. The reversals, however, require a black surround 
(i.e., a code-255 black print or two before and after the print 
of each character), or else there’ll be no division between the 
outer white parts of the characters and the white paper on 
which the black parts are printed, making the characters 
semi-invisible. 


A nine-pin alphabet. Labeling on graphs that are to be pho- 
tographically reduced by 70% or more is in danger of becom- 
ing illegible, especially if the characters used are bold or 
medium bold and near the size of built-in characters. The 
Epson FX-80 gives us a way of solving this problem with its 
unique nine-pin graphic mode. Using all nine pins, we can 
make bigger letters (but light style instead of bold) and still 
print them in a single pass. 

By adding a ninth (bottom) pin that is addressable, this 
mode provides twice as many dot patterns—512 instead of 
256—as well as added height to characters in the upright 
orientation. It’s almost as easy to enter the nine-pin mode 
as it is to use regular eight-pin graphics: Use the com- 
mand LPRINT CHRS$(27)CHRS$(94)CHRS$(D)CHR$(N1L)CHRS 
(N2), where D=0 is for single density and D=1 is for dou- 
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ble density (N1 and N2 specify the number of dot columns 
reserved for graphics as usual). 

The dot codes tor the top eight pins remain the same, 
but here comes the catch: It takes a two-byte code to fire 
nine-pin dot patterns. This is where Kalinowski’s double- 
hexadecimal code system may save the day. If it takes the 
two-byte sequence such as CHR$(240) + CHR$(128) to pro- 
duce a single print of a dot pattern, how much shorter it is to 
use HG+E0 instead! Also, it turns out that the second of the 
two bytes for each print is always either 128 or 0 (EO or AO 
in double-hex), because that second byte represents either 
the firing or the nonfiring of the ninth pin in the printhead. 

In appendix B, youll find a double-density nine-by- 
thirteen upright alphabet for the FX-80’s nine-pin mode that 
uses double-hex codes for every character. The usual form of 
the code sequence defining a letter (say, R) is 


R=RL+E0+EO+HV+E0+E8+E0+E8+A0+ES+AO+ES8+A0 
+EB8+A0+EC+A0+EBE+AQ+EB+AO+E9+E0+CG+EO+BO 
+EO+STRINGS (4,0) 


where RL is shorthand for the graphic reservation 
(AR+CU+A1+AF+<A0, or 27+94+1+15+0, for reserving 
fifteen dot columns—thirteen for the letter and two for the 
space between letters). Many codes are shorter than this one, 
since wherever 128s or Os occur in runs, the STRING$ func- 
tion can be used for repeating. If this still seems like a lot of 
work, consider how long the definition of a nine-pin letter R 
would be in CHR§() coding. 

In double density the nine-by-thirteen upright alphabet 
looks like the one shown in figure 7-11. 


ABCDEF'GH I JKLMNOP@RSTUVWXYZ 1 2345678390% 


FIGURE 7-11. A nine-by-thirteen upright alphabet using the 
FX-80's nine-pin graphic mode in double-density and double- 
hexadecimal codes. (See program B-13 in appendix B for the dot 
codes.) 


Werd-Spelling Programs 


It’s one thing to combine dot patterns into letters and num- 
bers, but quite another to combine these characters into 
words, phrases, and multidigit numbers. BASIC programs for 
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spelling words or forming large numbers will have to take 
into account the orientation of the characters on the page, 
their size and spacing, how the user tells the computer what 
to spell, and other matters. 

As usual, there is more than one approach possible. The 
first that comes to mind for forming a word begins by defin- 
ing the characters of the alphabet in concatenated dot-code 
strings. The upright italic letter C, for instance, can be la- 
beled C$ and be defined for Radio Shack printers as follows: 


CS=CHRS$(17b)+CHRS (204) +STRINGS (2,194) + 
STRINGS (2,193) +CHRS$ (161)+CHRS$(131)+ 
CHRS$ (128) 


After we’ve done this for all the letters in the alphabet, we 
can print a series of them in any order we want by using a 
simple LPRINT command. Assuming we are already in 
graphic mode and have cleared enough string space (say, two 
thousand bytes), the command can be of this form: 


BASIC Command Printout 
LPRINT SS;PS;ES;LS;LS; 
IS;NS;G$ SPELLING 


or of this form: 


LPRINT S$+P$+E$+L$+L$+ 
IS+NS+G$ SPELLING 


or even of this form: 

LPRINT SSPSESLSLSISNSGS SPELLING 
but not, unfortunately, of this form: 

LPRINT SPELLING (none!) 


We can, however, get rid of all those dollar signs and see 
what we re spelling more clearly by defining all our variables 
as string-type with a DEFSTR A-Z statement early in the pro- 
gram. If you do this, make sure that the DEFSTR statement 
comes after a CLEAR statement and that any numeric vari- 
ables in the program are given type-declaration tags (%, !, or 
# suffixes) in their naming. 

After DEFSTR, the computer will treat A the same as A$ 
and consider it to contain the same dot-code sequence. For 
lowercase letters (e.g., g), GL will mean the same as GL$. 
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And if you make the change to DEFSTR after you've already 
typed the character string definitions with dollar signs on 
their names, don’t bother to delete them—BASIC doesn’t 
care about that little redundancy. 

Now let’s work our way back toward the simplest way of 
spelling again: 


BASIC Command Printout 

LPRINT S+P+E+L+L+I+N+G SPELLING 
LPRINT S;PsEsL:;L:;I;N;G SPELLING 
LPRINT SPELLING (none!) 


Still no luck with regular spelling, but at least having the 
letters separated by semicolons or plus signs makes for easier 
reading than by dollar signs. (Plus signs are easier to type 
than semicolons with most keyboards, because you don’t 
have to keep releasing the shift key after each capital letter.) 
Don't try to separate by using spaces; the computer will just 
ignore them. You also won’t get anywhere, except further 
along a blank page, by putting the letters inside quotation 
marks; this will just produce line feeds when the printer is 
in graphic mode or printing of built-in letters rather than 
your homemade letters when it’s in text mode. 

If your character strings don’t have spaces in them (at the 
end of each dot-code sequence), you will have to separate 
the printing of different letters by using another kind of 
space, such as a string named SP that is defined by the 
blank code, CHR$(128). And for separating words, you'll 
need another space-string defined by several blanks, say, 
STRING$(6,128). 

With the opposite orientation, upside-down characters, the 
same ways of getting proper spelling and spacing apply ex- 
cept that the order of the characters in LPRINT statements 
has to be reversed. If you want the word VOLUME to be 
printed in this orientation (as we did on the right-hand side 
of the stock market graph in chapter 1), then use LPRINT 
E+M+U+L+0+V instead of LPRINT V+O+L+U+M+E. 

Part of the trick here is always to imagine the printhead 
sweeping from the left side of the paper toward the right 
(even if your printhead prints while moving in both direc- 
tions). If the last letter in the word is supposed to be the one 
nearest to the left margin, then it'll only come out that way 
by backward spelling in the LPRINT command. 


226 GRAPHICS FOR THE DOT-MATRIX PRINTER 


PROGRAM 7-1. SPELLUPS. Spelling with upright and upside- 
down homemade alphabets. 


10 "PROGRAM 7-1: "SPELLUPS" -- SPELLING OF UPRIGHT-ORIENTED WORDS 
15 *Copyright (c) 1985 by John Warner Davenport 

28 ’FOR TRS-80 COMPUTERS AND PRINTERS 

38 CLEAR 1800 


40 DEFSTR A-Z "ALL VARIABLES ARE STRING-TYPE EXCEPT THOSE WITH ’%’ 
5@ SP=STRINGS(2, 128) *2-DOT SPACE 

60 LPRINT CHRS(18)5 "ENTER GRAPHIC MODE 

7@ GOSUB 12882 "MEMORIZE CHARACTER STRINGS 
8@ GOSUB 2880 "READ AND PRINT CHARACTERS 
9@ END 


1000 REM -- UPRIGHT 5 X 7 LETTERS (CAPITALS) 

1801 A=CHRS(252)+CHRS (138) +CHRS( 137) +CHRS (138) +CHRS(252)+SP 
1002 B=CHRS(255)+STRINGS(3, 281 )+CHRS(182)+SP 

1803 C=CHRS(198)+STRINGS (3, 193) +CHRS(162)+SP 

1084 D=CHRS$ (255 )+STRINGS (3, 193)+CHRS( 198) +SP 

1@@5 E=CHRS (255 )+STRINGS (2, 201 )+STRINGS(2, 193)+SP 

1606 F=CHR$( 255 )+STRINGS(2, 137)+STRINGS(2, 129)+SP 

18087 G=CHRS (198) +CHRS(193)+STRINGS (2, 201 )+CHRS(186)+SP 

1088 H=CHR$ (255 )+STRINGS(3, 136) +CHRS (255) +SP 

1089 I=CHRS$(193)+CHRS$ (255 )+CHRS(193)+SP 

1810 J=CHRS (168) +CHRS (192) +CHRS (193) +CHRS (191 )+CHRS(129)+SP 
1011 K=CHR$(255)+CHRS( 136) +CHRS( 148) +CHRS( 162) +CHRS(193)+SP 
1012 L=CHR$(255)+STRINGS(4, 192)+SP 

1013 M=CHRS$ (255 )+CHRS (130) +CHRS( 1546) +CHRS( 130) +CHRS (255 )+SP 
1014 N=CHR$ (255 )+CHRS(132)+CHRS (136) +CHRS(144)+CHRS (255 )+SP 
1015 O=CHRS$(198)+STRINGS (3, 193) +CHRS(190)+SP 

1016 P=CHR$ (255 )+STRINGS (3, 137)+CHRS$(134)+SP 

1017 Q=CHRS(158)+CHRS( 161 )+CHRS( 177) +CHRS( 161) +CHRS(222)+5P 
1018 R=CHRS (255 )+CHRS (137) +CHRS(153)+CHRS( 169) +CHRS(198)+SP 
1019 S=CHRS (166) +STRINGS (3, 201 )+CHRS(178)+SP 

1020 T=STRINGS(2, 129) +CHRS$( 255) +STRINGS(2, 129) +SP 

1021 U=CHRS(191)+STRINGS (3, 192)+CHRS$(191)+SP 

1022 V=CHRS (131 )+CHRS (156) +CHRS (224) +CHRS (156)+CHRS(131)+SP 
1023 W=CHRS (191) +CHRS(192)+CHRS (184) +CHRS(192)+CHRS(191)+SP 
1024 X=CHR$(227)+CHR$( 148) +CHRS (136) +CHRS (148) +CHRS(227)+SP 
1025 Y=CHR$(131)+CHR$( 132) +CHRS (248) +CHRS (132) +CHRS(131)+SP 
1026 Z=CHRS (225 ) +CHRS (209) +CHRS (201 )+CHRS( 197) +CHR$(195)+SP 
1027 HY=STRING$(3, 136)+SP *HYPHEN 

1028 N4=CHRS(144)+CHRS (152) +CHRS( 148) +CHR$( 255) +CHRS(144)+5P 
18029 RETURN 

2000 READ ZZ: IF ZZ="END" THEN RETURN 

2001 IF ZZ="A" THEN LPRINT A; 

2002 IF ZZ="B" THEN LPRINT B$ 

2003 IF ZZ="C" THEN LPRINT C3 

2004 IF ZZ="D" THEN LPRINT D; 

2005 IF ZZ="E"* THEN LPRINT E;3 

2006 IF ZZ="F" THEN LPRINT F35 

2807 IF ZZ="G" THEN LPRINT G3 

2008 IF ZZ="H" THEN LPRINT H3 

2009 IF ZZ="1I" THEN LPRINT I3 

2018 IF ZZ="J" THEN LPRINT J3 


1Z="K* 
Z7="L* 
Z7="M" 
ZZ="N* 
ZZ="0" 
ZZ="P* 
27="Q" 
1Z="R" 
12="S* 
ZZ="T" 
17="U" 
Zz="Vv" 
Z7="W" 
Z1="X" 
Zz="Y" 
ZZ="Z" 


LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 


* LPRINT 


LPRINT 
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2027 IF ZZ="-" THEN LPRINT HY; 

2028 IF VAL(ZZ)>9 THEN PZ=VAL(ZZ): GOSUB 6800: LPRINT PN; 

2629 IF ZZ="" THEN LPRINT SPSSP3SP5SP3 

203@ IF ZZ="*" THEN LPRINT LF$ 

2031 IF VAL(ZZ)=4 THEN LPRINT N45 

2032 IF ZZ="PERSONAL" THEN LPRINT PsESR3SsOsNSASL3$ 

2033 IF ZZ="COMPUTER" THEN LPRINT CSOSMSPSUSTSESR3$ 

2034 IF ZZ="GRAPHICS® THEN LPRINT GSRSASPSHSI5C§S5 

2035 GOTO 2000 

6820 "xxxxxeeHee POSITIONING AND LINE FEED STRINGS ##xx##%2%%% 
6010 QPZ=FIX(PZ/256) = PPZ=P%-256%QP7% 

6020 PN=CHR$ (27) +CHRS (16) +CHRS(QPZ) +CHRS( PPZ) 

6030 LF=CHRS (38) +CHRS (13) +CHRS(18)+PN 

6048 RETURN 

LOOGD HHH KHHHKHEHKHEE DATA HHKREEREREEREEREREEREEE 
18010 DATA 68,D,0,Ts—yMyAs Ts Ro Ts Xo9PoRyITaNy TyEs Ry yDyMy Py —9 45050, % 
18828 DATA 185, PERSONAL, , COMPUTER, , GRAPHICS, # 

10030 DATA END 


A spelling program for upright words. Regardless of 
whether you plan to print words right side up or upside 
down, you can beef things up by using spelling programs 
with READ and DATA statements. Program 7-1, called 
SPELLUPS (for “spelling of upright and upside-down char- 
acters’), shows how not only spelling but a few other things 
can be done this way. 

Besides the READ-DATA looping, the prominent feature 
of this program is the list of IF... THEN LPRINT statements 
immediately after the READ statement. These translate the 
simple items of the DATA lines into print commands that use 
the string names for all the alphabetic characters previously 
defined in a subroutine (subroutine 1000). That makes spell- 
ing even easier for the user, who can set the computer key- 
board for lowercase and use capitals or small letters as 
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desired, separating the letters with commas instead of semi- 
colons, plus signs, or dollar signs. 

But since almost every variable in SPELLUPS is a string 
variable (note line 40’s DEFSTR A-Z), a DATA item can be 
much longer than a single letter—up to 255 characters long, 
in fact. So if the appropriate IF...THEN LPRINT statements 
have been put into the program, the user can type in fre- 
quently used words, phrases, or even sentences as single 
DATA items and do the typing in the normal fashion, without 
putting commas between the letters. For an example of this, 
see the DATA in line 10020 and how that word sequence is 
translated into printing by lines 2032-2034. 

Using READ and DATA also makes spacing and punctua- 
tion easier. You can use an actual space from the keyboard’s 
spacebar, or no space at all, between two commas in a DATA 
statement (either way it will be treated as a single space in 
the statement IF 2Z="""" THEN LPRINT SP;SP;SP;SP; in 
line 2029). And you can use punctuation marks normally, 
provided you have defined their string names in bit-image 
code sequences and put in an IF..THEN LPRINT state- 
ment for each. Notice the code and translation for a hyphen 
in the SPELLUPS program. 

Beyond letters, numbers, and punctuation, SPELLUPS 
also codes certain DATA items for positioning and line feeds, 
as the FINEDRAW program (program 6-6) does. In lines 
10010 and 10020, the numerical DATA items are position 
codes telling the printer where to start printing the charac- 
ters that immediately follow. Since all DATA items are inter- 
preted by READ ZZ to be string data, the translations of 
these codes (line 2028) have to include the VAL function for 
converting a string to a numeric variable; eventually, VAL 
(ZZ) gets converted into a pair of numerics (QP% and PP%) 
that specify the dot-column position in the printer’s direct- 
positioning command (here taking the form 27+16+ 
OP% + PP%). 

With the addition of a line-feed code (LF, or it could be 
some otherwise unused punctuation mark such as the aster- 
isk), you have the kind of control that you need for the letter- 
ing on a graph. (The entire SPELLUPS program could, with 
minor alterations, be a subroutine in a program for printing a 
graph.) You also gain the ability to spell and label with home- 
made characters that require more than one printhead pass 
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to print, and we'll see plenty of examples of such characters 
later on. 


Spelling with perpendiculars. Spelling in the perpendicu- 
lar orientation calls for some programming changes from 
what we've just seen with upright and upside-down charac- 
ters. For one thing, now each letter in a word needs a line 
feed immediately after it, or else the next letter will be 
printed right on top of it. Also, since a line feed precedes 
nearly every letter printed, a position code will be needed to 
tell the printer at what dot column (or tab stop) to start print- 
ing—every letter! (This assumes that you are not trying to 
print at the left margin and that you are leaving the printer's 
DIP switches controlling line feeds and carriage returns in 
their normal settings.) 

But the programming need not be very complex if you just 
want to print a few words with LPRINT statements and avoid 
typing all the IF...THEN LPRINT statements we have in the 
SPELLUPS program. One way to save a lot of headaches is 
to build the positioning and line-feed codes into the dot-code 
sequences defining the character strings of your alphabet. 
Start by defining all untagged variables as strings (with 
DEFSTR A-Z again) and further defining a line-feed code (for 
example, LF=CHRS$ (30) +CHR$(27)+CHRS$ (5b) +CHR$(10) for 
the DMP-400’s %e-inch line spacing) and an abbreviation 
code for positioning, such as PS=CHR$(27)+CHRS$(1Lb)+ 
CHRS (QP%)+CHRS$(PP%), at an early point in your program. 
Then add PS+ to the front end of each dot-code sequence 
for a character and tack a +LF onto its tail end. Taking 
an example from the seven-by-ten bold perpendicular 
alphabet, change the coding for capital letter T from 
T=STRINGS (4,152)+STRINGS (2,254) toT=PS+STRINGS (8, 
152)+STRINGS(2,254)+LF. 

With a subroutine for converting dot-column positions 
(P%) into QP% and PP% position codes, commands to print 
words or phrases can take the form P%= (dot-column) : GOSUB 
1000: LPRINT W+0+R+D. For proper positioning, putting the 
P% value and its conversion before the LPRINT will ensure 
that the numerical values of the positioning codes, QP% and 
PP%, will get into the PS code that each of the characters W, 
O, R, and D has at the beginning of its string sequence, and 
the LF at the end of each sequence will move each printed 
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letter out of the way for the next to be printed with proper 
spacing. The order of events here is critical, because if the 
values of QP% and PP% are not read into the PS code before 
the character's LPRINT command, both values will be inter- 
preted as zero, meaning the printing of the character will 
start at the left margin. 

For more elaborate programming of perpendicular spell- 
ing, see the WRDCRAFT listing (program 7-2). That program 
shows another way of getting the values of QP% and PP% 
into each character's PS code before that character is called 
upon to be printed. Like SPELLUPS, WRDCRAFT uses 
READ-and-DATA looping and a list of IF... THEN LPRINT 
translations. But instead of having a single positioning state- 
ment at the head of this list (as in SPELLUPS) or putting PS 
into character strings (as just suggested for occasional spell- 
ing of perpendiculars), WRDCRAFT has PS immediately fol- 
lowing LPRINT in the IF..THEN LPRINT statement for 
each character. To provide the QP% and PP% values for all 
the PSs, the conversion of P% comes at the end of the list in 
the WRDCRAFT program. 

Spacing the letters of a word in this program depends 
mostly, again, on having LF at the end of each character 
string, but we need even more spacing provisions in dealing 
with perpendiculars. For spacing between words, an addi- 
tional LF (or another line-feed code for a space larger than 
the usual LF size) will be needed. You can repeat the line- 
feed code(s) several times for bigger spaces between words. 


PROGRAM 7-2. WRDCRAFT. Spelling with perpendicular 
homemade alphabets. 

10 ’PROGRAM 7-2: "WRDCRAFT" -- SPELLING PROGRAM FOR PERPENDICULARS 
12 *Copyright (c) 1985 by John Warner Davenport 


15 "FOR TRS-80 COMPUTERS AND PRINTERS 
20 CLEAR 2880 


25 DEFSTR A-Z *(ONLY VARIABLES WITH °%’ TAG ARE NUMERIC) 
3Q@ P%=20: GOSUB aoe "(TO POSITIONING STRINGS) 

90 SQ=CHR$(27)+CHR$ (50) 71/72" SPACE 

180 LF=CHR$(18)+CHR$ (10) +CHR$(27)+CHR$(5O)+CHRS(27)+CHR$(50) 79/72" LINE FEED 
192 ’-----------------------------------------------------=-------=---=---- 


195 "x#xeeeeee UPPER-CASE ALPHABET (7 X 10 BOLD) AND PUNCTUATION *#42%4244% 

110 A=PS+STRINGS (4, 227) +CHR$ (255 ) +CHRS (255 ) +CHRS (227 ) +CHRS (227 ) +CHRS ( 190)+CHRS( 1 
546) +LF 

120 B=PS+CHR$ (191 )+CHRS (255 ) +CHRS (227 ) +CHRS (227 ) +CHRS (191) +CHRS(191 )+CHRS(227)+C 
HRS (227 ) +CHRS (255 ) +CHRS(191)+4+LF 

130 C=PS+CHRS$( 198) +CHRS (255 ) +CHRS (227) +STRINGS (4, 131) +CHRS (227) +CHRS (255 ) +CHRS (1 
90) +LF 


148 
150 


440 
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D=PS+CHRS (191) +CHRS (255) tSTRINGS (6, 227) +CHRS (255 ) +CHRS (191) +LF 

E=PS+STRINGS (2, 255) +STRINGS (2, 131) +STRINGS(2, 159) +STRINGS (2, 131) +STRINGS(2, 2 
55) +LF 

F=PS+CHR$ (28) +CHRS (4) +CHRS (131) +CHRS (159) +CHRS (157) +CHRS (131) +CHRS(131)+CHRS 
(255 )+CHR$(255) +LF 

G=PS+CHRS ( 198)+CHRS (255 ) +CHRS (227 ) +CHRS (227) +CHRS (251) +CHRS( 251 )+CHRS$(131)+C 
HRS (227 ) +CHRS (255 ) +CHRS (198) +LF 

H=PS+STRINGS$ (4, 227) STRINGS (2, 255) +STRINGS (4, 227) +LF 

I=PS+STRINGS (2, 188) +STRINGS (46, 152) +STRINGS (2, 188) +LF 

J=PS+CHR$ (158) +CHRS (191 )+STRINGS (2, 179) +STRINGS(4, 176) +STRINGS (2, 248) +LF 

K=PS+CHR$ (227 ) +CHRS (179) +CHRS( 155) +CHRS (143) +CHRS (135) +CHRS (135 )+CHRS(143)+C 
HR$( 155) +CHRS (179) +CHRS (227) +LF 

L=PS+STRINGS (2, 255) +STRINGS(8, 131)+LF 

M=PS+STRINGS (4, 227) +CHR$ (235 ) +CHRS (235) +CHRS (255) +CHRS (247) +STRINGS (2, 227) +L 
F 

N=PS+CHR$ (227 ) +CHR$ (227 ) +CHRS (227 ) +CHRS (243) +CHRS (251 ) +CHRS (239) +CHRS (231)+C 
HRS (227 ) +CHRS (227 ) +CHRS (227) +LF 

O=PS+CHR$ (190) +CHRS (255 ) +STRINGS (6, 227 ) +CHRS (255 ) +CHRS (190) +LF 

P=PS+STRINGS (4, 131)+CHRS( 191) +CHRS( 255) +STRINGS (2, 227) +CHRS (255) +CHRS(191)4L 
F 

Q=PS+CHR$ (144) +CHRS (198) +CHRS (191) +CHRS (251) +STRINGS (4, 227) +CHRS (255 ) +CHRS (1 
90) +LF 

R=PS+STRINGS (4, 227) +CHRS( 191) +CHRS (191 )+CHRS (227 ) +CHRS (227 ) +CHRS (255) +CHRS (1 
91)4+LF 

S=PS+CHR$ (190) +CHRS (255 ) +CHRS (227 ) +CHRS (224) +CHRS (254 ) +CHRS (191 )+CHRS(131)+C 
HRS (227 ) +CHRS (255 ) +CHRS (1908) +LF 

T=PS+STRINGS (8, 152) +STRINGS (2, 254) +LF 

U=PS+CHR$ (198) +CHRS (255) +STRINGS(8, 227) +LF 

V=PS+CHR$ ( 136)+CHRS (156) +STRINGS (3, 182) +STRINGS(5, 227) +LF 

W=PS+STRINGS( 2, 227 ) +CHRS (247 ) +CHRS (255 ) STRINGS (2, 235) STRINGS (4, 227) +LF 

X=PS+STRINGS (2, 227) +CHR$ (247) +CHRS (198) +STRINGS (2, 156) +CHRS( 198) +CHRS(247)+5 
TRING$(2,227)+LF 

Y=PS+STRINGS$(4, 152) +CHR$( 188) +CHRS (254) +STRINGS (4, 230) +LF 

Z=PS+STRINGS (2, 255) +CHRS (131 )+CHRS (134) +CHRS( 140) +CHRS(152)+CHRS(176)+CHRS(2 
24) +STRINGS$ (2,255) +LF 

PT=PS+STRINGS( 2, 148) +CHRS (10) 7DECIMAL POINT, PERIOD 

OB=PS+STRING$(2, 158) +STRING$ (6, 134) +STRINGS (2, 158) +CHRS (10) 

"OPEN BRACKET 
CB=PS+STRINGS(2, 188) STRINGS (6, 176) STRINGS (2, 188) +CHRS (10) 
"CLOSE BRACKET 
SS=PS+CHR$ (128) +CHRS( 131) +CHRS (134) +CHRS (140) +CHRS (152) +CHRS (176) +CHRS (224) + 
CHRS (18) > SLASH 
HY=PS+STRING$(4, 128) +STRINGS(2, 190) +LFS "HYPHEN, MINUS SIGN 


” 6690606-2HKEHERERE LOWER-CASE ALPHABET (7 X 10 BOLD) xxexuucexeueneeexeeee 

AL=PS+STRING$(2, 191 ) +CHRS (179) +CHR$ (191) +CHRS( 176) +CHRS (191) +CHRS (158) +CHRS ( 
10)+S8Q 

BL=PS+CHR$ (159) +CHRS (191) +STRINGS (3, 179) +CHRS( 191 )+CHRS( 159) +STRINGS (3, 151 )+ 
CHR$(10)+SQ 

CL=PS+CHR$( 158) +CHRS (191 )+CHRS( 179) +CHRS (131) +CHRS (179) +CHRS (191 )+CHRS(158)+ 
CHRS$(18)+5SQ 

DL=PS+CHR$ (198) +CHRS (191) +STRINGS (3, 179) +CHRS (191 ) +CHRS( 198) +STRINGS(3,176)+ 
CHR$ (18) 


458 


460 


478 


480 
490 


788 


798 
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EL=PS+CHR$ (158) +CHRS (191) +CHRS (131 )+CHRS (191) +CHRS( 179) +CHRS( 191) +CHRS(158)+ 
CHR$ (10) 

FL=PS+STRINGS$ (4, 134)+STRINGS (2, 143) +CHRS( 134) +CHRS (179) +CHRS (198) +CHRS (1546) + 
CHR$ (10) 

GL=PS+CHRS$ (30) +CHRS$ (8) +CHRS (13) +CHRS (18) +CHRS (158) +CHRS( 191 )+CHRS( 176) +CHRS( 
176) +CHRS (190) +CHRS (191) +STRINGS (3, 179) +CHRS( 191 )+CHRS( 158) +CHRS (18) 

HL=PS+STRINGS$ (4, 179) +CHRS( 191 ) +CHRS(159)+STRINGS (4, 131 )+CHRS (10) 

IL=PS+STRINGS( 2, 158) +STRINGS (2, 140)+CHRS$( 142) +CHRS(140)+CHRS$(136)+CHRS(128)+ 
STRINGS (2, 152)+CHRS (10) 

JL=CHRS (142)+CHRS$ (159) +CHRS$ (155) +STRINGS (4, 152) +CHRS (156) +CHRS (152) +CHRS (144 
)+CHR$ (128) +STRINGS (2, 152)+CHRS( 18) 

KL=PS+CHRS$ (179) +CHRS (155) +CHRS( 143) +STRINGS (2, 135) +CHRS( 143) +CHRS( 155) +CHRS ( 
179) +STRINGS (2, 131)+CHRS(18) 

LL=PS+STRING$ (2, 158) +STRINGS (4, 140) +STRINGS (2, 142) +CHRS( 18) 

ML=PS+STRING$(5, 235 )+CHR$ (255 ) +CHRS(182)+LFS 

NL=PS+STRINGS (5, 179) +CHRS( 191 )+CHRS( 159) +CHRE( 18) 

OL=PS+CHRS (158) +CHRS (191 )+STRINGS (3, 179) +CHRS (191) +CHRS (158) +CHRS( 108) 

PL=STRINGS (3, 131)+CHRS(159)+CHRS (191) +STRINGS (3, 179) +CHRS (191 )+CHRS(159)+CHR 
$(10) 

QL=STRINGS (3, 176)+CHRS( 198) +CHRS (191 )+STRINGS (3, 179) +CHRS( 191 )+CHRS(198)+CHR 
$(10) 

RL=PS+STRINGS (4, 131) +CHRS(151)+CHRS(191)+CHR$(155)+CHRS (18) 

SL=PS+CHR$(158)+CHRS (191 )+CHRS (176) +CHRS (156) +CHRS (131 )+CHRS (191 )+CHRS (158) + 
CHRS (18) 

TL=PS+CHR$ (156) +CHRS (198) +CHRS( 182) +STRINGS (2, 134) +STRINGS(2, 159) +STRINGS(3, 
134)+CHRS$ (10) 

UL=PS+CHR$ (198) +CHRS (191) +STRINGS$ (5, 179)+CHRS (10) 

VL=PS+CHR$ (136) +CHRS(156)+CHRS (198) +STRINGS (4, 182)+CHRS(18)+CHRS (27) +CHRS (50 
) 

WL=PS+CHR$ (182) +CHRS (255) +STRINGS (5,235 )+LF 

XL=PS+STRINGS (2, 179)+CHR$ (158) +CHRS (140) +CHRS (158) +STRINGS (2, 179) +CHRS (10) 

YL=CHR$ (134) +CHR$ (143) +CHR$ (152) +CHRS(156)+CHRS (198) +CHRS (183) +STRINGS (4, 179 
)+CHRS (10) 

ZL=PS+tSTRINGS (2, 191) +CHRS (154) +CHRS (146) +CHRS( 152) +STRINGS (2, 191)+CHRS( 18) 

7 EHRHEEEEHEEREHEREEEHREH NUMBERS (7 X 10 BOLD) 44 4HHHHHEHEREEREREREREREEREEE 


N@=PS+CHRS( 198) +CHRS (255 ) +STRINGS (6, 227) +CHRS (255 ) +CHRS (190) +LF 

N1=PS+STRING$ (2, 158)+STRINGS(5, 140) +CHRS(142)+CHRS( 140) +CHRS (136) +LF 

N2=PS+STRINGS (2, 255 ) +CHRS (131 )+CHRS (134) +CHRS (188) +CHRS (248) +CHRS (224) +CHRS ( 
227)+CHRS (255 ) +CHRS (1908) +LF 

N3=PS+CHR$ (198) +CHRS (255 )+CHRS (227 ) +CHRS (224) +STRINGS (2, 188) +CHRE (224) +CHRS ( 
227)+CHRS (255 ) +CHRS (198) +LF 

N4=PS+STRINGS (3, 176) +STRINGS (2, 255) +CHRS (179) +CHRS (182) +CHRS (188) +CHRS(184)+ 
CHRS (176) +LF 

N5=P5+CHRS (198) +CHRS (255) +CHRS (227) +STRINGS (2, 224) +CHRS (191) +CHRS (159) +CHRS ( 
131) +STRINGS (2,255) +LF 

N6=PS+CHRS$ (198) +CHRS (255) +STRINGS (2, 227) +CHR$ (255) +CHRS (191) +CHRS (131) +CHRS ( 
227 )+CHR$ (255 )+CHRS (190) +LF 

N7=PS+STRINGS (3, 134) +CHRS (140) +CHRS (152) +CHRS (176) +STRINGS (2,224) +STRINGS (2, 
255 ) +LF 

N8=PS+CHRS (198) +CHRS (255 )+STRINGS (2, 227) STRINGS (2, 198) STRINGS (2, 227 ) +CHRS ( 
255 )+CHRS$ (190) +LF 

N9=PS+CHRS$ (198) +CHRS (255 ) +CHRS (227) +CHRS (224) +CHRS (254 ) +CHR$ (255) +STRINGS (2, 
227) +CHRS (255 ) +CHRS$ (198) +LF 
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599 °44%44#HHHHH TRANSLATIONS & PRINT COMMANDS #it2s2 ett 

READ 272: IF ZZ="END" THEN END 

VAL(Z7Z)>9 THEN PZ=VAL(ZZ): GOSUB 8800: GOTO 110 


ZZ="A" 
ZZ="B°* 
ZzZ="C" 
ZZ="D" 
ZZ="E" 
ZZ="F" 
ZZ="G" 
ZZ="H" 
Zz="1° 
Zz="J° 
ZZ="K" 
ZzZ="L" 
Zz="M" 
ZZ="N" 
ZZ="0" 
ZZ="P* 
ZZ=*Q" 
ZZ="R° 
ZZ="S" 
ZzZ="T" 
ZZ="U" 
Zz="V" 
ZZ="W" 
ZZ="X°* 
ZzZ="Y¥* 
Zz="Z" 
Zz="." 
Zz="(° 
Zz=")" 
Zz="/" 
Zi=*=-" 
77="%" 
ZZ="a" 
ZZ="b" 
ZZ="c" 
Zz="d" 
ZZ="e" 
ZzZ="f" 
ZZ="g° 
ZZ="h" 
zZz="i" 
zZz="j" 
ZZ="k" 
ZzZ="1" 
ZZ="m" 
ZzZ="n" 
ZZ="0" 
ZZ="p" 
ZZ="q" 
Zi="r"* 


THEN LPRINT 
THEN LPRINT 
THEN LPRINT 
THEN LPRINT 
THEN LPRINT 
THEN LPRINT 
THEN LPRINT 
THEN LPRINT 
THEN LPRINT 
THEN LPRINT 
THEN LPRINT 
THEN LPRINT 
THEN LPRINT 
THEN LPRINT 
THEN LPRINT 
THEN LPRINT 
THEN LPRINT 
THEN LPRINT 
THEN LPRINT 
THEN LPRINT 
THEN LPRINT 
THEN LPRINT 
THEN LPRINT 
THEN LPRINT 
THEN LPRINT 
THEN LPRINT 
THEN LPRINT 
THEN LPRINT 
THEN LPRINT 
THEN LPRINT 
THEN LPRINT 


OR ZZ="" THEN LPRINT LF§ 


THEN LPRINT 
THEN LPRINT 
THEN LPRINT 
THEN LPRINT 
THEN LPRINT 
THEN LPRINT 
THEN LPRINT 
THEN LPRINT 
THEN LPRINT 


A5 
Bs 
C3 
Ds 


AL § 
BL 5 
CL$ 
DL$ 
EL 5 
FL} 
GL} 
HL 3 
IL§ 


THEN GOSUB 9880 


THEN LPRINT 
THEN LPRINT 
THEN LPRINT 


KL 5 
LL} 
ML 5 


THEN LPRINT NL$§ 


THEN LPRINT 


OL 5 


THEN GOSUB 9880 
THEN GOSUB 9880 


THEN LPRINT 


RL 5 


1053 
1054 
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IF ZZ="s" THEN LPRINT SL3 

IF ZZ="t* THEN LPRINT TL3 

IF ZZ="u" THEN LPRINT UL3 

IF ZZ="v" THEN LPRINT VL35 

IF ZZ="w" THEN LPRINT WL; 

IF ZZ="x" THEN LPRINT XL3 

IF ZZ="y° THEN GOSUB 9880 

IF ZZ="z" THEN LPRINT ZL35 

REM -- USE 0 FOR @ IN DATA 

IF VAL(ZZ)=1 THEN LPRINT N1$ 

IF VAL(ZZ)=2 THEN LPRINT N23; 

IF VAL(ZZ)=3 THEN LPRINT N33 

IF VAL(ZZ)=4 THEN LPRINT N43 

IF VAL(ZZ)=5 THEN LPRINT N53 

IF VAL(ZZ)=6 THEN LPRINT N63 

IF VAL(ZZ)=7 THEN LPRINT N73 

IF VAL(ZZ)=8 THEN LPRINT N83 

IF VAL(ZZ)=9 THEN LPRINT N93 

IF ZZ="Personal® THEN LPRINT P3EL3RL3SLSOL$NL3AL5LL3 

IF ZZ="Computer" THEN LPRINT CSOLSMLSPLSULSTLSEL3SRL3 

IF ZZ="Graphics" THEN LPRINT G3RLSAL$PLSHL3SILSCL3SL3 
GOTO 1000 

> HEKEREKEEREREREEHHEREE DATA KEEKHHEKEHERERREEE RHEE EE 

DATA Personal, *, Computer, *#, Graphics, * 

DATA DyOytor-aMyagty ry igXeePetyighy ty @ehs 9 DyMyPy—9450,0,% 
DATA 20, By 0509 Ky 25 5b 9 Oy Oy Ky 5Oy Ky Oy Oy Ky 255 T3009 Ky 20,N,0,0,K, # 
DATA AsBy sCyDyEv Fy GyHy ty Tay = 9Ky ba MyNy Oy PyQy Ry Sy Ty Uy VaWy Xo Vo Zy% 
DATA aby C3 dy@s Fy Gyhy ig da ksy 1yMyMy Oy Po Gy hy Sq ty Uy V_ Wy XeY9 Zy PTs OBy CBy SSyHYy # 
DATA 152539455565 75859, % 

DATA END 

 HHRHHHREHEHEELE POSITIONING STRINGS 44444444 H HEE 
QPZ=FIX(PZ/256) = PPZ=P%-2546%0P% 

PS=CHR$ (18) +CHRS (27 ) +CHR$(16)+CHRS(QP%) +CHRS( PPZ) 

RETURN 

TEEREKERERKEKREEE PRINTING OF LOWER-CASE DESCENDERS 44H HEHHE RHEE HEHE SE 
DPZ=P4-13: QDZ=FIX(DPZ/256): DDZ=DP%-2546*0D% 

PD=CHR$ (18) +CHR$ (27 ) +CHRS (16) +CHRS (QDZ) +CHRS (DD) 

IF ZZ="j" THEN LPRINT PD+JL3 

IF ZZ="p" THEN LPRINT PD+PL3 

IF ZZ="q* -THEN LPRINT PD+QL3 

IF ZZ="y" THEN LPRINT PD+YL3 

RETURN 


Programs of this sort could also use backspacing in the 
form of reverse line-feed codes (not to be confused with the 
CHR$(8) code for horizontal backspacing). This would make 
it easy for the user to shorten the spacing between letters or 
numbers while entering data. In this perpendicular orienta- 
tion, you see, the width of characters printed in a single 
printhead pass is fixed at seven dots for TRS-80 printers. That 
is more space than you need for skinny characters like letters 
I, i, or j, or number 1. You may want to make up for the too- 


1999 > EREHEEERHHKEEHEREKEREE DATA SHH EERE EEE 

2882 DATA Personal, *, Computer, *#,Graphics 

2B18 DATA DyOste—oMyastetrisXesPoreisny ty@gtysDyMyPy—9 4,050 

2020 DATA 20, By 0909 Ky 25 9b yy Oy Ks Oy Ks Oy 0g Ky 255 190305 Ky 205Ny0,05K 
2030 DATA AyBy yCyDyEssFoGyHy to Iqdy oKyL gM 


Personal Computer Graphics Dot-Matrix Printer DOMP-400 


BookLook*®O* rookypox 


AB CDE FGH IJ KLM 


FIGURE 7-12. Spelling printouts for perpendiculars from the 
WRDCRAFT program. 


large space that follows these as a result of the tacked-on LF 
that each character string has. So after these (or any) charac- 
ters, you can type in a B1 (small), B2 (medium), or B3 (large) 
reverse line feed for more proportional spacing. This is the 
most flexible arrangement, offering a choice between mono- 
spaced and proportional characters at all times. 

Figure 7-12 shows how WRDCRAFT prints a variety of 
DATA items. 

Finally, if you have any need for printing reverse perpen- 
dicular words (that is, upside-down perpendiculars), such as 
in labeling the vertical axis of a scatterplot that runs parallel 
to the paper’s edge, remember to spell the words backward. 


Typography in BASIC 


If you want characters larger than seven or eight dots wide 
in perpendicular printing or more than seven or eight dots 
high in upright or upside-down orientations, you'll have to 
print them in two or more passes of the printhead. Some 
impressive bold letters for the legend of a graph can be made 
with two passes, and even white-on-black prints of the letters 
will stay legible with photographic reductions greater than 
80%. 

With three passes you can produce letters that are big 
enough for major headings on newsletters, bulletin-board an- 
nouncements, etc., and you have even more dots to play with 
in designing fancy lettering styles. Some three-pass exam- 
ples are shown in figure 7-13. 

A LINEDRAW type of program called TRISWEEP (pro- 
gram 7-3) was used for these letters. The binary-sum dot 
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CONDENSED ELITE STANDARD CONDENSED-ELONGATED 


BEST BEST BEST BEST 
BEST BEST 


FIGURE 7-13. Three-pass homemade upright letters. 


codes defining each of these four letters for the DMP-400, 
given in the DATA statements (lines 600-750), are stored in 
a different two-dimensional array for each letter. In lines 
100-195 the codes for letter B are stored in an array called 
BC(R,C), in lines 200-305 those for E are stored in EC(R,C), 
and so forth. (More efficient programming for storing charac- 
ter codes in arrays is used in program 7-5.) The arrays are 
printed using nested FOR-NEXT loops (subroutine 1000). 

When we go beyond three passes, we enter the enchanting 
realm of professional typography. Considering the drawings 
we saw in the last two chapters, it shouldn’t be surprising 
that the dot-matrix printer can come up with some nice imi- 
tations of the typefaces used by the pros in the commercial 
and graphic arts. Better yet, methods of designing new letter- 
ing styles on a personal computer can be explored if we fol- 
low this line of thought. 


PROGRAM 7-3. TRISWEEP. Forming large characters with 
three passes of the printhead. 


1@ *PROGRAM 7-3: “TRISWEEP" -- THREE-PASS HOMEMADE LETTERS 
28 "FOR TRS-80 COMPUTERS AND PRINTERS 


30 LFS=CHR$(18)+CHRS$(13)+CHRS(27)+CHR$(51) "7/72" ADJ. TO 22/216" LF 
40 LPRINT CHR$(3Q) 5 CHRS(27) 5 CHRS (28) § CHR$ (27) $CHRS(31)} "CONDENSED, BOLD 
3Q@ DEFINT NyM,R,C,X 

68 DIM BC(2,26),EC(2,26)ySC( 2,26) y TC(2y 26) "FOR 2-DIMENSIONAL ARRAYS 
70 INPUT "BLACK ON WHITE (B) OR WHITE ON BLACK (W)";BWS 

(OQ) tae a We oe a os oe a 


110 FOR R=@ TO 2 
115. FOR C=@ TO 20 
120 READ N: IF N=999 THEN GOTO 190 


138 IF BWS$="B" AND N>=@ THEN BC(R,C)=128+N: PRINT BC(R,C)$: GOTO 180 

140 IF N>=@ THEN BC(R,C)=255-N: PRINT BC(R,C)3: GOTO 182 

150 READ M 

168 IF BWS="B" THEN FOR X=1 TO -N: BC(R,C)=128+M! C=C+1: NEXT Xt GOTO 120 


178 FOR X=1 TO -N? BC(R,C)=255-M: C=C+1: NEXT X: GOTO 120 
180 NEXT C 

198 PRINT "END OF ROW"S5R 

195 NEXT R 
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218 FOR R=@ TO 2 

220 FOR C=8 TO 20 

230 READ N: IF N=999 THEN GOTO 380 

240 IF BW$="B" AND N>=@ THEN EC(R,C)=128+N: GOTO 290 

2508 IF N>=@ THEN EC(R,C)=255-N: GOTO 290 

268 READ M 

270 IF BWS="B" THEN FOR X=1 TO -Ni EC(R,C)=1284M: C=C+1li NEXT X? GOTO 230 
280 FOR X=1 TO -Ns EC(R,C)=255-M: C=C+1: NEXT X? GOTO 230 

290 NEXT C 

3@@ PRINT “END OF ROW"SR 


328 FOR R=8 TO 2 
330 FOR C=@ TO 20 
348 READ N: IF N=999 THEN GOTO 410 


358 IF BWS="B" AND N>=@ THEN SC(R,C)=128+N: GOTO 488 

368 IF N>=@ THEN SC(R,C)=255-N: GOTO 408 

378 READ M 

388 IF BW$="B" THEN FOR X=1 TO -Ni SC(R,C)=128+M: C=C+1: NEXT Xi GOTO 348 
390 FOR X=1 TO -N: SC(R,C)=255-M: C=C+is NEXT X2 GOTO 3408 

40Q@ NEXT C 

41@ PRINT “END OF ROW"SR 

415 NEXT R 

42Q )-----~--—---+------~---—---+---- Ole ees eee eee ee eee eae 


430 FOR R=@ TO 2 
440 FOR C=@ TO 20 
450 READ N: IF N=999 THEN GOTO 520 


460 IF BW$="B° AND N>=@ THEN TC(R,C)=128+N: GOTO 518 

470 IF N>=@ THEN TC(R,C)=255-N: GOTO 510 

482 READ M 

490 IF BWS="B"° THEN FOR X=1 TO -Ni TC(R,C)=128+M! C=C+15 NEXT X= GOTO 450 


380 FOR X=1 TO -Ns TC(R,C)=255-M: C=C+1:2 NEXT X: GOTO 458 
51@ NEXT C 

520 PRINT “END OF ROW*S5R 

525 NEXT R 


54@ GOSUB 1000 

55@ END 

6028 REM -- "B" 

618 DATA O50, 4,5 125-25 1245 125-65 45 12,24, 120, 112, 96,8,8,999 
620 DATA -4,0,-2, 127,-7,8, 28, 62, 119, 99,65,0,8,999 

638 DATA 0,05 165 245-25 315245 by 169 245 125155753, 8,8, 999 
640 REM -- "E" 

650 DATA 0,0, 4,12, —-2, 124,12, ~-9, 4, 12, 60,8,8,999 

660 DATA ~4,0,—-2,127,-4,8, 28, 62,-8,8,999 

678 DATA 0,0, 16,245 315315 245-9, 16, 24, 38,0, 8,999 

68@ REM -- "S" 

690 DATA 0,0, 96, 112, 128, 24, 12,—-75 4,8, 24, 48, 128, 8,08,999 
788 DATA @,0, 65535 7312;,-7)8, 24, 48, 112, 96,65,0,8,999 

718 DATA 8,0, 15565 12,8, —-7, 165 24,12, 15, 7,5,80,8,999 

720 REM -- “T" 

730 DATA @, 0,60, 12, —-4, 45125 124, 124, 12, -4, 4,12, 68,8,0,999 
740 DATA -9,0,-2,127,-9,8,999 
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730 DATA -7585 16) 24, 315315 24) 165-758, 999 

108Q "eeeeeeeHHeHHREHHHHEHE PRINTING OF WORD 2563343533000 08eEEEEHEE 
1018 LPRINT CHRS(27) §CHR$(16) 5 CHRS(@) § CHRS(@) 3 "CARRIAGE RETURN 
1020 FOR R=0 TO 2 


1038 FOR C=O TO 19: LPRINT CHR$(18) §CHRS(BC(R,C))$2 NEXT C 
1040 FOR C=@ TO 19: LPRINT CHRS(EC(R,C))3:2 NEXT C 

1050 FOR C=@ TO 19: LPRINT CHRS(SC(R,C))3: NEXT C 

1060 FOR C=@ TO 19: LPRINT CHRS(TC(R,C))$: NEXT C 

1@7@ = LPRINT LF$; 

188@ NEXT R 


1090 RETURN 


Whole-character programming. We’re going to run into a 
good many curvy characters in the more decorative type- 
faces, so we’d better see how the TRS-80 and DMP-400 meet 
that kind of challenge first. Let’s try the chic style that is well 
known to graphic artists as Brush (see figure 7-14). 

Here again a modified LINEDRAW program is used. Each 
letter is printed in ten lines of printed dot patterns, and for 
each print line there is a line of DATA, ending, as usual, with 
a line-feed code, 999. The dot-pattern codes were figured out 
the same way as the WHITECAT codes, by tracing enlarge- 
ments of the letters from a graphics catalogue and drawing a 
further enlargement of each letter on ten-squares-per-inch 


graph paper by hand. For the best resolution, each original 


Square portion was distorted to a seven-by-ten rectangle in 
the latter enlargement to allow for condensed printing. 

An even higher-resolution way of doing these letters is to 
use the FINEDRAW type of program introduced in chapter 
6. For the Brush capital B, this would mean about 160 print- 
head passes instead of ten, with Y216-inch line feeds between 
the passes (see the coding sheet in figure 7-15). Coding this 
may seem like six months at hard labor for just one silly 
letter, but remember that you have only two dot codes (bi- 
naries 0 and 8, for no dot and one dot) in each pass. The 
DATA statements for the Brush B are in program 7-4. 


FIGURE 7-14. Letters of the Brush typeface, produced by a 
LINEDRAW type of program. 
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FINEDRAW Line Numbers L.INEDRAW Line Numbers 


+o 66 8 8 0 6 8 
ef ates 


301-303 


S19-S22 2 


FIGURE 7-15. Coding 
sheet for the FINEDRAW 
version of the Brush B. 


548-342 


$61-S63 -0: 


624-6262" 


643-647 


PROGRAM 7-4. BRUSHB. DATA codes for the Brush letter B. 


1@ ’PROGRAM 7-4: "BRUSHB" -- DATA CODES FOR BRUSH LETTER B 
20 *FOR TRS-80 OR IBM-EPSON PRINTERS 

5Q@@ REM -- POSITION GIVEN BY FIRST VALUE IN EACH DATA LINE 
501 DATA 100,—-82, 2, 999, 102, -80, 0, 999, 180, -80, 0,999, 100, -80,0,999 
502 DATA 188,-80,8,999 

503 DATA 108,-82,0,999 

504 DATA 180,-53,8,-7,8,-208,8,999 

5@5 DATA 100,-46,8,-16,8,-18,8,999 

506 DATA 100,-41,0,-23,8,-16,0,999 

507 DATA 1080,-37,0,-28,8,-15,8,999 

508 DATA 100,-34,0,-32,8,-14,8,999 


240 GRAPHICS FOR THE DOT-MATRIX PRINTER 


100,-31,0,-36,8,-13,8,999 

100, -29,0,-39,8,-12,0,999 
18@,-27,0,-42,8,-11,0,999 
100,-25,0,-44,8,-11,8,999 
100,-23,0,-47,8,-10,8,999 

180, -22,8,-49,8,-9,0, 999 
180,-21,0,-50,8,-9,8,999 

100, -20,0,-51,8,-9,8,999 
108,-19,0,-53,8,-8,0,999 
100,-18,0,-54,8,-8,8,999 
108,-17,0,-55,8,-8,0,999 
108,-17,0,-56,8,-7,8,999 
100,-16,0,-57,8,-7,0,999 
1@0,-16,08,-36,8,-4,0,-17,8,-7,8,999 

100, -15,0,-34,8,-9,8,-15,8,-7,0,999 
100,-15,0,-28,8,-17,0,-13,8,-7,8,999 
100,-14,0,-25,8,-23,0,-11,8,-7,0,999 
100,-14,0,-23,8,-26,8,-10,8,-7,8,999 
100,~-13,0,-21,8,-30,0,-9,8,-7,0,999 
100,-13,8,-20,8,-32,0,-8,8,-7,0,999 
100,-12,0,-20,8,-33,08,-8,8,-7,0,999 
100;-12,8,-19,8,-34,0,-8,8,-7,8,999 
100,-11,0,-18,8,-37,0,-7,8,-7,8,999 

100, -10,8,-18,8,-39,0,-6,8,-7,08,999 
100,-18,0,-17,8,-48,0,-6,8,-7,0,999 
1@0,-9,0,-17,8,-41,8,-6,8,-7,8,999 
100,-9,0,-16,8,-43,0,-5,8,-7,0,999 

100, -9,0,-14,8,-43,0,-5,8,-7,8,999 

180, -9,0,-16,8,-21,0,-3,8,-19,0,-5,8,-7,8,999 
100, -8,8,-17,8,-28,0,-4,8,-19,0,-4,8,-8, 8,999 
100, —-8,8,-17,8,-18,0,-6,8,-19,0,-4,8,-8,0,999 
100, -8,0,-17,8,-17,0,-6,8,-20, 0, -4,8, -8, 8,999 
180; -8,0,-17,8,-16,8,-7,8,-19,0)—-4,8,-9,0,999 
180, -8,0,-16,8,-17,0,-6,8,-19,8,—-5,8,-9, 8,999 
100, -8;0,-14,8,-18,0,-7,8,-19,0,-5,8,-9,8,999 
108, -7,8,-13,8,-19,0,-7,8,-19,8,-5,8,-10,8,999 
180, -7,@,-12,8,-20,0,-7,8,-18,0,-6,8,-10, 0,999 
180, -7,0,-11,8,-20,0,-7,8,-18,0,-6,8,-11,8,999 
180, —-7,8,-9,8,-21,0,-7,8,-18,0,-7,8,-11,8,999 
180, -7,0,-7,8,-23,8,-7,8,-17,0,-7,8,-125 8,999 
108,-7,0,-6,8,-23,0,-7,8,-17,0,;-7,)8,-13,8,999 
100, -7,8,-5,8,-23, 8,-8,8,-16,0,-7,;8,-14,8,999 
180, —-758,-4,8,-24,8,-7, 85-16, 8, —-7,8,5-15, 0,999 
108,-7,8,-3,8,-24,0,-8,8,-15,0,—-7,8,-16,8, 999 
100, -34,8,-7,8,-15,8,-7,8,-17,8,999 

100, -33,0,-8,8,-14,0,-7,8,-18,2,999 

100, -33,8,-8,8,-13,0,-8,8,-18,0,999 
100,-32,0,-9,8,-11,8,-9,8,-19,8,999 

100, -32,0,-9,8,-10,0,-9,8, -20, 0,999 
100,-31,0,-18,8,-8,0,-10,8,-21,8,999 
100,-31,0;-10,8,-6,0,-18,8, -23,0,999 

100, -38,0,-24,8,-24,0,999 

100, -38,0,-25,8,-25,0, 999 


100, -29,8,-25,8,-26,08,999 

100, -29,0,-24,8,-27,8,999 

103, -28,0,-24,8,-28,8,999 

100, -27,0,-23,8,-30, 8,999 

100, -27,0,-22,8,-31,8,999 

100, -24,0,-23,8,-33,0,999 

100, -20,8,-275,8,-35,0,999 
100,-17,80,-26,8,-37,8,999 
100,-15,0,-27,8,-38,0,999 
100@,-14,0,-25,8,-41,0,999 
100,-13,0,-23,8,-44,80,999 

100, -12,0, -22,8,-46,8,999 
100,-12,0,-20,8, -48,8,999 

100, -12,0,-19,8,-49, 0,999 
100,-12,0,-19,8, -49,0,999 
100,-12,0,-20,8, -48,0,999 
108,-12,0,-20,8,-48,0,999 
100,-13,0,-21,8,-46,0,999 

100, -14,0,-22,;8,-44,0,999 
100,-15,0,-23,8, -42,0,999 

100, -16,0,-24,8,-48,8,999 
100,-17,0,-24,8, -39,8,999 

100, -18,8,-25,8,-37,0,999 
100,-18,8,-27,8,—-35,8,999 

100, -18,0,-29,8,-33,8,999 

100, -18,0,-9,8,—-7,0,-14,8, -32,8,999 
100,-18,0,-8,8,-10,0,-13,8,-31,80,999 
100,-17,8,-9,8,-12,0,-13,8,-29,8,999 
100,-17,8,-8,8,-15,0,-12,8, -28,8,999 
100,-17,@,-8,8,—-16,0,-12,8,-27,0,999 
100, -16,0,-8,8,-19,0,-11,8,-26,0,999 
100,-146,0,-8,8,-20,0,-11,8,-25,0,999 
100,-146,0,-8,8,-21,0,-11,8,-24,0,999 
100, -15,0,-8,8,-23,0,-11,8,-23,0,999 
100, -15,8,-8,8,-24,0, -10,8,-23,0,999 
100,-15,0,-8,8,-25,0,-10, 8, -22,0,999 
100,-15,0,-7,8,-27,0,-18,8,-21,0,999 
100,-14,0,-8,8,-28,0,-10,8, -20,0,999 
190,-14,0,-8,8,-29,0,-9,8,-20,8,999 
100,-14,0,-7,8,-31,8,-8,8, -20,0,999 
108,-14,0,-7,8,-31,8,-8,8, -20,8,999 
100, -13,0,-7,8,—-32, 90, -8, 8, -20,0,999 
100,-13,0,-7,8,-32,0,-8,8, -20,0,999 
100,-13,8,-7,8,-32,0,—-8,8, -20,0,999 
100, -13,0,-7,8,-32,98,-8,8,-20,0,999 
100, -12,0,-7,8,-33,0,-8,8, -20,08,999 
100,-12,8,-7,;8,-33,0,-8,8,-28,8,999 
100, -12,0,-7,8,-32,0,-9,8,-20,0,999 
100,-11,0,-7,8,—-32,0,-10, 8, -20,0,999 
100,-11,8,-7,8,-32,0,-10,8, -20,8,999 
100,-11,8,-7,8,-31,0,-11,8,-20,0,999 
100,-11,8,-7,8,-30,0,-11,8,-21,0,999 
108,-11,0,-7,8,—-30,0,-11,8,-21,0,999 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
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100,-10,0,-8,8,-29,8,-12,8,-21,8,999 
100, -10,0,-8,8,-28, 0, -12,8,-22,0,999 
100, -10,0,-8,8,-27,8,-13,8,-22,0,999 
100, -10,0,-8,8,-26,0,-14,8, -22,0,999 
100,-10,0,-8,8,-25,0,-14,8,-23,0,999 
100, -10,@,-8,8,-24,0,-15,8, -23,0,999 
108, -9,0,-10,8,-22,0,~-15,8,-24,8,999 
100, -9,0,-11,8,-28,0,-16,8,-24,08,999 
100, -9,0,-12,8,-18,8,-16,8, -25,0,999 
180, -9,0,-13,8,-15,0,-18,8, -25, 0,999 
180,-9,@,-14,8,-11,8,-20,8, -26,8,999 
108,-9,0,-45,8,-26,98, 999 
100,-9,0,-44,8,-27,0,999 

188, -9,8,-43,8,-28,0, 999 
100,-9,0,-43,8,-28,0,999 
100,-9,0,-42,8,-29,0,999 
100,-9,8,-41,8,-30,0,999 
100,-9,0,-41,8,-38,0,999 
100,-9,0,-40,8,-31,8,999 
100,-9,0,-39,8,-32,0,999 
10@,-10,8,-38,8,-32,0,999 

108, -10, 8, -37,8,-33, 8,999 
100,-11,0,-35,8,-34,0,999 
100,-11,0,-34,8,-35,0, 999 
108,-12,0,-32,8,-346,8,999 

100, -13,8,-30,8,-37,0, 999 
100,-14,0,-28,8, -38,0,999 
100,-15,0,-25,8,-48,0,999 

108, -16,8,-23,8,-41,8,999 
100,-17,0,-20,8,-43,08,999 

180, -19,0,-146,8,-45,0, 999 
100,-21,0,-11,8,-48,0,999 

100, -22,0,-7,8,-51,8,999 

108, -80,0,999 

180, -80,@,999 

100,-80,0,999 

180, -80, 0,999, 180, -88, 8,999, 100, -80, 8,999 


Figure 7-16 shows what a FINEDRAW program can 
achieve in comparison to the LINEDRAW product and an 
actual dry-transfer copy from one of the catalogues. The 
lower examples are the results of shrinking the computer- 
produced letters on a Canon photocopier down to 65% (left) 
and 42% (right) of their printout size. 

Clearly, at full size, the FINEDRAW product is better than 
the LINEDRAW version and is gaining fast on the dry-trans- 
fer rendition. And at reductions of more than 50% both the 
FINEDRAW and LINEDRAW lettering may pass as cata- 
logue caliber. 

Even if you don’t agree, consider how handy a microcom- 
puter and dot-matrix printer may be in designing new type- 
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FIGURE 7-16. Comparison of LINEDRAW (left) and 
FINEDRAW versions of the Brush B at 100%, 65%, and 
42% of printout size. 


faces. Characters could be roughed out using the lower- 
resolution LINEDRAW type of program, and any number of 
slight variations of a letter design could be saved as different 
programs on disk or tape under different filenames. Further 
refinement could be introduced in additional FINEDRAW 
versions, as printouts are examined from various distances 
and under a magnifying lens. Designing this way could beat 
all that erasing and redrawing by hand. 

Figure 7-17 shows how convenient the editing process can 
be. An exploded view of the letter, produced by using twelve 
Y-inch line feeds between print lines, 5-CPI density, and 
white-on-black printing (the latter provides a good check on 
line lengths), can be laid out beside a listing of the DATA 
lines, for making changes easily. 

Some further advantages come to the designer from the 
many different ways a letter can be printed, using different 
line feeds, densities, and reversals. See the examples in fig- 
ure 7-18. 

These examples of Brush characters illustrate what could 
be called whole-character programming, in which one char- 
acter at a time is constructed and printed using READ and 
DATA statements. As with symbols and logos, this approach 


PRINT 


LINES 
( BEFORE 
EDITING) 
——ae DATA STATEMENTS 
—_— (AFTER EDITING) 
—— 548 DATA 100. -8,0,-17.8,-17,8.-6,8,-20,0.-4,8, -8, 0,999 
er — 541 DATA 100, -8,0,-17.8,-16,8,-7,8,-195 0s ~4,8, -9, 0,999 
——- _ coe 942 DATA 108, -8.0,-16,8,-17,0,-6.8,-19, 8, -5,8,-9,8, 999 
—=_  eeaemineemmeennenend foares 543 DATA 100, -8,0,-14,8,-18,0,-7,8,-19,8,-5,8, -9,8,999 
——-. Sean ee! — 544 DATA 108, -7,0,-13,8,-19,0,-7,8,-19,8,-5,8,-18, 8, 999 
—_—- canines — 5945 DATA 108, -7,.0,-12,8,-20,0,-7,8,-18,8, -6,8, -10, @, 999 
<i, aoe —— 546 DATA 100,-7,0,-11,8,-20,0.-7,8,-18,0,-6,8,-11,0,999 
= SS ———— 547 DATA 100, -7,08,~9,85-21,0.-7,8,-18,0,-7,8,-11,8,999 
—_ EE TE — 548 DATA 108, -7,0.-7, 8, -23.0.-7,85-1740)-7585 -1250,999 
eee ———ee a 549 DATA 108, -7,0.-6,8,-23,05-7,8,--1748,-7,8,-13, 9,999 
— ———————S$>= so =sa 550 DATA 100,-7,8,-5,8,-23.0,-8,8,-16,0.-7,8,-14,98,999 
cee EE |" ae §51 DATA 100,-7,@, ~4,8+-24,0,-7,8,-16,8,-7,81-15,8,999 
— —e, 552 DATA 108, -7,8,-3,8,-24,0,-8,8,-15,0.-718, -16,0,999 
—— —<——— — 553 DATA 108.-34.8, ~7,8,-15,0,-7,8,-17,0,999 
— —————aas ee 554 DATA 100.-33,0,-8.8,-14,0,-7,8,-18,8,999 
_— —_—_——,’ : 555 DATA 180, -33,0.-8,8,-13,0,-8,8,-18,0,999 
eee / ———— 556 DATA 100, -32.0.-9,8,-11,.0,-9,8,-19,8, 999 
— —_ 557 DATA 180, -32.08.-9,8,-18,0,-9,8,-20.0, 999 
——— —————s 558 DATA 100.-31,0,-10,.8,-8.0,-18,8,-21,0,999 
> / an 569 959 DATA 100. ~-31+0,-10,8, -6.0.-185 By -23,8,999 
we —_—_—_——_—— 560 DATA 100, -30.0.-26.8,.-24.0,999 
/ EE EI TEE 541 DATA 100, -30,9. -£3,8.-25,9,999 
.— ——— 362 DATA 180,-29,.0.-25.8.-26.0,999 
——— 579 363 DATA 100,-29,0,-24,8,-27,8,999 
——e —_—_———————— 564 DATA 100. -28.0,-24,8,-28,0.999 
——— Se 365 DATA 180.-27,0,-23.8.-30,8,999 
— ————————————— 566 DATA 100,-27,8,-22,8,-31.8,999 
—=== —_—<—<—$—_— $$$ 567 DATA 180,-24,@.-2=3,8,-33,0,999 
———_ ———SSS—TT=S= 5ga 5368 DATA 180,-70,0.-25,.8,-35,0,999 
——— ——— 369 DATA 180.-17,8,~26.8,-37,8,999 
eo 570 DATA 1@0,-15,.0,-27.8,-38,.0,999 
_————— S71 DATA 100.-14,0,-25,8,-41,9,999 
= S72 DATA 100,-13,0,-23,8,-44,8.999 
aeneees ——ae 573 DATA 100,.-12,0,-22.8,-46,0,.999 
_———— 574 DATA 108,-12,0,-228,.8, ~48.0,999 
ee, 575 DATA 1800,-12,0,-19,8,-49,0,999 
een aerereeses 574 DATA 180,-12,0,-19,8,-49,9.999 
————— 577 DATA 108, -12,0,-20,8, -48,0,999 
a $78 DATA 100,-12,0, -20,8,-48,8,999 
eiaaionmmmmmennd 579 DATA 100.-13,0,-21,8,-46,8,999 
een 580 DATA 100.-14,0,-22,8,-44,90,999 


FIGURE 7- 
Brush B. 


17. Exploded printout next to DATA lines for editing the 


may be fine for printing or designing single letters, but it is 
hardly the most convenient for dealing with whole alpha- 
bets, let alone putting letters together to form words or 
phrases. 


Alphabetical arrays. If we can program the computer to 
print a single fancy letter in several printhead sweeps, then 
we ought to be able to store the dot codes somehow for all 
the characters we would use in spelling out words. In a 
whole-alphabet approach, we can read the dot codes in 
DATA statements into storage arrays—one array for each let- 
ter—instead of just reading the codes directly into LPRINT 
statements. Then we can form words in print by selecting the 
arrays and manipulate the printing of the words in many dif- 
ferent ways. 

Assuming that each letter will be printed in several print- 
head passes, the array for each letter needs to be a two-di- 
mensional one. The array for capital A, to be printed in seven 
passes, would be aptly named AC(R,C), where AC stands for 
“letter A, capital,” R for rows (lines of print, 7), and C for 


oy 
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FIGURE 7-18. Varying densities and line spacing in printing the 
Brush B on the DMP-400. The same set of FINEDRAW codes 
was used in all printouts. Densities varied from condensed (A, C, 
F) to standard-elongated (H, I). Line-feed size varied from 216 
inch (D, F, I) to %16 inch (E). (Notice the inconsistency of *216- 
inch line feeds in example H.) 


columns (dot-column width of the letter A). For lowercase d 
it could be DL(R,C) and for the number 3 it could N3(R,C). 
You could even have arrays for punctuation marks with 
names such CP(R,C) for “colon, punctuation.” 

You could have as many different characters of your type- 
face stored in arrays as your computers RAM space will 
allow, but watch out. If you have too many passes for each 
letter, both R (rows) and C (columns) may be so large, and 
thus each R-by-C array of dot codes may be so large, that 
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your memory space can't handle more than a part of the al- 
phabet at a time. Even with only a few passes per letter, a 
48K-RAM computer is likely to have room enough for capital 
letters and numbers but not lowercase letters as well. Disk 
storage of all the character codes and a program for reading 
the codes from a datafile (only part of the character set at a 
time) will be needed to cope with this problem. 

In any event this space problem forces us to use binary- 
sum codes in the DATA lines. This is fine, because the sim- 
plest kind of program for storing the codes is a modified 
LINEDRAW program, which efficiently uses binary-sum 
codes anyway. 


PROGRAM 7-5. TYPARRAY. Storage in arrays and spelling 
with homemade multipass letters (Helvetica Medium Italic 
typeface). 


1@ ’PROGRAM 7-5: "TYPARRAY" -- ALPHABETICAL ARRAY PROGRAM, ’Aspen’ EXAMPLE 
15 ’Copyright (c) 1985 by John Warner Davenport 

20 FOR TRS-80 COMPUTERS AND PRINTERS 

30 DEFINT A-Z 

40 DIM CH(7, 68) 5AC( 7,58) EL (7,43) »NL( 7,44) yPL(7,45),SL(7, 38) 

3@ INPUT "BLACK-ON-WHITE (B) OR WHITE-ON-BLACK (W)"SBWS 

6@ LPRINT CHR$(3Q) § CHRS(27) 3 CHRS(20) $CHR$(18) 3 *CONDENSED, GRAPHIC MODE 
78 GOTO 210 

BO * eeeeHHRHEEHHHERER SUBROUTINE FOR ARRAY STORAGE 2¢4¢3426262¢3-4-26963626-36364004 4% 
90 FOR R=@ TO 7 

180 FOR C=@ TO CL 

110 READ N: IF N=999 THEN GOTO 188 

1208 IF BWS="B" AND N>=@ THEN CH(R,C)=1284N: GOTO 170 

130 IF N>=@ THEN CH(R,C)=255-N: GOTO 178 

140 READ M 

156 IF BWS="B" THEN FOR X=1 TO -N& CH(R,C)=128+Ms C=C+1: NEXT X: GOTO 110 
160 FOR X=1 TO -N: CH(R,C)=255-M: C=C+i: NEXT X: GOTO 110 


196 PRINT "END OF "3UL$5"-CASE LETTER "3LL$ 

260 RETURN 

210 > xeeeHEHEHER STORAGE OF "A" xeeneexeee 

220 ULS="UPPER": LLS="A": CL=50 7(50-COLUMN LETTER) 
230 GOSUB 88 

240 FOR R=@ TO 7: FOR C=@ TO CL: AC(R,C)=CH(R,C): NEXT: NEXT 
250 *HHHREHHHEHEEH STORAGE OF “ee” 4444 8HEEERE 

260 UL$="LOWER®: LL$="e": CL=43 

278 GOSUB 88 

280 FOR R=@ TO 7: FOR C=@ TO CL? EL(R,C)=CH(R,C)! NEXTS NEXT 
298 * HHHHHHHHHEE STORAGE OF "rn" 440 RREEE 

300 UL$="LOWER": LLS="n": CL=44 

318 GOSUB 8@ 
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FOR R=O TO 7: FOR C=@ TO CL: NL(R,C)=CH(R,C)® NEXT? NEXT 
7 2eeeeeeeEEH STORAGE OF “p" xteeeeEEHHE 

UL$="LOWER": LL$="p"? CL=45 

GOSUB 8@ 

FOR R=@ TO 7: FOR C=@ TO CL: PL(R,C)=CH(R,C): NEXT? NEXT 
eeeeeeaeeee STORAGE OF "5° eeteetee ett 

UL$S="LOWER": LL="s°: CL=J38 

GOSUB 8@ 

FOR R=@ TO 7: FOR C=@ TO CL: SL(R,C)=CH(R,C)? NEXT? NEXT 
GOSUB 5@0@0 °(OR 10000, 20000, 30000, 40880 FOR OTHER WAYS OF PRINTING) 
STOP 

REM -- START OF DATA 


DATA -30, 0, 645-125 965-8, 8,999 

DATA 2h By 64, %hy 1125 1205 126) -15, 127, 64, -6,8, 999 

DATA ~19 Dy 645 POs 1205 1245 1265 —by 1275635 S15 15535 198s 639 By 1275 965-5185 997 
DATA ~ 145s Py 1125 1285 1265-79 1275639 319 7939 1-79 By S19 Bs 1275 1125-4985 999 
DATA By Oy 645 Vy 11.25 128s 1265-79 1279-195 635 By 1275 1285 — 318, 999 

DATA 24 Dy 645 Fy 11.25 120 1245-75 1275635 519 15935 19-289 By 79 —By 1275 1245-258) 999 
DATA -31,0,999 

DATA -51,0,999 


DATA -44,0,999 

DATA -—44,8,999 

DATA —7 9 Oy 645 969 964-25 1129-35 1285 59 124, 1265 by 629-35 1265-45 1245-24 128, -2, 11 

2596, 64,-4508,999 

DOE Sees ea thee dai eine pinto tr eter an Winget g Omen we rna gene 
39 

DATA —24Os 315-95 1275 1159 679-155 33 18, 675-3 3, -258,999 

DATA By By Ly By 79155 155 B19 BL yb3y 639-49 1279 39 1269-79 1245-25 1265-35 65) 519 51515 

9155755535 19-550, 999 

DATA —-195,0,-75 15-22,80,999 

DATA -44,0,999 

REM ==-=<-9 =" -<----—-=-- ag". eeRseSean tessa eesas= 

DATA -45,8,999 

DATA -45,8,999 

DATA 9B, 965-115 1249-2 1129-35 1205-55 124, -By 1265-2, 124, 128, 96, -2, 8,999 

DATA 74 @y 1125 1265 —By 1275 635 155 79 59 bs by Oy Dy 979-95 1274 635 75-398, 999 

DATA Ay By O45 1285 —Fy 1275 155 19 —-119O5 112, 1265 —-By 127, 31435, -5 58.999 

DATA —25Oy by 1245 —By 1275 O55 79-115 Oy by 1285 -By 127,635 75 15-7585999 

DATA -45,08,999 

DATA -—45,8,999 


DATA -45,0,999 

DATA -45,8,999 

DATA 9, Oy 64-115 124) —3y 112) —2y 1285 45 1245 Oy 1265 —3y 1245 120, 112, 965-3, 8, 999 
DATA —7 Oy Oy 1245 —F9 1275 S15 79 by 15 19-89 Oy Ly 714-18, 127, -2,8, 999 

DATA 55 Qy 9by 1245-99 1275 39-119 Oy 645 9b, 112, 124, -By 12753151551, -258, 999 

DATA 3, Oy Ibs 1264 —By 1275 315 315635 63y—-3y 1265-39 1245-45 1265-35 127, 63,65, 515515 
15, 1557535 1,-6,80,999 

DATA —1,@, 112, 126, —-8, 127,31, 3,-8,8,—-5,1,-19,0,999 

DATA -10,3,1,-34,8,999 

a 10 SSS Sees 
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818 DATA ~-39,8,999 

820 DATA -39,0,999 

830 DATA ~7 By 645 965 1125 128, 120, 124, 124, -13, 126) -5, 124, 1285 128 112,96, 64, -2,0599 
9 

84@ DATA —7y Oy 155314635 -75 1275 121-45 1125-55 965 65) 67) —By 39-29 By 999 

850 DATA —29Oy—9y b4y Dy 15 19-44 3y—3y 74155154 519-75 1275 1265 1265 1245-5, 0,999 

860 DATA ~25 By 39155315635 —6 127, 126, 124, 124, —By 112, 1245-45 127) 63, 635 315155 79 39-5 
78,999 

870 DATA -10,0,-15,1,-14,8,999 

882 DATA -39,0,999 

10000 > e#kxxeHKHHHKH PRINT WHOLE LETTER "A" 4444444444444 

10018 LPRINT CHR$(18)3 "ENTER GRAPHIC MODE 

10820 FOR R=@ TO 7 

10030 FOR C= TO 50 

10040 LPRINT CHRS(AC(R,C))3 "PRINT DOT PATTERN FROM ARRAY 

100@5@ NEXT Ci LPRINT CHR$(13) 3CHR$(27) $CHRS(51)3 "LINE FEED 

10@60 NEXT R 

10070 RETURN 

20000 ’#*e*eee% PRINT LETTERS A AND "S" BACKWARDS #x#244+ 

20010 LPRINT CHR$(18) 5 

20020 FOR R=0 TO 7 

20030 FOR C=5@ TO @ STEP -1: LPRINT CHRS(AC(R,C))$:2 NEXT C 

20040 FOR C=38 TO @ STEP -1: LPRINT CHRS(SL(R,C))3: NEXT C 

20050 LPRINT CHRS(13) §CHR$(27) 3 CHRS(51) 3 "LINE FEED 

20060 NEXT R 

20070 RETURN 

20080 RETURN 

SOBQQ "xeexeeeX PRINT STORED CODES FOR LETTER "A" #444 

3@01@ LPRINT CHRS(3Q); "EXIT GRAPHIC MODE 

5@020 FOR R=Q TO 7 

3Q@030 FOR C=@ TO 50 


30040 LPRINT AC(R,C)$ "PRINT DOT CODE 
3J@250 NEXT C 
30060 LPRINT CHRS(13);5 "LINE FEED 


32078 NEXT R 
30080 RETURN 

4QQQD > KHHHHHKHKEEE PRINT WHOLE LETTER "S" 24H HHKEEHHHEHE 
40010 LPRINT CHR$(18) $ "ENTER GRAPHIC MODE 
40020 FOR R= TO 7 

40030 FOR C=@ TO 44: LPRINT CHRS(EL(R,C))3: NEXT C 

40040 LPRINT CHR$(13)3 

40050 NEXT R 

40060 RETURN 

SOGAD * HEE HKHHH HHH PRINT WORD "Aspen" KEEKEKEKEKKERKKE 
5001 LPRINT CHR$(18)$ "ENTER GRAPHIC MODE 
50020 FOR R=@ TO 7 

50030 FOR C=@ TO 5@: LPRINT CHR$(AC(R,C))$3! NEXT C 

52042 FOR C=@ TO 38: LPRINT CHRS(SL(R,C))3: NEXT C 
50050 FOR C=@ TO 44: LPRINT CHRS(PL(R,C))$! NEXT C 
50060 FOR C=@ TO 43: LPRINT CHRS(EL(R,C))32 NEXT C 
50070 FOR C=@ TO 44: LPRINT CHRS(NL(R,C))3: NEXT C 
50080 LPRINT CHR$(13)3CHR$(27) $CHRS(51)3 "LINE FEED 
50090 NEXT R 

50100 RETURN 
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Here’s how it would work. Instead of immediately printing 
each dot code as it is read from a DATA line (or from disk 
storage), the modified program reads each set of codes into an 
array. Where the LINEDRAW program would say IF N>=0 
AND N<999 THEN LPRINT CHR$(124+N), the modified pro- 
gram would replace this with IF N>=0 AND N<999 THEN 
AC(R,C)=128+N. Where repeat codes (negative numbers) ap- 
pear in the DATA, the modified program would become FOR 
X=1 TO -N: AC(R,C)=126+M: C=C+1l: NEXT X instead of 
LPRINT STRINGS$(-N,128+M), C being the subscript vari- 
able for the columns of the array. 

The TYPARRAY program (program 7-5) operates this way. 
Helvetica Medium Italic (you've seen it everywhere) is the 
typeface that is coded in this example of the program’s use. 
Five sets of dot codes, listed in DATA lines 430—880, are 
stored by lines 80—400 in five arrays for a capital letter (A) 
and four lowercase letters (e, n, p, and s). Notice how the 
widths of these letters vary, as indicated by the different 
values of CL in lines 220, 260, 300, 340, and 380. 

Once you have the codes for several characters stored in 
(as many) arrays in this fashion, you can cash in on the BASIC 
language's powerful ways of manipulating arrays for the 
printing. With each letter represented by dot codes in a ma- 
trix of rows and columns, you have a choice: (1) printing one 
whole letter at a time; (2) printing one row at a time of each 
of the letters in a sequence, until all the letters in the se- 
quence are completed; (3) printing one column at a time over 
a selected sequence of arrays; (4) printing a row, column, or 
whole letter backward or in whatever order you specify; and 
(5) printing any portion of a character you wish, instead of 
the whole character. 

In ordinary printing you would be using (1) or (2), but 
typography designers might put the other three options to 
good use as well. Option (1), combined with some fancy line 
feeds and positioning commands, could provide interesting 
printouts with the letters of a word arranged on a page in the 
form of an arch, running along a diagonal, or some other arty 
way. For regular printing of horizontally aligned letters, (2) 
does the job. Time for some examples. 

In TYPARRAY, FOR-NEXT loops are used in five subrou- 
tines to control the printing. Subroutine 10000 prints letter 
A, which has eight rows and fifty-one columns in its array, by 
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simply nesting FOR C=0 TO 50, LPRINT CHR$(AC(R,C));, 
NEXT C, and a line feed within the loop of FOR R=0 TO ? and 
NEXT R. If we run the program with that subroutine (selected 
in line 410) and a similar subroutine for the letter s, once for 
black printing and again for white-on-black, our printer will 
deliver letters like those shown in figure 7-19. 


As WSs 


FIGURE 7-19. Helvetica Medium Italic A’s and s’s printed by 
the DMP-400. 


In subroutine 30000, LPRINT AC(R,C); is in the midst of 
the nest instead of LPRINT CHR$(AC(R,C));. Following a 
return to text mode by LPRINT CHR$ (30); in line 30010, this 
provides a printout of the dot codes themselves rather than 
the letter A. This is nice to be able to do when you are check- 
ing and debugging the program. Figure 7-20 shows a printout 
of the dot codes for the letter A after their conversion from 
binary-sum codes. 

Subroutine 40000 prints the letter s in the same way that 
subroutine 10000 printed the letter A; the printing of these 
two letters illustrates option (1), printing one whole letter at 


FIGURE 7-20. Dot codes for Helvetica Medium Italic letter A as 
printed by subroutine 30000 of the TYPARRAY program. 


(Letter A) 


128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 

128 128 128 128 192 224 224 224 224 224 224 224 224 224 224 224 224 128 128 128 128 128 1280 128 128 

128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 192 224 
240 248 254 35 35 35 BS 5 25 BS 35 25 25 255 25 25 255 25 192 128 128 128 128 128 128 

128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 192 224 248 22 254 25 255 

25 25 5 25 191 159 143 131 129 128 191 25 35 25 25 25 255 255 255 224 128 128 128 128 128 

128 128 128 128 128 128 128 128 128 128 128 128 128 128 224 248 248 254 255 255 255 255 255 255 255 191 

159135 13t 127 128 128 128 128 128 128 128 159 255 25 25 255 255 255 255 255 248 128 128 128 128 . 
128 128 128 128 128 128 128 128 192 224 248 248 254 255 255 255 255 255 295 25 191 191 191 191 191 191 

191 191 191 191 192 191 191 191 191 191191191 «191 255 255 25 255 255 255 255 255 248 128 128 128 

128 128 192 224 248 248 252 25 255 2595 255 255 255 255 191 159 143 131 129 128 128 128 128 128 128 128 

128128 128 128 128 128 128 128 128 128 128 128 128 135 25 25 255 255 255 255 255 255 252 128 128 

128 128 128 128 128 128 128 128 128 128 128 128° 128 128 128 128 128 128 128 128 128 128 128 128 128 128 

128128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 

128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 

128128) 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 128 
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FIGURE 7-21. Backward A’s and s’s from the TYPARRAY program. 


a time. By simply reversing the direction in the FOR state- 
ments for columns in these subroutines (to FOR C=50 TO 0 
STEP -1 in line 20030 and to FOR C=38 TO O STEP -1 in line 
20040), subroutine 20000 provides an example of option (3), 
backward printing, as shown in figure 7-21. 

For option (2)—regular horizontal word formation—sub- 
routine 50000 nests several FOR-NEXT loops (one for each 
letter) within the FOR-NEXT for rows. This produces letters 
like those in figure 7-22. That figure also shows how our 
rather rough-hewn Helveticas smooth out with photographic 
reduction. 

If you have a spare week and want to do better than this, 
try an ultra-high-resolution (FINEDRAW) version of TYP- 
ARRAY, with %16-inch line feeds, 0 and 8 binary dot codes, 
and many more print and DATA lines. The amount of RAM 
space involved in printing the much larger arrays of charac- 
ters in words would be pretty hefty, and storage of the dot 
codes on disk would almost certainly be necessary. 


FIGURE 7-22. Smoothing out the rough edges by photographic 
reduction. 


27.5%: Lie Aspen 
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Letter-segment selection. If you take a close look at the 
professional typefaces in a typical graphics catalogue, you'll 
see that almost any of those character sets keeps its distinc- 
tive style and integrity by carefully repeating certain shapes 
or visual accents in many different letters. The bottom parts 
of the capital letters C, O, S, and U will have exactly the 
same curvature, for example, or the tops of B, D, P, and R 
will be exact duplicates in their form. And if you had to print 
several of these letters in the same word, you would want 
these common letter parts to be perfectly lined up horizon- 
tally. 

This suggests another programming approach in typogra- 
phy that might be called letter-segment selection. Instead of 
whole-letter codes stored in DATA statements or arrays, 
codes for parts of letters that many different characters have 
in common can be stored in strings, and later these parts can 
be assembled in different combinations for different whole 
letters by combining the strings. Even though there are 
bound to be more different parts of letters in a whole alpha- 
bet than letters themselves, no matter how you slice them 
up, there could be advantages to this approach when it comes 
to: programming word spelling in large titles or headings. 

The best example for trying this out is probably the 
little-known Informal Gothic typeface (designed by Visual 
Graphics Corporation, Tamarac, Florida). This modern-but- 
informal lettering style was used by the Straus Printing Com- 
pany (Madison, Wisconsin) for the front-cover titles of the 
authors Baseball Graphics and Baseball’s Pennant Races 
books. This typeface is not a typical one, because its most 
distinctive feature is using lowercase letters as if they were 
capitals, which is also the main source of its charm. 

This feature provides more than the usual number of char- 
acters having common letter parts. Even the top portions of 
the Informal Gothic A (shaped more like a) and E (e) have 
the same curvature as the tops of characters C, G, O, Q, S, 2, 
3, 6, 8, and 9. Another feature, having many vertical edges in 
the characters that are parallel, provides more common seg- 
ments in the interior portions of the letters. The age-old prin- 
ciple of computer programming—store anything that is often 
repeated in a subroutine or a string—seems to apply here. 

In our BASIC program called STRAUS, we have planned 
for twelve passes of the printhead for each word or phrase in 
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which (up to about eighteen) characters are to be horizontally 
aligned. This produces black letters about 1.2 inches high, 
and each of these is constructed of twelve letter segments 
from the alphabet’s total pool of seventy-five segments. The 
first (top) three segments of the letter D, for example, are 
produced by dot-pattern code sequences stored in strings 
called D1$, D2$, and D3$ in a single subroutine that con- 
tains the code strings for all seventy-five segments. 

After some “housekeeping” strings have also been defined 
(e.g., P1$ for start-of-print position, LF$ for line feed, BK$ 
for a blank space), we can print a word by running a set of 
LPRINT statements such as those shown in program 7-6. 
(Again, the dollar signs for all of these string names can be 
omitted if DEFSTR A-Z is used.) 


PROGRAM 7-6. STRAUS. String combinations for Informal 
Gothic letters. 


10 
12 


"PROGRAM 7-6: "STRAUS* -- LETTER SEGMENTS FOR "PERSONAL" (TRS-80) 
"SIMULATION OF INFORMAL GOTHIC TYPEFACE (VISUAL GRAPHICS CORP. ) 
REM -(POS.) P---E---R---S---0---N---A---L (L.FEED) 

LPRINT PIS;DIS$GISSDISSGISSGISSNISSGISSLISSLFS§ *TOP LINE 
LPRINT P1$5D2% 562% 5 D235 G2$ 5 G2$ 5N2%5G2$5L2$5LFS5 "LINE 
LPRINT P1$5D3% 563% 5D3$ 5 G3$ § G3$ 5 D3$5G3$5L2$5LFS5 "LINE 
LPRINT P1$50% 36% 50% 50% 50% 50% 50% §L2$5LFS$3 "LINE 
LPRINT P1S50S 50% §B5%555$50$ 508 SA5S§LZS5LFS$5 "LINE 
LPRINT P1%53P6%5E6S3B6$5S56$50$ 50% SAS$§3LZ265LFS5 "LINE 
LPRINT P1IS$P7S5H7$5B7$5S7$50% 508 SA7S§LZ2S5LFS§ "LINE 
LPRINT P1$5P8S5E8S;BES5SBS50S 50% FABSSL2S5LFS5 "LINE 
LPRINT P1IS5C7S50% 50S 50% 50% 50% 50% 5L2S5LFS$$ "LINE 
LPRINT P1$5C7%30% 50% 3G8%5G0%$30$ $G0$5L2$5LF$5 "LINE 10 
LPRINT PIS$C7S;CES}OS SCESSCESSOS SCESSLESSLFS5 "LINE 11 
LPRINT P1$3C7%5CWSSRWS5CWSSCWS50S SAWSSLWSSLFS5 "LINE 12 
LPRINT P1%3BKS5CTS§ BKS§$ CTS§5CTS5 BKSSATSSLTS5LF S$ "LINE 13 


COON oN S&S GI bo 


The printout and reversal are shown in figure 7-23. The 
white-on-black printout was done with another subroutine in 
which the letter-segments are defined by strings having 
black-white reversal codes for TRS-80 printers (see figure 4- 
3). Other renditions of the same letters, which a catalogue 
would call Informal Gothic Regular, Informal Gothic Con- 
densed, and Informal Gothic Extended, would result from 


changes in print density. 


For a better view of the letter segments themselves, let’s 
explode some words by increasing the line and letter spac- 
ing. Figure 7-24 provides the exploded printout, and from 
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Informal Gothic letters printed in thirteen 


S 
© 
~s 
io 
= 
A 
& 
Oo 
5°) 
fo) 
Sond 
OQ, 
oF 
rae) 
ed 
S 
o 
E 
ie!) 
© 
17) 
a 
© 
a 
a 
© 
ao, 
Cee 
OO 
E 
17 a) 
~ 
an 
© 
<2) 
\ 
5°) 
oF 


FIGURE 7-24. Exploding the letters shows some letter segments that are 


used repeatedly. 
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FIGURE 7-25. Black-white reversal of ““Venetian blinds.” 


this it’s easier to see that that shape called D1$ in the 
STRAUS program (line 305, program 7-6) is used for the top 
of a P as well as for an R, a B, and the letter D itself. You can 
also see that the vertical sequence of G1$, G2$, and G3$ gets 
used no fewer than eleven times in these three words. 

By the way, if you stand back a bit and look at these words 
in a less analytical way, you’ll see that their explosion has 
created a whole new typeface having a certain amount of. 
pizzazz by itself. This brilliant discovery deserves a new 
name—Venetian Blind, perhaps? 

IBM users, of course, will probably wonder what is so orig- 
inal about this “discovery.” This exploded style is also inter- 
esting when reversed (see figure 7-25)—in that version the 
letters hang, unbroken, in front of the “Venetian blinds.” 
Maybe Big Blue’s logo would be refreshing that way, too. 


Dot-style typefaces. There is a special group of typefaces 
which, you would think, were designed by and for computers 
—those having characters made out of dots. Examples are the 
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FIGURE 7-26. Five dot-style typefaces from the graphics catalogues. 


Hollywood Lights and Sampler styles in the Formatt cata- 
logue, the Astra and Pinball faces in Letraset’s Letragraphica 
collection, and Chartpak’s Pointille. 

Figure 7-26 shows examples of these typefaces. On the 
dot-matrix printer most faces of this type are fun and easy to 
program, because each of them repeats a single element (a 
dot or star) that can be defined in a string as a simple combi- 
nation of dot codes. Once defined in this way, a one-dimen- 
sional array is all you need for each character, with subscript 
values ranging from one to however many rows of dots or 
stars it takes to print the character. See how our HOL- 
LYWRD (program 7-7) handles this. 


PROGRAM 7-7. HOLLYWRD. Simulation of the dot-style 
Hollywood Lights typeface. 
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"PROGRAM 7-7: "HOLLYWRD"® -- *HOLLYWOOD LIGHTS’ TYPEFACE 
"Copyright (c) 1985 by John Warner Davenport 
"FOR TRS-80 COMPUTERS AND (WIDEBODY) PRINTERS 
CLEAR 20080 
PD=20: LPRINT CHRS( 30) 3 CHR$(27) §CHRS(PD)$ *PD=PRINT DENSITY 
INPUT "BLACK-ON-WHITE (B) OR WHITE-ON-BLACK (W)"3BWS 
IF BWS="B" THEN GOTO 220 
HHKHKKKEK GRAPHIC STRINGS FOR WHITE-ON-BLACK PRINTING 4% 444% 44%%% 


PS$=CHR$ (18) +CHRS (27) +CHRS(16)+CHRS(Q) +CHRS(@)+STRINGS (140, 255) BLACK oe 
PRS=STRING$( 140, 255) 

PTS=CHRS (18) +CHRS (27) +CHRS (16) +CHRS(O)+CHRS(Q)+STRINGS(20,255) 7 * ‘ 
PUS=STRINGS (20, 255) Co *a . 
PVS=CHR$ (18) +CHRS (27) +CHRS(16)+CHRS(@)+CHRS(@)+STRINGS(115,255) ” ° . 
PWS=CHRS$ (18) +STRINGS (250, 255) *BLACK SURROUND 
EDS=CHR$ (18)+STRINGS(25, 255) "BLACK SURROUND 


DF S=CHR$ (18) +CHRS (227) +CHRS( 193) +CHRS(193)+STRINGS (4, 128)+CHRS(193)+CHRS(193 
)+CHRS (227 ) +CHRS (255 ) "SQUARE CONTAINING OPEN CIRCLE 


198 
200 
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BKS=CHR$(18)+STRINGS(11,255) *SOLID BLACK SQUARE 

LFS=CHR$(18)+CHRS (13) "7/72" LINE FEED 

GOTO 380 

7##eREHERE GRAPHIC STRINGS FOR BLACK-ON-WHITE PRINTING ##e#xeeHHHHH 

PS$=CHRS( 18)+CHRS (27) +CHRS (16) +CHRS (8) +CHRS(O)+STRINGS(140,128) * BLANK Shee 
PTS=CHRS (18) +CHRS( 27) +CHRS (16) +CHRS (8) +CHRS(O)+STRINGS(20,128) ° " 
LFS=CHRS$ (18) +CHRS (13) +CHRS (27) +CHRS (58) . on i 
PVS=CHRS( 18) +CHRS (27) +CHRS (16)+CHRS(O)+CHRS(O)+STRINGS(115,128) ” * " 
DF $=CHRS( 156) +CHRS (198) +CHRS (198) +STRINGS (4, 255) +CHRS (190) +CHRS (190) +CHRE(15 
6)+CHR$ (128) "FILLED CIRCLE 

BK$=CHRS$(18)+STRINGS(11, 128) "BLANK SQUARE 
THEEEERERERERHHEEEREREE SPELLING OF WORDS 84464 ERHRHEEEE 

DIM AS(11),BS(11),CS(11),DS(11),ES(11),FS$(11),GS(11) HSC11),1S$(11),JS(11) KS 
C11) LSCL1)sMSCLL) NSC11),OS(11),PSC11),QSC11),RSC11), 59011), 73011), US(11),V 
SC11) WSH(11)9XSC11),VSC11), 25011), EXS(11) 

GOSUB 418 "MEMORIZE CHARACTER STRINGS 

LPRINT PWS3 PWS 5 PWS5EDS$5LFS; 

FOR I=@ TO 112 LPRINT PSSSHS(T) SAS(I) §PS(1) SPS(1) SYS(1) SPRESLFS§% NEXT I 
LPRINT PWS3PWS5PWS5ED$ 5 

LPRINT CHRS(13) 5 

LPRINT PWS5 PWS; PWS 5EDS 5 

FOR I=@ TO 112 LPRINT PTSSBS(1) Ss I1S(1) SRS(T) STSCI) SHSCT) SDSC1) SASCT) SYSCT) § PU 
$3LF$5: NEXT I 

LPRINT PWS; PWS; PWS5ED$5 


LPRINT STRING$(3,13)5 *TRIPLE LINE FEED-CARRIAGE RETURN 
STOP 
REM. <= "A" 


FOR I=2 TO 6? A$(1)=BKS+DFS+DF$+DFS+BKS+DFS+DFS+DFS+BKS*S NEXT I 
FOR I=9 TO 11:2 AS(1)=BKS+DFS$+DF$+DF$+BKS+DFS+DFS+DFS+BKS: NEXT I 
A$ (@)=BK$+BK$+DF$+DF$+DF$+DF$+DF$+BKS+BKS 
A$(1)=BK$+DF$+DF$+DF$+DF$+DF $+DF$+DFS+BKS 

FOR I=7 TO 8: AS$(1I)=BKS+DFS+DF$+DF$+DFS+DFS3+DFS+DFS+BKS: NEXT I 


REM -- "B* 

FOR I=@ TO 11 STEP 11: BS(1)=BKS+DFS$+DFS+DFS+DFS+DFS+DFS+BKS+BKS: NEXT I 
FOR I=1 TO 10 STEP 9: BS(1)=BKS+DF$+DFS+DFS+DFS+DFS+DFS$+DFS+BKS 2 NEXT I 
FOR I=5 TO 6: BS(1I)=BK$+DF$+DF$+DF$+DFS+DFS+DFS+BKS+BKS: NEXT I 

FOR I=2 TO 4: BS(1I)=BKS+DF$+DF$+DFS+BK$+DFS+DFS+DFS+BK$: NEXT I 

FOR I=7 TO 9: BS(1)=BKS+DFS+DFS$+DF$+BKS+DFS+DFS+DFS+BKS2 NEXT I 

REM -- "C* 

REM -- *D" 


FOR I=2 TO 9: D$(1I)=BKS+DF$+DFS$+DF$+BK$S+DF$+DF$+DFS$+BKS: NEXT I 
FOR I=1 TO 10 STEP 9: DS(I)=BK$+DF$+DF$+DF$+DF$+DF$+DFS+DFS+BKS: NEXT I 


FOR I=@ TO 11 STEP 11% DS(1T)=BKS+DFS+DFS+DFS+DFS+DFS+DFS+BKS+BKS= NEXT I 


REM =— .*E* 
REM -- "F" 
REM -- *°G" 
REM -- °H" 


FOR I=0 TO 4: H$(1)=BKS+DF$+DF$+DF$+BKS+DFS$+DFS+DFS+BKS2 NEXT I 
FOR I=5 TO &: H$(I)=BK$+DF$+DF$+DF$+DFS+DF$+DFS+DFS$+BK$: NEXT I 
FOR I=7 TO 11:2 H$(1)=BKS+DF$+DF$+DFS+BKS+DFS+DFS+DFS+BKS: NEXT I 


FOR I=8 TO 11: I$(1)=BKS+DF$+DFS+DFS+BKS:2 NEXT I 
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REM -- °L" 
REM -- "M" 
REM -- "N° 
REM -- "OQ" 
REM -- "P* 


FOR I=7 TO 11: P$(1)=BKS+DFS+DFS+DFS+BKS+BKS+BKS+BKS+BKS: NEXT I 

FOR I=2 TO 4: P$(I)=BK$+DF$+DF$+DF$+BK$+DF$+DF$+DFS$+BKS: NEXT I 

FOR I=@ TO & STEP 6: PS(I)=BK$+DF$+DF$+DF$+DFS+DFS+DFS+BKS+BKS: NEXT I 
FOR I=1 TO 5 STEP 4: P$(1I)=BK$+DF$+DF$+DF$+DF$+DFS+DF$+DF$+BKS: NEXT I 
REM -- "Q° 

REM -- °R" 

FOR I=8 TO 5 STEP 5: R$(1)=BK$+DFS+DF$+DF$+DFS$+DF$+DFS+BKS+BKS: NEXT I 
FOR I=1 TO & STEP 5: RS(1)=BK$+DF$+DF$+DF$+DFS+DFS+DFS+DF$+BKS: NEXT I 
FOR I=2 TO 4: R$(1)=BK$+DF$+DF$+DF$+BKS+DF$+DF$+DFS+BKS: NEXT I 

FOR I=7 TO 11° R&(1)=BKS+DFS+DFS+DFS+BKS+DFS+DFS+DFS+BKS=2 NEXT I 

REM -- "S" 

REM -- °T® 

FOR 1=@ TO 1: T$(1)=BKS+DF$+DF$+DFS+DF$+DFS$+DFS+DFS+BKS* NEXT I 

FOR I=2 TO 11: T$(1)=BKS+BKS+BKS+DFS$+DF$+DFS+BKS+BKS+BKS= NEXT I 


REM -- °U" 
REM -- *V" 
REM -~- "W" 
REM -- *X" 
REM == *Y" 


FOR I=@ TO 6: YS(1)=BK$+DF$+DF$+DF$+BKS+DF$+DF$+DF$+BKS: NEXT I 
FOR I=7 TO 11: Y$(1)=BKS+BK$+BKS+DF$+DFS+DFS+BKS+BKS+BKS= NEXT I 
Y$(5)=BK$+DF$+DF $+DF $+DF $+DF$+DF $+DF $+BKS 

Y$(6)=BK$+BKS+DF $+DF$+DF$+DF $+DF$+BKS+BKS 

REM -- "2" 

REM -- EXCLAMATION POINT -- EX$(T) 

FOR I=@8 TO 8: EX$(1)=BKS+DFS+DFS+DFS+BKS: NEXT I 


1000 EX$(9)=BKS+BK$+BKS+BKS+BKS 
1010 FOR I1=1@ TO 11:2 EXS(1)=BKS+DFS+DFS+DFS+BKS: NEXT I 
1028 RETURN 


Figure 7-27 shows the simulation of the Hollywood Lights 
typeface that the HOLLYWRD program provides, and it also 
shows how a phony (and inaccurate) version of Astra can be 
produced by substituting codes for a star in place of the 
black-circle codes. The third HAPPY BIRTHDAY is a more 
authentic Astra example, produced by defining the character 
strings, printing the groups of stars in eleven passes instead 
of twelve, and spacing them farther apart. With only minor 
changes in the HOLLYWRD program, you can go from Astra 
to Sampler to Pointille with ease, and on to further creations. 

And now, for those of you who have been viewing these 
last three chapters as a never-ending digression from the 
main business at hand, relief is only a page away. We finally 
come to the programming of graphs! 
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FIGURE 7-27. Three printouts from the HOLLYWRD program. 


8 
Bar Graphs 


YOU'D think that a bar graph is a bar graph and that’s all 
there is to it. But there are horizontal and vertical bar graphs, 
anchored and floating bar graphs, one-way and two-way bar 
graphs, segmented and unsegmented bar graphs, and lots of 
combinations. That means that we have our work cut out for 
us. 


Horizontal Bar Graphs 


The first thing we'll discover is that horizontal bar graphs are 
easier to program than vertical bar graphs. From the stand- 
point of printer graphics, the important difference between 
horizontal and vertical bar graphs is not whether the bars run 
parallel to or at right angles to the printhead’s direction—in 
this chapter they'll run parallel for both types. Rather, it is a 
matter of whether the bars run parallel or perpendicular to 
most of the numbering and labeling in the graph. The more 
we can make use of the printer’s built-in characters for the 
numbering and lettering, the easier the programming will 
be, and it is the horizontal bar graphs that have the bars 
running parallel to those (upright-oriented) characters. 


A simple bar graph. Our first few examples of each type of 
bar graph will make this clearer. In figure 8-1, we have a 
simple horizontal bar graph produced by the BARGRAPH 
program for IBM-Epson printers (program 8-1). Each of the 
solid bars in the graph is printed by simply repeating the 
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REPORTED DEATHS FROM BOREDOM IN THE UNITED STATES, 1990-1995 
NUMBER OF CASES 


0 100 200 300 400 300 600 700 


MASSACHUSETTS 
PENNSYLVANIA 
CALIFORNIA 

NORTH DAKOTA 
OKLAHOMA 

WEST VIRGINIA 
RHODE ISLAND 

ALL OTHER STATES 


FIGURE 8-1 A simple horizontal bar graph from the BARGRAPH program for the 
DMP-400. 


single 8-dot code CHR$(255). The length of each bar indi- 
cates the data value, and to get those bar lengths as accurate 
as possible, the program uses the double-density graphic 
mode. Before each bar is printed, its data value is converted 
in line 1020 to the N1 and N2 values (here called V1% and 
V2%) that state precisely how many dot columns are reserved 
for the bar. Line 140 then prints the bar by following the 
27+°“L”+N1+N2 provision with STRING$(N,255) com- 
mands. The N values in these STRING$ functions must be 
equal to 255 or 0, and S1 or S2, as calculated by lines 1030-— 
1050. 


PROGRAM 8-1. BARGRAPH. Horizontal bar graph. 


10 


"PROGRAM 8-1: "BARGRAPH" -- SIMPLE BAR GRAPH FOR IBM-EPSON PRINTERS 
*Copyright (c) 1985 by John Warner Davenport 

"FOR IBM-EPSON PRINTERS AND TRS-80 COMPUTERS (MODEL III: USE BOOTHE’S DRIVER) 
CLEAR 1800 


LPRINT CHR$(27)5"a" 5 "MASTER RESET 

CRS=CHRS (13) "CARRIAGE RETURN 

SF=1 *SF=SCALE FACTOR 

LFS=CHRS (27) +"A"+CHRS(8) +CHRS (10) "8/72" LINE FEED 

PXS=CHRS (27) +°L"+CHRS( 199) +CHRS(O)+STRINGS (199,08) 

GOSUB 5000 *HORIZ. AXIS NUMBERING, LABELING 
FOR N=1 TO 3: GOSUB 2080 : NEXT N "START OF VERTICAL AXIS 


1@@ READ N$,V 
11@ IF N$="END OF DATA* THEN FOR N=1 TO 2: GOSUB 2000 : NEXT N: GOTO 999 
12@ LPRINT CHRS(27) 5°E" §NS§CRS5PXS§5 CHRS(27) 5 "L" § CHRS(2) § CHRS(O) SSTRINGS(2, 255) § 


"PRINTING OF BAR LABEL AND SIDE-AXIS SEGMENT 


13@ GOSUB 1800 "NUMERICAL CONVERSIONS OF V 
140 LPRINT CHRS(27) 5°L* §CHRS(V1Z) § CHRS(V2%) SSTRINGS(S1, 255) SSTRINGS(S2, 255) sSTRI 


NG$(V1Z, 255) §STRINGS(V2Z, 255) § *PRINTING OF BAR 


15@ LPRINT CRS5LFS; "CARRIAGE RETURN, LINE FEED 
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160 GOSUB 20@@ ’*PRINTING BETWEEN BARS (SIDE AXIS, VERT. DASHES) 

178 GOTO 180 

3@@ "DATA FORMAT: NS=BAR LABEL (UP TO 16 CHARACTERS), V=NUMERICAL VALUE 

31@ DATA "REPORTED DEATHS FROM BOREDOM IN THE UNITED STATES, 1990-1995", "NUMBER 
OF CASES" 

328 DATA MASSACHUSETTS, 621, PENNSYLVANIA, 568, CALIFORNIA, 449,NORTH DAKOTA, 236, OKLA 
HOMA, 232,WEST VIRGINIA, 191,RHODE ISLAND, 112,ALL OTHER STATES, 178,END OF DATA 
78 

999 PRINT “JOB DONE": END 

1000 ’x#tHeHRREHHREREEH NUMERICAL CONVERSIONS #2244002 2 eH EERE 

1010 V=SF#V "ADJUST V BY SCALE FACTOR, SF 

1820 V24=FIX(V/256)2 V1IZ=FIX(V-256%V2%) °FOR NO. OF COLUMNS OF GRAPHIC SPACE TO 
RESERVE FOR PRINTING OF A BAR 

1030 IF V2%=@ THEN Si=@: S2=0 

1040 IF V2%=1 THEN $1=255: S2=@ 

1@5@ IF V2%=2 THEN $1=255: $2=255 

1068 RETURN 

2000 *eeeKKKRHHER VERTICAL-AXIS SEGMENT WITH LINE FEED 4x2xx028%%% 

201@ LPRINT PX$§CHRS(27) §"L" § CHRS(2) § CHRS(@) sSTRINGS(2, 255) } 

2020 FOR N=1 TO 7: LPRINT CHR$(27)§"°L" 5 CHRS(18Q) 5 CHR$(@) sSTRINGS(99,@) § CHRS(4Q) } 
s NEXT N 

2038 LPRINT CRS§LFS5 

2848 RETURN 

3000 ’*#xexee HORIZONTAL-AXIS HASHMARKS, NUMBERING, LABELING #*##%+ 

3018 READ TS: LPRINT CHRS(27)§"E"3TAB(9) $TS3CRSSLFS3LF$3 = PRINTING OF TITLE 

3@20 READ YL$: LPRINT CRS3TAB(34) §CHRS(27) 3 "W1" 3 YL$3CHRS(27) 3 "WO" $ 

3038 LPRINT CR&3LFS5LFS$3 "CARRIAGE RETURN, DOUBLE LINE FEED 

3840 LPRINT PX$$CHRS(8) §CHRS(27) §°L" § CHRS(8) § CHRS(B) STRINGS (8, @) 3 "0" 3 CHRS(27) 3° 

"3 CHRS (76) § CHR$(O) SSTRINGS(76,8)3"100"3 "START OF TOP-AXIS NUMBERING 

358 SP$=CHR$(27)+"L" +CHRS (64) +CHRS(B)+STRINGS(64,@)2 LPRINT SP$3°200" 3SP$3 "300" 
3SP$ 5° 400" 5SP$5 "500" §SP$§ "600" §SPS3 "700" § "NUMBERS 280-780 

3@68 LPRINT CRS5LFS3 

30708 LPRINT CHR$(27)5"J"$CHRS(11)3 "EXTRA LINE FEED (11/216") 

J@8@ LPRINT CRS5PX$§}CHRS(27) §"L" § CHRS( 209) § CHRS(2) SSTRINGS (258, 192) sSTRINGS (250, 
192) SSTRINGS (221,192) 5 *TOP-AXIS LINE 

3898 LPRINT CRS§PX%$5CHRS(27) §"L" § CHRS(2) § CHRS(@) SSTRINGS(2, 255) § *HASHMARK 
AT ZERO POINT 

31@8 FOR N=1 TO 7: LPRINT CHRS$(27)3"L" §CHRS( 188) 3 CHRS(@) STRINGS (99, @) 5 CHRS( 127) 
3° NEXT N "REMAINING HASHMARKS 

3110 LPRINT CRS3LFS; 

3128 RETURN 


Since the BARGRAPH program allots space for up to six- 
teen characters for labeling each bar immediately to its left, 
the longest any bar can be is 720 dot columns (six inches on 
the printed page). You can reduce this allotment to allow 
room for printing each bar’s numerical value at its right-hand 
end. 

Printing those values, as with the bar labels on the left and 
the scale numbering and title at the top of the graph, can all 
be done with the printer’s built-in characters. This is a good 
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deal easier than having to define and position homemade 
characters. 

If you study subroutine 5000, however, you'll see that hor- 
izontal graphs are still not all that easy. Here we have our 
first of many examples showing that the programming of a 
graph’s main axis (the top axis in a horizontal graph, the Y or 
vertical axis in a vertical graph) is almost as much work as all 
the other ingredients of a graph combined. After the graph’s 
title (T$) is read and printed (line 5010), the main axis label 
(YL$) is printed in expanded (5-CPI) mode (line 5020). Then 
the numbering of the top axis is done (lines 5040-5050), 
using built-in numbers in pica pitch. All the three-digit num- 
bers are separated by sixty-four dot columns, and since this 
is not an even multiple of six or twelve, the graphic mode is 
used for precise spacing. After the numbering and more line 
feeds, the axis itself is drawn (line 5080), using the top two 
dots of the printhead (dot code 192). Finally, hash marks 
lined up with the center of the central digit in each scale 
number are printed (lines 5090-5100), using a seven-dot 
code, CHR$(127). 


Scaling of the main axis. All this programming cannot be 
done, of course, until after the scale of the axis is calculated. 
In nearly every kind of graph, this has to be done, and it’s a 
good idea to lay out a worksheet for the scaling so you can 
see exactly how many dot columns of space are available for 
the plotting of data values in the graph after allowing for 
labeling space, a title, perhaps a frame around the graph, and 
any other features outside the plotting area. 

Don’t make hard work out of scaling. There’s no higher 
mathematics involved, and most of the time it’s a simple mat- 
ter requiring only a little common sense. Once the plotting 
space on the paper is determined, you need to find the range 
of data values to be plotted and decide how close you'll let 
the highest and lowest values come to the axes or margins of 
the graph for a good overall appearance. When you know 
both the number of dot columns available and the range of 
numerical values, you can calculate how many dot columns 
it takes to divide the axis into several equal segments that 
will suit the numerical scales of your data values. In our 
BARGRAPH illustration, the 700-plus dot columns available 
(after labeling space on the left) were divided into seven 
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equal segments of 100 dot columns and gave us a handy one- 
to-one relationship of data values to dot columns, since the 
highest data value (for Massachusetts) was between 600 and 
700 on the “number of cases” scale. If the number of cases 
had extended to over 1,200, then a two-to-one ratio would 
have have worked well, with the axis numbered from 0 to 
1400 instead of from 0 to 700. The variable SF (scale factor) 
in lines 50 and 1010 amounts to the same thing as this ratio 
of data values to dot columns. 

There’s a lot more to scaling than this, since data values 
can include negative values, be bunched together in ways 
that make it difficult to show differences clearly, and present 
other challenging problems. Some of our later examples will 
show how to cope with these things, or a standard book on 
designing graphs can be consulted. In commercial software 
for common types of bar and line graphs, you’ll find “auto- 
scaling’ —automatic scaling and numbering of the main axis 
based directly on the range of data values. This involves 
scanning of all data values by the computer before anything 
is plotted, determining the highest and lowest data values in 
the whole set, and calculating the difference between them. 
Scale values appearing as numbers on the axis are then se- 
lected in subroutines in accordance with the maximum, min- 
imum, and range of the data values and the ratio of the range 
to dot columns available. 

Beyond scaling and numbering, there is the matter of 
printing an axis and its hash marks. An assortment of styles 
for axes that run parallel to the printhead’s movement (i.e., 
the top axis in a horizontal graph, or the Y axis in a vertical 
graph) are displayed in figure 8-2. The BASIC statements 
that accompany the drawings are designed for TRS-80 print- 
ers, but for other printers you need only replace CHR$(18) 
with a graphic reservation command (the 27+ “K” +N1+N2 
sequence for IBM-Epson printers or the 27+ ‘“Gnnnn”’ se- 
quence for Apple printers), substitute positioning codes for 
the TRS-80’s 27+ 16+N1+N2 sequence, and convert the dot 
codes using figure 4-1. 

For the axis lines themselves, using at least a two-dot line 
is recommended if you're concerned about how well a graph 
will reproduce photographically. If you like heavier styles, 
three-, four-, or five-dot thicknesses can be used, but if you 
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Y-AXIS SUBROUTINES 


ee 


10G@O ‘s##eee0e Y AXIS WITH FOR-NEXT HASHMARKS ###ee# 

10005 REM -- ‘CLEAR 10@0° NEEDED IN PROGRAM 

180180 LPRINT CHRS (18) s STRINGS (58, 128) s STRINGS (281 , 131) 3 STRINGS (280,131) 3 
401-DOT-LENGTH Y AXIS STARTING AT COLUMN 50 

1@@2@ FOR Y=5@ TO 45@ STEP 1@@: V1iX%=V/256: Y2%=VY-256#V1%: LPRINT CHRS (27) ; CHRS (1 


6) sCHRS (Y1%) s CHRS (Y2%) s CHR$ (252) 3: NEXT Y “LARGE HASHMARKS 
18830 FOR Y=1@@ TO 480 STEP 100: Yi%=V/25S6s V2K=Y-256#V1%2 LPRINT CHRS (27) ; CHRS ¢ 
16) ;CHRS (Y1%) s CHRS (Y2%) s CHRS(148)5: NEXT Y “SMALL TICS 


188699 RETURN 


Sa a ee ee pe ee 


11880 ‘s#aee Y AXIS WITH STRINGS HASHMARKS s###4#4 
11010 LPRINT CHRS$(18) sSTRINGS$ (SO, 128) s STRINGS (201,131); STRINGS (280,131) 5 
481-DOT-LENGTH Y AXIS STARTING AT COLUMN 58 
11020 LPRINT CHR$ (27) ; CHRS (16) 3 CHRS (@) 3 CHRS (SO) s CHR$(252)3: FOR Nel TO 4: LPRINT 
STRINGS (49,1268) ; CHRS (140) ; STRINGS (49, 128) s CHRS(252)3:3 NEXT N 

“LARGE AND SMALL HASHMARKS 
11699 RETURN 


aa a) a ea aa (a, 


12000 ‘###ee INTEGRATED Y AXIS AND HASHMARKS ###4# 

12010 LPRINT CHRS$(1@) ;CHRS (27) ; CHRS (16) 3 CHRS (@) 3 CHR$ (58) sCHRS$ (255) 3: FOR N=1 TO 
4: LPRINT STRINGS (49, 131) 3 CHRS (143) s STRINGS (49,131) ;CHRS (255) 5: NEXT N 

12099 RETURN 


a a 


136CO ‘s##ee8 INTEGRATED AXIS WITH RULER-TYPE HASHMARKS ##e04 

13810 HAS=STRINGS (9, 131) +CHRS (143) +STRINGS (9, 131) +CHRS (143) +STRINGS (9, 131) +CHRS ( 
143) +STRINGS (9, 131) +CHRS (143) +STRINGS (9,131) 

138206 LPRINT CHR$ (18) ; CHRS (27) ; CHRS (16) 3s CHRS (G) 3s CHRS$ (58) s CHRS(255)3;: FOR N=! TO 
4: LPRINT HAS; CHRS (191) 5 HAS; CHR$(255) 53: NEXT N 

13899 RETURN 


00T 
00¢ 
Ooe 
OOF 


15600 ‘esee# Y AXIS WITH S X 7 PERPENDICULAR NUMBERING ##a44 

15016 GOSUB 720080 ‘GET CODE SEQUENCES OF NUMBERS 

15020 LPRINT CHRS (27) 3 CHRS (146) s CHRS (@) 5 CHRS (147) s CHRS (18) 5 N1$3 STRINGS (95, 128) 3N2 
$; STRINGS (93, 128) ;N3%; STRINGS (93, 128) sN4$;CHRE(13)3 ° "1, 2, 3S, 4" (1ST COLUMN O 
F NUMBERS) 

15030 FOR Y=147 TO 447 STEP 100: Y1%=V/256: Y2%=V-256#Y1%: LPRINT CHRS (27) ; CHRS ( 
16) 3 CHRS(Y1%) 3 CHRS (Y2%) s;N@$33 NEXT Y °"O" (2ND COLUMN) 


15035 LPRINT CHR$(13);3 ‘LINE FEED (GRAPHIC) 

1504@ LPRINT CHR$ (27) ;CHRS (16) 3 CHR (O) 3 CHRS (47) sNOSs STRINGS (93, 126) ; NBS; STRINGS ¢ 
93,128) ;N@#; STRINGS (93, 128) ; NOS; STRINGS (93, 128) ; NOS; °*Q”" (3RD COLUMN) 
15068 LPRINT CHRS$ (30) ;CHRS(13)5 ‘LINE FEED (NON-GRAPHIC) 

15078 GOSUB 13800 "Y AXIS WITH HASHMARKS 


15099 RETURN 


FIGURE 8-2. Some of the choices in programming top axes in 
horizontal graphs or Y axes in vertical graphs (TRS-80 codes). 
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want to draw both the axis and its hash marks without a line 
feed between them, a two- or three-dot thickness gives you 
more room to fit in the hash marks. 

Notice that hash marks are positioned directly with a FOR- 
NEXT loop in the first example in figure 8-2, whereas in the 
second case only the bottom mark is positioned directly, and 
the higher ones are positioned by repeating a sequence of 
blank dot columns and a dot pattern. In the last two exam- 
ples, the axis line and hash marks are not drawn in separate 
sweeps of the printhead, but instead they are done by re- 
peating more complex sequences of dot codes. These last two 
are more efficient, but the second method is the fastest and 
quietest, and the first method, while easiest to program, is 
slow and seems to cause the greatest wear and tear on the 
printer. 

The side axis and dashed vertical lines between the bars 
in figure 8-1’s graph are handled by subroutine 2000. The 
programming involved here is nearly identical with that for 
putting hash marks on the top axis, and this is typical for grid 
lines that run parallel to the top axis in a horizontal graph or 
the Y axis in a vertical graph. 

In adapting the BARGRAPH program for Apple printers, 
the same dot code 255 can be used for the bars themselves, 
but nearly all other dot codes will have to be converted and 
different control codes will be needed for line feeds, posi- 
tioning, and graphic reservations (see table 3-1 and 
appendix C). 

For TRS-80-type printers, LPRINT CHR$(30);CHRS$(27); 
CHR$(20);CHRS$(148) replaces the 27+“L’+N1+N2 
sequence for entering graphic mode in the most con- 
densed dot packing. LPRINT CHR$(30);CHRS$(27); 
CHR$(19); needs to be inserted ahead of any printing of 
letters or numbers in standard 10-CPI. For the title at the 
top, this sequence needs to be followed by the control codes 
for entering and exiting the 5-CPI elongated pitch. The 
CHR§(255) dot code for the bar printing will, of course, be 
only seven dots wide instead of eight. 


The 3-D bar style. If our first horizontal bar graph seems 
too much of a Plain Jane for your taste, you can try something 
with a little more flair, like figure 8-3’s creation. Figure 8-3 
shows a 3-D bar graph with some stylish labeling. 
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MUTUAL FUNDS: HIGHEST GAINERS, 1978-83 


Fidelity Magellan 


Lehaan Capital 


Loomis-Sayles C. D. 


20th Century Select 


United Vanguard 


Tudor Fund 


FIGURE 8-3. A 3-D horizontal bar graph from the BARSIN3D 
program for the DMP-400. 


The program for this one is called BARSIN3D (program 8- 
2), written for IBM-Epson printers. It takes several lines just 
to draw a single bar in this program (lines 140-240), but they 
are worth the trouble, and a graph like this can get away with 
having no scaled axis (except perhaps in scientific journals). 
As a result, there is little more to the program than the bar 
drawing. Too bad they’re not all this easy. 

Program 8-3 is a version of BARSIN3D for TRS-80 printers. 


PROGRAM 8-2. BARSIN3D/EPS. “Three-dimensional” 
horizontal bar graph (IBM-Epson). 


1@ °*PROGRAM 8-2: “BARSINSD/EPS" -- THREE-DIMENSIONAL BAR GRAPH PROGRAM 
15 ’Copyright (c) 1985 by John Warner Davenport 

28 ’FOR IBM-EPSON PRINTERS AND TRS-80 COMPUTERS 

3@ CLEAR 500 

46 LPRINT CHRS$(27)°8";5 "MASTER RESET 

58 LPRINT CHRS(27)" 3" CHRS(10) § 710/216" LINE FEED SET 
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18@ LPRINT TAB(8) 3CHRS(27)"!"CHRS(52)$"MUTUAL FUNDS: HIGHEST GAINERS, 1978-83°3C 
HR$(27)°'"CHRS(8)3: GOSUB 298: GOSUB 290 

11@ LPRINT CHRS(13)3 

128 READ N%,X: IF N$S="END" THEN GOTO 278 

130 X1=x-150 

14Q LPRINT CHRS (27) "K" CHR$ (172) CHRS(@) SSTRINGS (21,8) SSTRINGS(3Q, 1) $CHRS(127) $STR 
ING$ (119,64) §CHRS(127) § CHRS(27) "K* CHRS(X1+1) CHR$(@) SSTRINGS(X1+1,1)3 

150 LPRINT CHR$(13)3 

168 L=113-3*LEN(NS): LPRINT POS 5 CHR$ (27) "K* CHRS(L) CHRS(@) SSTRINGS(L,@) 5NS$ 

170 LPRINT CHRS(13)5 

18@ LPRINT CHRS (27) "K* CHRS (172) CHRS(@) sSTRINGS (15,0) § CHRS(3) $ CHR$(7) § CHR$(15) $CH 
RS(31) § CHRS (63) § CHRS (127) STRINGS (30, @) § CHRS( 127) SSTRINGS( 119, 1) $CHRS(127)3C 
HR$ (27) °K" CHRS(X14+1) CHRS(@) SSTRINGS(X1,@) § CHRS(127) 5 

19@ LPRINT CHRS$(13)3 

208 LPRINT CHR$(27)°K* CHR$( 172) CHRS(@) sSTRINGS( 172, @) § CHR$(27) "K" CHRS(X1-31) CHRS 
(@) SSTRINGS(X1-31,0) § CHRS(8) §X$CHRS(G) 3"%" 

21@ LPRINT CHRS(13)3 | 

220 LPRINT CHRS$ (27) "K" CHRS (172) CHRS(@) STRINGS (15,0) STRINGS (4, 127) SSTRINGS(151, 
1) 3 CHRS (27) "K* CHRS(X1+1) CHRS(@) SSTRINGS(X1, 1) $CHRS(127)3 

23@ GOSUB 290: LPRINT CHR$(27)" j"CHRS(11)$CHRS(13)3 

240 LPRINT CHRS (27) "°K" CHR$ (172) CHRS(@) STRINGS (15,8) SSTRINGS( 157, 126) $ CHRS(27) °K 
" CHRS (X1) CHRS (8) SSTRINGS(X1-5, 126) § CHRS (124) § CHRS (120) $ CHRS (112) }CHRS(96) §CH 
R$( 64) § 

258 LPRINT STRING$(3,13)3 *TRIPLE LINE FEED 

260 GOTO 120 

278 END 

288 DATA Fidelity Magellan,387,Amer. Cap. Pace, 249,Lehman Capital ,244,Loomis-Say 
les C. D.»241,20th Century Select,234, Janus Fund, 226,United Vanguard, 214, Tud 
or Fund, 204,END, 999 

298 GRAPHIC (7/72") LINE FEED 

300 LPRINT CHR$(27)"J"CHRS(21)$: RETURN 


PROGRAM 8-3. BARSIN3D/TRS. ‘Three-dimensional’’ 
horizontal bar graph (TRS-80). 


1@ PROGRAM 8-3: “BARSIN3D/TRS" -- 3-D BAR GRAPH PROGRAM FOR TRS-80 PRINTERS 
15 *Copyright (c) 1985 by John Warner Davenport 
20 CLEAR 500 


3Q LPRINT CHRS(3@) § CHRS(27) 5 CHRS(23) 5 "ELITE PRINTING 
4@ LPRINT CHR$(27) 5 CHRS(31) 3 "BOLDFACE PRINTING 
3@ P@S=CHRS (27) +CHRS( 16) +CHRS (8) +CHRS(Q) "CARRIAGE RET. WITHOUT LINE FEED 


6@ LPRINT TAB(14)§CHR$(15)$"MUTUAL FUNDS: HIGHEST GAINERS, 1978-83" $CHR$(14) 

7®@ GOSUB 288: GOSUB 280 

8@ READ N%,X: IF NS="END" THEN GOTO 252 

98 X1=xX-150 

100 LPRINT PQ%; 

118 LPRINT CHRS(18) sSTRINGS (21, 128) sSTRINGS(3Q, 192) § CHR$(255) STRINGS (119, 129) 5C 
HRS (255) SSTRINGS(X1+1, 192) 5 

120 GOSUB 270 

13@ L=1@6-3*LEN(NS)® LPRINT PO$;STRINGS(L, 128) 3 CHRS(3Q) s3NS$ 

148 GOSUB 270 

150 LPRINT PO$$CHR$(18) sSTRINGS(15, 128) 5 CHRS (224) § CHRS (248) § CHRS (248) § CHRS (252) § 
CHR$ (254) § CHR$ (255) sSTRINGS (30, 128) $ CHRS (255) SSTRINGS (119, 192) $CHR$(255) STR 
INGS(X1, 128) § CHR$(255) 5 
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GOSUB 278 

LPRINT POS3STRING$(17@, 128) sSTRINGS(X1~-32, 128) § CHRS (30) §X§ CHRS(8) § CHRS(11) 5° 
hs 

PRINT X, X1, X1-32 

GOSUB 270 

LPRINT P@$3CHRS(18) sSTRINGS(15, 128) SSTRINGS(6, 255) STRINGS (151, 192) sSTRINGS ( 
X1,192) 3 CHRS(255) § 

GOSUB 288 

LPRINT P@$3STRINGS(15, 128) sSTRING$(156, 191) SSTRINGS(X1-5, 191) § CHR( 159) 5 CHRS 
(143) 5 CHRS (135) 5 CHRS( 131) 5 CHRS(129) 5 

GOSUB 28@: GOSUB 280 

GOTO 88 

END 

DATA Fidelity Magellan, 387,Amer. Cap. Pace, 249,Lehman Capital, 244,Loomis-—Say 
les C. D.,241,20th Century Select,234,Janus Fund,226,United Vanguard, 214, Tud 
or Fund, 204,END,999 

FOR Z=1 TO 10: LPRINT CHR$(27)$CHR$(51)55 NEXT Z? RETURN 710/216" L. FEED 
LPRINT CHR$(18)§CHR$(13)5 2 RETURN 77/72" LINE FEED 


FIGURE 8-4. A segmented horizontal bar graph (SEGBARS program for 
the DMP-400). 
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Segmented bars. Next comes the segmented form of hori- 
zontal bar graph. In this form each bar’s full length still rep- 
resents a numerical total, but now the components that make 
up that total are shown in segments of the bar. 

Figure 8-4 indicates some of the possibilities of the seg- 
mented horizontal bar graph. In this baseball example, “total 
bases” is defined just the way it is by the keepers of the 
official major-leaque records—the number of singles plus 
two times the number of doubles plus three times the num- 
ber of triples plus four times the number of home runs. Here 
were displaying a team’s total-bases output in game-by- 
game fashion over the first three weeks of the season. 

The hitting output that came in the form of singles is 
represented in the first (leftmost) segment, followed by the 
segments for doubles (if any) and triples (if any). These seg- 
ments are distinguished from each other graphically by the 
number of horizontal lines that subdivide them. Each home 
run is distinguished by printing the name of the player who 
hit it, inside a four-unit rectangular space. 


PROGRAM 8-4. SEGBARS. Segmented horizontal bar graph. 


10 
i5 


"PROGRAM 8-4: “SEGBARS" -- SEGMENTED HORIZONTAL BAR GRAPH 


"Copyright (c) 1985 by John Warner Davenport 

"FOR TRS-80 COMPUTERS AND PRINTERS 

CLEAR 1880 

PQ@$=CHR$ (18) +CHRS (27) +CHRS( 16) +CHRS(B) "POSITIONING STRING 
BSS=CHR$ (30) +CHRS (8) +CHRS(2)+CHR$(18) "ONE-DOT BACKSPACE 
SP$=CHRS (18) STRINGS (33, 128)+CHRS (38) 733-DOT BLANK SPACE 

LPRINT CHRS(3Q) § CHR$(27) § CHRS(32) § *RESET 

N=9 "SCALE FACTOR 

FOR Z=1 TO 2: LPRINT P@$3CHRS(58) § CHRS(3Q) 3 CHR$(27) §CHR$(14)5"1982 BOSTON RED 


SOX -- OFFENSE" 5 CHR$(27) §CHR$(15)32 NEXT Z 

LPRINT CHRS$(18) §STRINGS(3, 13) 5 "TRIPLE LINE FEED 

LPRINT CHR$(3) § CHRS(27) 3 CHRS(31) § *BOLD PRINTING 

LPRINT P@$§5CHRS(24) § CHRS(3Q) § CHRS(15) §"GAME SCORES" 5 CHRS(14) §PQ$3CHRS(250) $C 
HRS (38) §CHRS(15)3"TOTAL BASES" 3 CHRS( 14) §CHRS(18) SSTRINGS(2,13)3 

LPRINT P@$5CHR$( 128) § CHRS(3@) 5 "0" § CHRS( 18) SSTRINGS (40, 128) 3 CHR$(3Q) $°5" 3 CHRS 
(18) §STRINGS (36, 128) § CHRS (38) § "10" 5SP$5°15" 5SPS5 "20" $SPS5 "25° sSP$5 "30" sSPS3" 
35° § CHRS(13) 5 "NUMBERING OF AXIS 
LPRINT P@$5CHRS( 138) § CHRS(255) 3 

FOR Z=1 TO 7: LPRINT STRINGS(44, 224) 3CHR$(254)52 NEXT Z 

LPRINT CHRS(13);5 

READ 0%,W,X,YsZ,AS "QUTCOME, SINGLES, DOUBLES, TRIPLES, HOMERS, HITTERS 
IF O$="END" THEN PRINT “PLOTTING FINISHED": END 

T=N#W+ZENEX+3ENEY+44NEZ "DEFINITION OF TOTAL BASES 

S=N#W2 D=S+2eNe#X? R=D+3#N#¥: H=R+4eN#Z ’SINGLE, DOUBLE, TRIPLE, HOME RUN 
LPRINT P@$§CHRS( 130) sSTRINGS(T, 136) § "TOP EDGE OF BAR 
LPRINT P@$§CHRS( 138) 5 CHRS(248) sSTRINGS(S, 128) 3BS$ 5 CHRS (248) s STRINGS (D-S, 128) 


238 


240 


2308 
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BS$3 CHRS$ (248) sSTRINGS(R-D, 128) 5 BS$§ CHRS (248) sSTRINGS(H-Ry 152) § BSS § CHRS (248) 
3 CHRS (13) § 

LPRINT CHRS(3Q) §CHRS(27) $CHRS(17) $05 CHRS(27) § CHRS (19) § POS§ CHRS (138) STRINGS 
(R+2, 128) §CHRS (3B) $ CHRS(27) § CHRS (20) §AS§ CHRS (27) § CHRS (19) § CHRS (18) 3 

LPRINT P@$3CHR$( 138) }CHR$(255) sSTRINGS(S, 128) 3 BS$§ CHRS (255) SSTRINGS(D-S, 136) 
*BS$3CHRS$ (255) SSTRINGS(R-D, 193) 3 BS$5 CHRS (255) sSTRINGS(H-R, 128) 3 BS$ 5 CHRS(255) 
3 CHRS (13) § 

LPRINT PQ@$}CHR#(13@) 3 CHRS(143) sSTRINGS(S, 128) $BS$5 CHRS (143) sSTRINGS(D-S, 128) 
*BS$3CHRS( 143) sSTRINGS(R-D, 128) 3 BS$5 CHRS( 143) SSTRINGS(H-R, 14) BSS 5 CHRS (143) 


3 

LPRINT P@$3CHRS( 130) § CHRS(18) SSTRINGS(T, 136) § "BOTTOM EDGE OF BAR 
GOTO 170 

REM -- DATA FORMAT: SCORE (" , "),1B,2B,3B,HR," (NAME) ° 


REM *BOSTON RED SOX, 1982 

DATA "RED SOX 2, @Baltimore 0",3,3,0,0,°° 

DATA " @Baltimore 5, Red Sox 3°,5,8,0,1," YAZ" 
DATA "RED SOX 6, aBaltimore 6",9,1,0,0,°" 

DATA *" White Sox 3, Red Sox 2°,6,2,@,1,° YAZ® 
DATA ° White Sox 5, Red Sox 4",3,1,80,0,°" 

DATA " White Sox 8, Red Sox 4°,18,0,0,1," STAPLTON® 
DATA ®" Blue Jays 2, Red Sox 0",7,0,0,0,°° 

DATA “RED SOX 5, Blue Jays 4°,6,3,1,1," HOFFMAN” 
DATA "RED SOX 4, Blue Jays 3°596,8,151," YAZ" 


(ETC. ) 


As program 8-4 (SEGBARS) shows, this segmented graph 
intermixes bit-image graphic elements with nongraphic char- 
acters, as with the first two graphs. Each bar is printed in four 
printhead passes by lines 210-260. Having the bars this fat 
allows room for printing a player’s name inside a home-run 
rectangle and for spacing the scores of the games so that they 
are easy to read. This time the scale factor (N) is 9 (line 80), 
meaning that for every unit on the total-bases scale there are 
nine dot columns of horizontal space. 

The tricky part of the programming is the segmenting of 
the bars (lines 220-250). Notice the repeated use of one-dot- 
column backspacing with the abbreviation BS$ (defined in 
line 50). This precedes every vertical line that separates one 
segment from another, so that when zero values (of singles, 
doubles, triples, or home runs) occur, a vertical will be 
printed right on top of the preceding vertical instead of being 
one dot column to the right of it. 


Two-way bar graphs. An important type of bar graph is the 
two-way horizontal form, in which bars fan out in both left 


272 GRAPHICS FOR THE DOT-MATRIX PRINTER 


DEFENSE OFFENSE 
OPPONENTS” TOTAL BASES RED SOX TOTAL BASES 
30 25 20 15 10 3 Le) 
C30 
eee ee TIMORE 3 Cs 
_ 
fe Se rk ee | TE 
aa ie 
eee ere ae 
a Se 
[TT 
| TE 
eS ee UE JA 
| nT | ORIOLES 
Se ORIOLES 
[ TORONTO 


OM = NUGINOUHDUON SI PUGUGUENDULOW 
_ 
: 
So 


mA 
© 
=x 
om Rah Pog 
+ +40 
BUDE 
S35! 
ro 


inl 
rv 


FIGURE 8-5. Expansion of figure 8-4’s graph to a two-way horizontal graph 
(TWOWAYBG program for the DMP-400). 


and right directions from a center column. This arrangement 
can be nifty for displaying power balances, interacting 
forces, paired comparisons, and other relationships. 

We could get one example of a two-way bar graph if we 
just took the last one, moved the whole thing to the right, 
and added the Red Sox’ opponents’ total bases, but now with 
singles, doubles, triples, and homers running right to left 
from the (now-centered) list of game scores. Without a 
fifteen-inch printer like the DMP-400 or the FX-100, we’d 
be pretty cramped for space, although scales could be re- 
duced for eight-inch printers. Baseball freaks have been 
known to do hand drawings of such two-way creations for 
whole 162-game seasons. 

A simpler example of a two-way bar graph appears in figure 
8-5. This one shows the same games played by the Boston 
Red Sox as in figure 8-4 and the same total-bases measure 
plotted in the same right-to-left fashion on the right side of 
the list of game scores. How many total bases the Red Sox 
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allowed their opponents in each of these games is shown on 
the left side. The format of the score is changed; the name of 
the opponent is centered in the central column, and on either 
side of the name the runs scored by the opponent (left) and 
the Red Sox (right) are given. This graph was plotted by 
program 8-5, TWOWAYBG. 

This could be called an offense-defense graph. The main 
trick in the programming here is to get that set of defense 
(opponents’) bars located properly. There’s nothing very dif- 
ficult about this, though. Each defensive total (the third item 
in each DATA statement) is simply subtracted from a con- 
stant (TBD, see line 190) value that represents the left edge 
of the central column. This tells the printer where to start 
printing a bar and to keep printing it until the left edge of 
the center column is reached. An offensive bar starts at the 
right edge of the center column and is simply printed accord- 
ing to the offensive total bases for the same game. Thus both 
bars for a game are printed with the printhead moving in its 
usual left-to-right direction, as is the score of the game in the 
center column, without any backspacing. 

Another feature of the TWOWAYBG program highlights 
those few games the Red Sox lost, by having them swap “‘col- 
ors” with their successful opponents (i.e., the black bar goes 
to the winning team, and the empty bar goes to the loser, 
regardless of which team comes out ahead in total bases). In 
lines 220-250 the program decides who won each game (in 
the best possible way, by comparing the runs by the Red Sox 
with their opponents’ runs) and then routes the bit-image dot 
code—CHR$(255)—for shading the defensive or offensive 
bar accordingly. 

To get an idea of some bigger jobs that can be handled by 
horizontal two-way bar graphs, study figure 8-6’s floating 
two-way graph. This form unhooks the bars from a center 
column and lets them “‘float.”’ And instead of standing for a 
single numerical value, each bar represents a total range of 
values. Within that range, a black square shows one selected 
performance that is highlighted. The usual purpose of such 
graphs is to provide a sweeping overview of how a pair of 
statistical measures have varied over a period of history. 

Here is another example of “offense vs. defense,” only 
now we’re measuring offense in terms of runs scored (per 
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PROGRAM 8-5. TWOWAYBG. Bidirectional horizontal bar graph. 


1@ "PROGRAM 8-5: "TWOWAYBG" -- TWO-WAY HORIZONTAL BAR GRAPH 

15 *Copyright (c) 1985 by John Warner Davenport 

28 ’FOR TRS-80 COMPUTERS AND PRINTERS (USE BOOTHE’S DRIVER IF MODEL III) 
38 CLEAR 12800 


4Q@ POS=CHR$(18)+CHRS$ (27) +CHRS(16)+CHRS(Q) "POSITIONING STRING 

30 P1S=CHRS(18)+CHRS$ (27) +CHRS (16) +CHRS(1) : : : 

68 SPS$=CHRS (18) +STRINGS (23, 128)+CHRS(3Q) *23-D0T BLANK SPACE 

7@ LPRINT PQS § CHRS (188) § CHRS (3Q) § CHRS (15) } CHRS (27) § CHRS(14) 5 *DEFENSE" 3CHRS(14)3C 
HRS (27) 5 CHRS(15) 5 


80 LPRINT P1$§CHRS(145) § CHRS (38) § CHRS( 15) § CHRS(27) § CHRS(14) 3 "“OFFENSE® §CHRS(14)5C 
HR$ (27) §CHR$( 15) sSTRINGS(2,13)3 
9@ LPRINT CHR$(27) 3CHRS(31)3 "BOLD PRINTING 
10@ LPRINT PQ@%§CHR$( 70) § CHR$(3Q)$3"OPPONENTS’? TOTAL BASE "5 P1%3 CHRS( 120) $ CHRS(30) 
3"RED SOX TOTAL BASES" sSTRING$(2,13)3 
11@ LPRINT POS § CHRS (35) § CHRS(3Q) §"30" sSPS5 "25" $SP$3"20" sSPS$3"15" sSPHs"10" sCHRSE(1 
8) SSTRINGS (26, 128) § CHRS(3Q) §°5" 5 CHRS(18) sSTRINGS(3Q, 128) $CHR$(3Q) 3° "3 CHRS(1 
8) STRINGS (23, 128) 3 CHRS(3Q) 5 CHRS(15) §*SCORE" $s CHRS(14) 3 
120 LPRINT P1$§CHRS(73) 3CHRS$(3Q) 5" "5 CHRS (18) sSTRINGS (29, 128) 3 CHRS (30) §"°5" s CHRS( 
18) SSTRINGS (26, 128) § CHRS(3B) 5°10" sSPS5 "15" sSPH$s "20" sSPHs "25" sSPH$s "BO" sCHRS(1 
3)5 
130 LPRINT CHR$ (18) STRINGS (48, 128) sSTRINGS(210, 140) SSTRINGS(81, 136) SSTRINGS(210 
9 148)5§ 
148 FOR Y=48 TO 253 STEP 7: LPRINT PQ$;CHRS(Y) $CHR$(143)$: NEXT Y 
15@ FOR Y=331 TO 545 STEP 7: QY=FIX(Y/256)! YY=FIX(Y-256*0Y)! LPRINT CHRS(27)53CH 
RS(16) § CHRS(QY) § CHRS( YY) §CHR$(143) 3:2 NEXT Y 
160 LPRINT CHRS(13)5 "CARRIAGE RETURN, LINE FEED 
170 READ SC$,0F, DF * (SCORE, OFFENSIVE TOTAL BASES, DEFENSIVE TOTAL BASES) 
188 IF SC$="END" THEN END 
19@ OFZ=7*0F2 DFY%=7#DF: TBD=25@-DFY 
200 REM -- PRINTING OF DEFENSE BAR (UNSHADED) AND SCORE 
210 LPRINT POS § CHRS (TBD) § CHRS (255) sSTRINGS(DFZ, 193) §P@S§ CHR$( 25) $CHRS(255) STRI 
NG$(5, 128) § CHRS (38) § CHRS(27) § CHRS (23) §SC$3 CHRS(27) $CHRS(19) $3 
228 B=VAL(RIGHTS$(SC$,2))3 O=VAL(LEFT$(SC$, 2) ) 
230 REM -- NEXT TWO LINES BLACKEN THE BAR OF THE WINNING TEAM 
240 IF B>O THEN LPRINT P1$3CHRS(76) 5STRINGS(OF%, 255) 5 
23@ IF O>B THEN LPRINT P@%3CHRS( TBD) sSTRING$(DF%, 255) § 
268 REM -- PRINTING OF OFFENSE BAR 
27@ LPRINT P1$3}CHRS(75) § CHRS( 255) STRINGS (OFZ, 193) $CHRS(255) § *PRINTING 
OF OFFENSE BAR 
280 LPRINT CHR$(18) § CHRS( 10) § CHR$(27) § CHRS(5@) $ CHR$S (27) § CHRS(5Q) § 79/72" LF 
298 GOTO 170 
3@8 DATA "O BALTIMORE 2°,9,7 
318 DATA "5 BALTIMORE 3°,9,13 
320 DATA "0 BALTIMORE 6°,11,6 
338 DATA "3 WHITE SOX 2",14,12 
540 DATA "5 WHITE SOX 4"°,5,16 
358 DATA "8 WHITE SOX 4",14,22 
368 DATA "2 BLUE JAYS 0°,7,9 
37@ DATA "4 BLUE JAYS 5"°,19,16 
286 DATA "3 BLUE JAYS 4",13,12 


. (ETC. ) 
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FIGURE 8-6. A floating two-way horizontal bar graph. The black squares indicate runs 
scored and runs allowed by the Chicago White Sox from 1901 to 1960. The bars show the 
ranges of the same measures for all American League teams in each year. 


game) and defense by runs allowed (per game) in the history 
of American League baseball from 1901 through 1960. Each 
bar on the right side of the center column indicates the entire 
range of run scoring by all eight teams in the league, and on 
the left side the bars represent the whole range of the teams’ 
performance in holding down their opponents’ run scoring. 
The highlighted team represented by the black squares is 
the Chicago White Sox. 

Except for having much more data to cope with, the pro- 
gram that produced figure 8-6 (not listed) doesn’t differ 
greatly from the last two, and it is even more similar to those 
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for the point-and-range time-series graphs in the next chap- 
ter. 


Vertical Bar Graphs 


Frequency distributions. To educators and social scientists 
there is probably no type of bar graph more familiar than the 
frequency histogram for displaying a frequency distribution. 
That is what we have in figure 8-7, which contains two his- 
tograms that were produced by program 8-6, F REQDIST. 

By definition, a frequency distribution tells us the fre- 
quency of different scores along a measurement scale. So 
Frequency, Relative Frequency (where each frequency has 
been converted to a percentage of the total number of 
scores), or just plain Number of Cases will be the Y-axis 
label, and Score Values or Score Intervals (where scores have 
been grouped into narrow class intervals) will be the X-axis 
label. Program 8-6 takes a small or large number of scores in 
the range of 0 to 100, sorts them into ten-unit intervals (1-10, 
11-20, ... 91-100), and when all scores have been sorted, 
the number falling into each interval is counted. These pro- 


FIGURE 8-7. A simple vertical bar graph, the frequency 
histogram, shown here in two different styles. Both examples 
were produced by the FREQDIST program for the DMP-400. 
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cesses are displayed on the computer's screen before any 
printing begins. 

After the printing of the Y-axis label, NUMBER OF 
SCORES in this case, some homemade perpendicular num- 
bers ranging from 0 to 50 are used to number the scale of the 
Y axis (subroutine 2000). Then the Y axis itself is printed 
(subroutines 5000 and 6000), with hash marks every five 
units on the frequency scale. The program goes on to start 
the X axes, top and bottom, which are lined up with the 50 
and 0 points on the Y-axis scale (lines 5030 and 190). 


PROGRAM 8-6. FREQDIST. Vertical bar graph (frequency 
histogram). 


10 ’PROGRAM 8-6: "FREQDIST*® -- FREQUENCY DISTRIBUTION (HISTOGRAM) 

15 ’Copyright (c) 1985 by John Warner Davenport 

20 ’FOR TRS-80 COMPUTERS AND PRINTERS (USE BOOTHE’S DRIVER IF MODEL III) 

3@ CLEAR 1000 

40 BARS=CHR$(128)+CHR$(255): T=128 >(FOR SOLID BARS, CHANGE BARS TO ’ CHARS$(255 
)+CHR$(255)’53 T = BLANK SPACE) 

5@ P$=CHRS (27) +CHRS( 16) "POSITIONING STRING 

6@ PO@S=CHRS$ (27 )+CHRS(16)+CHRS( 8) : . 7 

70 FOR N=1 TO 2: LPRINT CHR$(30) $CHRS(27) § CHRS( 19) § CHRS(27) § CHRS( 32) 5 PS§ CHRS(1)5 
CHR$ (20) 3 CHRS (27) § CHRS (14) § CHR$(27) 5 CHRS(17) §"NUMBER OF SCORES" 3 CHR$(27) $ CHR 
$(19) §CHRS(27) §CHRS(15)52 NEXT N 


88 LPRINT CHR$(27) §5CHRS(31) § "BOLD PRINTING 
98 GOSUB 98000: GOSUB 8@@0: GOSUB 8@@0 ‘TRIPLE LINE FEED 
10@ UL=600: GOSUB 2010 "Y-AXIS NUMBERING 


11@ GOSUB 8882 
12@ LPRINT CHR$(27) $CHR$(5Q) 3 CHR$(27)$CHRS(50)§ 72/72" LINE FEED 


130 A=4: B=2: C=1 "SPACING OF AXES & BARS, BAR WIDTH 

148 GOSUB 1038 "FOR VALUES OF QU, UU 

15@ GOSUB 6010 "FOR Y-AXIS 

16@ GOSUB 5018 "FOR Y-AXIS HASHMARKS 

170 FOR X=1 TO A 

180 LPRINT CHR$(3@) 5 CHRS(27) § CHRS (32) § "END BOLD PRINTING 

19@ FOR Y=99 TO UL STEP UL-99: GOSUB 1018 : LPRINT P$5CHRS(QY) §CHRS(YY) §CHRS(18) 
sSTRINGS(2,255)35 NEXT Y 7BLANK X-AXIS SPACING 

280 GOSUB 8000 

210 NEXT X 


22@ READ L3,M 

230 IF L$="END* THEN GOTO 370 

248 GOSUB 3088 7PRINT LEFT EDGE OF BAR 

250 FOR W=1 TO B 

268 GOSUB 1028 : LPRINT CHR$(18) 5PQ$3CHRS$(99) ;STRINGS(2,255)52 FOR Z=1 TO S#Me L 
PRINT BARS3: NEXT Z: LPRINT P%3CHRS(QM) sCHRS(MM) § CHRS(T) §P$§ CHRS (QU) § CHRS (UU 
) SSTRINGS(2, 255) § CHRS (13) 5 *PRINT LEFT HALF OF BAR 

278 NEXT W 

280 PRINT L,M,QM,MM 

290 LPRINT CHR$(3Q) §TAB(9) § CHRS(27) 3 CHRS(2@) § CHR$(27) § CHRS( 14) §L $5 CHRS (27) § CHRS ( 
15) §CHRS(27) 5 CHRS(19) 5 
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LPRINT CHRS(18) §POS§5 CHRS( 96) STRINGS (4, 136) 3 


FOR W=1 TO B+i: LPRINT P@S§$CHR$(99) ;STRINGS(2,255)3: FOR Z=1 TO 5*#M: LPRINT 
BARS3? NEXT Z: LPRINT P$§CHRS(QM) 3 CHRS(MM) 5 CHRS(T) 5P$3 CHRS(QU) § CHRS(UU) sSTRI 
NG$ (2,255) §CHRS(13)32 NEXT W "PRINT RIGHT HALF OF BAR 

GOSUB 42880 "PRINT RIGHT EDGE OF BAR 

FOR Z=1 TO C+1 

LPRINT P@$5CHRS(99) SSTRINGS(2, 255) §P%§ CHRS (QU) § CHRS(UU) STRINGS (2, 255) § CHRS( 
13) 5 *X-AXIS SPACE BETWEEN BARS 

NEXT Z 

GOTO 220 


FOR X=1 TO A: GOSUB 1030 : LPRINT CHR$(18) 3 PQ%3CHRS(99) SSTRINGS(2, 255) §P$3CH 
RS (QU) § CHRS (UU) SSTRINGS (2, 255) sCHR$(13)$2 NEXT X 


GOSUB 7880 
FOR Y=280 TO UL-1008 STEP 180: GOSUB 1012 : LPRINT P%$CHRS(QY) §CHRS(YY) 3 CHRS( 
18) §CHR$(143)55 NEXT Y *LONG HASHMARKS 
FOR Y=15@ TO UL-5@ STEP 100: GOSUB 1010 : LPRINT PS$CHRS(QY) $CHRS(YY) §CHRS(1 
8) 5CHR$(140)5=2 NEXT Y "SHORT HASHMARKS 
LPRINT P@%§3CHRS(99) SSTRINGS (2, 191) 3 P%3 CHRS (QU) § CHRS(UU) STRINGS (2,191) § 
"END OF X-AXES (BOTTOM & TOP) 
END 
DATA " 1-10",5.68 
DATA * 11-20"°, 12.137 
DATA * 21-30",18.54 
DATA " 31-40", 29.08 
DATA ° 41-50°,27.66 
DATA * 51-60", 44.25 


DATA ° 61-70°,39.73 
DATA * 71-80", 31.47 
DATA " 81-90°,21.88 
DATA 91-100, 18.76 
DATA END, -99 


998 END 

100Q ° exeeeHHHEHHE CONVERSIONS #2444408 e HEHE 

1010 QY=FIX(Y/256): YY=FIX(Y-256*QY): RETURN 

1020 QM=FIX( (10#M+100)/256): MM=FIX( (10%#M+1@0)-2546#QM): RETURN 

103@ QU=FIX(UL/256)  UU=FIX(UL-256*QU): RETURN 

2000 "HeeeRHHHHHHK Y-AXIS, NUMBERING 4228422 HHK 

2010 N1S=CHRS(156)+STRINGS (4, 136)+CHRS( 140) +CHRS( 136) LPRINT CHR$(18) $PO$3CHRS( 


197) 5N1$5 be 


2820 LPRINT CHRS (18) $P$}CHRS(1) $CHR$(41) §CHRS (190) § CHRS (130) ¢CHR$(132) $CHRS(152) 


5 CHRS (168) § CHRS (1452) § CHRS( 156) 3 ee 


2038 LPRINT CHRS(18)§PS3CHRS(1) $3 CHRS( 141) § CHRS( 154) 3 CHRS( 162) $CHRS( 168) §CHRS(152 


) 3 CHRS (1468) § CHRS (1462) 5 CHRS( 156) § ae 


2040 LPRINT CHRS(18) 5P%§ CHRS(1) § CHRS(241) § CHRS( 144) § CHRS(144) 3 CHRS( 198) 3 CHRS(148 


) 3 CHRS (152) § CHRS(144) §CHRS(144) 5 74" 


2050 LPRINT CHR$(18) §P$§CHRS(2) § CHRS(85) | CHRS( 156) § CHRS( 162) § CHRS(16@) §CHRS(160) 


3 CHRS$ (158) § CHRS (130) § CHRS( 190) $ ie 


2060 LPRINT CHR$(18) §CHRS(10) 3 "LINE FEED 
2078 FOR Y=97 TO UL-3 STEP 100: GOSUB 101@ : LPRINT CHR$(18) $P$3CHRS(QY) $CHRS(YY 


)§ CHR (156) § CHRS (28) § CHRS(5) § CHR$(162) }CHR$(156) 32 NEXT Y **o" 


2088 RETURN 

5000 *HeeHHHKHE PRINTING OF BAR’S LEFT EDGE *#xxxxx20K% 
3010 LPRINT CHRS(18) 5 P@$5CHRS( 100) 3 

3828 FOR Z=1 TO 10*M: LPRINT CHR$(129)3: NEXT Z 
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RETURN 

eeeeeeeee PRINTING OF BAR’S RIGHT EDGE ###4##HHHX 

LPRINT CHR$(3@) 3 CHRS (20) § CHRS(27) 3 CHRS(3Q) § CHRS (27) § CHRS (30) § CHRS(19) 32 FOR 
V=1 TO 5: LPRINT CHR$(27) 3 CHRS(5@0)55 NEXT V 77/72" REVERSE FEED 
LPRINT CHRS(18) 3P@$5 CHRS (180) 5 

FOR Z=1 TO 10*#M: LPRINT CHR$(192)5: NEXT Z 

RETURN 

7 HHKEHHREHHHE Y-AXIS HASHMARKS #HHHHH EHH EEH 


FOR Y=200 TO UL-1@@ STEP 1@@: GOSUB 1010 : LPRINT P$sCHR&(QY) 5 CHRS(YY) 5 CHR 
$(18) §CHR$(248)55 NEXT Y *LONG HASHMARKS 

FOR Y=15@ TO UL-5@ STEP 100: GOSUB 1010 : LPRINT P$3CHRS(QY) 5 CHRS(YY) 5 CHRS( 
18) ;CHR$(152)55 NEXT Y *SHORT HASHMARKS 

FOR Y=UL TO 99 STEP -(UL-99): GOSUB 1010 = LPRINT P$sCHRS(QY) §CHRS(YY) § CHRS 
(18) § CHRS(254) §CHRS(254)55 NEXT Y "BEGINNING OF X-AXES (BOTTOM & TOP) 
GOSUB 8800 

RETURN 

HHEHHHHHHKREE LEFT Y AXIS #4 XHHHHHERHERE 


LPRINT CHRS(18) 3PO$5 CHRS(99) SSTRINGS (201, 134) SSTRINGS (180, 134) SSTRINGS (200, 
134)§% RETURN 
7 HHHEHHHHHEREE RIGHT Y AXIS #HHHHEREEEEHHH 


LPRINT CHRS(18) §PO$3CHRS(99) 5STRINGS (201,176) sSTRINGS (100, 176) sSTRINGS (200, 
176)§% RETURN 
LPRINT CHRS$(18) §CHR$(13)53 RETURN "GRAPHIC LINE FEED 


The amount of blank X-axis space between the left Y axis 
and the first bar is controlled by the value of A in line 130. 
That same line sets the width of the bars (B) and the spacing 
between the bars (C). The plotting of each bar is done in a 
number of printhead sweeps that is equal to B (lines 250-— 
320 and subroutines 3000 and 4000). 

Built-in (upright) numbers are used for numbering the 
score intervals (1-10, 11-20, etc.), but this is the easy way 
out of the X-axis labeling problem. Purists may object to 
numbers lying at right angles to the X axis, even though this 
is commonly done with frequency histograms drawn by 
hand. Some later graphs and figure 1-3 (chapter 1) show more 
professional-looking alternatives for numbering and labeling 
the X axis. 


Means with standard errors. Next comes a familiar favorite 
in the scientific journals—the mean-and-standard-error bar 
graph. For this one, we have program 8-7 (MSEGRAPH) and 
figure 8-8 for its printout. Now, instead of displaying fre- 
quencies (on Y) of score values (on X), we have a perfor- 
mance measure of some sort on the Y axis and two or more 
groups of performers (patients, rats, student volunteers, etc.) 
identified along the X axis. The lengths of the bars tell how 
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the groups have come out in their mean (arithmetic average) 
performances. 

Above and below the top of each bar, vertical lines give 
the size of the standard error associated with the group’s 
mean performance value. A standard error’s size varies with 


FIGURE 8-8. The mean-and-standard-error bar graph, widely 
used in scientific journals (MSEGRAPH program for the DMP- 
400). 
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both the amount of variation across individuals’ scores within 
a group and the size of the group (number of scores); the 
smaller the variation and the larger the group, the smaller 
the standard error will be. 


PROGRAM 8-7. MSEGRAPH. Mean-and-standard-error bar graph. 


1@ "PROGRAM 8-7: "MSEGRAPH" -- BAR GRAPH OF MEANS & STANDARD ERRORS 

15 ’Copyright (c) 1985 by John Warner Davenport 

2@ ’FOR TRS-80 COMPUTERS AND PRINTER (USE BOOTHE’S DRIVER IF MODEL III) 
32 CLEAR 1080 


40 GOSUB 88028 "MEMORIZE NUMBER STRINGS 
38 PS$=CHR$ (18) +CHRS(27)+CHRS( 14) "POSITIONING STRINGS 
6@ P@S=CHRS(18)+CHRS (27) +CHRS(16)+CHRS (8) "(LINES 50-180) 


7@ P1S=CHRS (18) +CHRS (27) +CHRS(16)+CHRS(1) 

88 P2S=CHRS$ (18) +CHRS (27) +CHRS (16)+CHRS(2) 

98 P3$=CHRS (18) +CHRS (27) +CHRS (16) +CHRS(3) 

100 PX$=CHR$( 18) +CHRS (27) +CHRS(16)+CHRS(B) +CHRS (100) 

11@ UL=7@0: A=6: B=3: C=4 >UPPER LIMIT OF Y, SPACING OF BARS 

12@ T$="NUMBER OF ERRORS" 

13@ Y=330-LEN(T$): GOSUB 680 

140 FOR Z=1 TO 2 "LABELING OF Y AXIS 

15@ LPRINT CHRS(3@) 5 CHRS(27) 3 CHRS (32) § CHRS (27) § CHRS( 19) § CHRS(27) § CHRS( 146) 3 CHRS(Q 
Y) 5 CHRS (YY) 5 CHRS(27) § CHRS (14) § CHRE(27) § CHRS(17)$"NUMBER OF ERRORS® 5 CHRS$(27) 5 


CHRS (19) § CHRS (27) §CHRS(15) § 


16@ NEXT 2 

178 LPRINT CHRS$(18) 

188 LPRINT CHRS(3@) 3 CHRS (27) § CHRS (31) § "BOLD PRINTING 

19@ GOSUB 1000 "Y-AXIS NUMBERING 
282 GOSUB 6028 77/72" LINE FEED 

218 LPRINT CHRS(27) 3 CHRS(5@Q) 3 CHRS(27) § CHRS(5Q) § "2/72" LINE FEED 

220 REM -- PLOTTING OF Y AXIS 

238 GOSUB 698 "FOR VALUES OF QU, UU 
240 GOSUB 4000 "FOR Y AXIS 

238 GOSUB 3010 "FOR Y-AXIS HASHMARKS 
268 FOR Z=1 TO A GOSUB 4698: GOSUB 4050: NEXT Z "X-AXIS SEGMENTS 

278 READ L$,M,SE "READ LABEL, MEAN, STANDARD ERROR 

280 IF L$="END" THEN GOTO 390 

290 GOSUB 2000 "PRINTING OF BAR’S LEFT SIDE 
3@8 GOSUB 630 

318 FOR W=1 TO B: GOSUB 2030: NEXT W "PRINTING OF BAR TOP 


320 GOSUB 5@@8: GOSUB 660: LPRINT PS%5;CHR$(QS) 5 CHRS(SS) 3 CHRS( 255) sSTRINGS(2#SE, 1 
36) 53 CHRS (255) § "PRINT OF STANDARD ERROR VERTICAL 
J3@ FOR W=1 TO Bti:? GOSUB 2030: NEXT W ’PRINTING OF BAR TOP 


348 GOSUB 2000 "PRINTING OF BAR’S RIGHT SIDE 
358 FOR Z=1 TO C 

368 GOSUB 698: GOSUB 48508 "X-AXIS SPACE BETWEEN BARS 
378 NEXT Z 


388 GOTO 278 

390 FOR Z=1 TO 22 GOSUB 4698: GOSUB 4@5@: NEXT Z 

408 GOSUB 4030: GOSUB 3068 

410 END 

3OQ *xeeHHKHHHH DATA (LABEL, MEAN, STANDARD ERROR) #%#%#HHHH% 
310 DATA CONTROL-HIGH, 108, 33 
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520 DATA CONTROL-LOW, 109, 36 

53@ DATA EXPERIMENTAL-HIGH, 284, 48 
54@ DATA EXPERIMENTAL-LOW, 543, 42 
358 DATA END,-1,-1 


7##HHHHHE POSITION CONVERSION FOR Y #88 #kHHHHH 


610 QY=FIX(Y/256): YY=FIX(Y-256#QY ) 
620 RETURN 


7eeeeeHe POSITION CONVERSION FOR M (MEAN) #48 Hee 


640 QM=FIX((M+1@@0)/256) 5 MM=FIX( (M+180)-256*QM) 


690 


RETURN 
7"#eeeeeE POSITION CONVERSION FOR V (M-SE) ##eeenne 


=M-SEs QS=FIX((V+10@)/256): SS=FIX((V+100)—-256*QS) 


RETURN 
7x44" POSITION CONVERSION FOR UL (UPPER LIMIT OF Y AXIS) *#%* 


788 QU=FIX(UL/256): UU=FIX(UL-256*QU) 
718 RETURN 


1020 
1010 
1020 
1030 
1040 
10508 
1068 


> HHEKKEHHHEHEHE NUMBERING OF Y AXIS 4H HHHHHEHHEREE 

LPRINT P@%$5CHRS( 197) 5N1$5 eve 

LPRINT P1%5CHRS (41) §N2$5 me?" 

LPRINT P13 3CHRS(141) §N3$5 gear 

LPRINT P1$ 3 CHRS$(241) §N4$5 7"4" 

IF UL<5@0 THEN GOTO 18090 

LPRINT P25 CHRS$(85) 5N5$5 se be 

IF UL<68@ THEN GOTO 1090 

LPRINT P2%5CHRS( 185) §N6$5 786° 

LPRINT CHR$(10)5 

FOR Y=197 TO UL-3 STEP 180: GOSUB 6@0 : LPRINT PS%#53CHRS(QY) 5 CHRS( YY) 5NQS$§: 
NEXT Y: GOSUB 6020 7"@° 

FOR Y=97 TO UL-3 STEP 10@: GOSUB 600 : LPRINT PS%3CHRS(QY) §CHRS(YY) SNQS$5 5 
EXT Y: GOSUB 6020 7*#Q° 

RETURN 

> HHEKHEKEHHEH PRINTING OF BAR SIDES 44444 HEHHRHER 

LPRINT PX$3:2 FOR Z=1 TO M+1: LPRINT CHR#(131)32 NEXT Z 

RETURN 

> HHEKEHHKHERE PRINTING OF BAR TOPS 4#XXHHHHEHRHEHE 

LPRINT PS$$CHRS(QM) 3 CHRS (MM) § CHRS (30) 5 CHRS(8) § CHRS(2) § CHRS(18) SSTRINGS(2, 25 
3)§ 

GOSUB 4850 

RETURN 

> HEKHHHHKERERE Y-AXIS HAGHMARKS 444444 HEHHEH 

FOR Y=20@ TO UL-100 STEP 180: GOSUB 4@@: LPRINT PS%$§3CHRS(QY) § CHRS(YY) 5 CHRS 
(248)5: NEXT Y 7LONG HASHMARKS 

FOR Y=15@ TO UL-5@ STEP 100: GOSUB 46@@: LPRINT PS$ $CHRS(QY) §CHRS(YY) 5 CHRS(1 
52)3: NEXT Y >SHORT HASHMARKS 

FOR Y=UL TO 99 STEP -(UL-99): GOSUB 680: LPRINT PS%$3CHRS(QY) §CHRS(YY) SSTRIN 
G$(2,254)5: NEXT Y *BEGINNING OF X-AXES (BOTTOM & TOP) 

GOSUB 6020 

RETURN 

FOR Y=2@@ TO UL-100 STEP 100: GOSUB 600: LPRINT PS$§CHRS(QY) §CHRS(YY) 5 CHRS( 
143)5: NEXT Y 7LONG HASHMARKS 

FOR Y=15@ TO UL-5@ STEP 100: GOSUB 600 : LPRINT PS%3CHRS(QY) 5 CHRS(YY) § CHRS( 
140)3: NEXT Y *SHORT HASHMARKS 

LPRINT P@%3CHR$(99) STRINGS (2, 191) $PS$3 CHRS (QU) 5 CHRS( UU) sSTRINGS (2,191) 
RETURN 


4800 
4018 
4020 
4030 
4040 
4050 
4060 


4078 
3886 
5018 
3028 
58368 
5048 


5058 
3868 
3878 


3888 
5898 
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> HEEEHHREEEEKEEEERE Y AXES HEHE HEERHEREEEE 

LPRINT PX$3: FOR Y=1@@ TO UL! LPRINT CHR$(134)3: NEXT Y 

RETURN | 

LPRINT PX$$: FOR Y=1@@ TO UL: LPRINT CHR$(176)3: NEXT Y 

RETURN 

” eeeeHKHRHH X-AXIS SEGMENTS (LOWER & UPPER) #804884 

LPRINT P@$$CHRS(99) sSTRINGS (2, 255) $PS$3 CHRS(QU) 3 CHR$(UU) sSTRING$ (2, 255) $CHR 


$(18);5 

RETURN 

HeREHHHHHHHHE LABELING OF X AXIS #HHHHHHHHHREHH 
GOSUB 7800 "GET CAPITAL LETTER STRINGS 


LPRINT CHRS( 38) § CHRS( 20) § CHRS (27) § CHRS (30) § CHRS (27) § CHRS (38) § CHRS(19) § 
PL$=CHRS (13) +CHRS (27 ) +CHRS (50) +PBS+CHRS (8B) 

IF L$="CONTROL-LOW" THEN LPRINT PO%3CHRS(8Q)5CCS$5PLSSHYS$PL$5CL$$3: GOSUB 60 
18 lied ac, 

IF L$="CONTROL-HIGH" THEN LPRINT P@$5CHRS(8Q@) 5CCS§PLSSHYS5PL%5CH$§ 2 GOSUB 6 
010 7" C-H" 

IF L$="EXPERIMENTAL-LOW" THEN LPRINT P@$3;CHRS(8O) 5CES$3PLS5HY$$PL$5CLS$5: GOS 


UB 6018 *SE-L* 
IF L$="EXPERIMENTAL-HIGH" THEN LPRINT PO@$3CHRS(8@) 5CES5 PLS SHYS§PL$5CHS5: GO 
SUB 60128 aed Ww 


FOR Z=1 TO 3: LPRINT CHR$(27)§CHRS(5@)55 NEXT Z 

LPRINT CHRS(30) 5 CHRS (20) 5 CHRS (27) § CHRS (38) § CHRS (27) § CHRS( 3@) § CHRS (27) § CHRS ( 
38) § CHRS (19) § 

RETURN 

FHEEREHREERREREERREHHEHERS LINE FEEDS 44 GRR HEE EREEERRREREERRERHHEN 

LPRINT CHRS$(3Q) 3 CHRS (20) § CHRS(27) § CHRS (56) § CHRS(19)55 RETURN 

LPRINT CHRS(18)§CHRS(1@)5= RETURN 

*##e# BOLDFACE CAPITAL LETTERS FOR X-AXIS LABELING #### 

CCS$=CHRS (18) +CHRS (198) +CHRS (255 ) +CHRS (227) +STRINGS (4, 131) +CHRS (227) +CHRS(25 
3)+CHR$(199) 8 7 "C" 

CES=CHRS$ (18) +STRINGS (2, 255) +STRING$ (2, 131) +STRINGS (2, 159) +STRINGS (2, 131)+5T 
RING$(2, 255) 5 a 

CHS=CHRS$ (18) +STRINGS (4, 227) +STRINGS (2,255) +STRINGS(4,227) *"H" 

CL$=CHR$ (18) +STRINGS (2, 255 )+STRINGS(8, 131) aa 

HYS=CHRS$ (18) +STRINGS (3, 128) +STRINGS (3, 198)+STRINGS(4,128) *HYPHEN 

RETURN 

*eeeee 5 X 11 CONDENSED NUMBERS FOR Y-AXIS NUMBERING *#%4% 

CD$=CHRS ( 30) +CHRS (27) +CHRS (20) +CHRS(18) 5 NMS=CHRS (38) +CHRS (27) +CHRS(19)+CHR 
$(18) 

N1$=CD$+CHRS$ (156) +STRINGS(7, 136) +CHRS( 148) +STRINGS (2, 136) +NMS 

N2$=CDS+CHR$ (198) +STRINGS (2, 130) +CHRS( 132) +CHRS (136) +CHRS (144)+STRINGS(2,16 
O) +STRINGS (2, 162) +CHRS (156) +NMS 

N3$=CD$+CHRS (156) +STRINGS (2, 162) +CHRS( 168) +CHRS( 144) +CHRS (156) +CHRS (144) +CH 
R$ (160) +STRINGS (2, 162) +CHRS (156) +NMS 

N4$=CDS+STRINGS (4, 144) +CHRS (198) +CHRS (146) +CHRS (148) +CHRS (152)+STRINGS(3, 14 
4) +NM$ 

N5$=CDS+CHRS (156) +STRINGS( 2, 162) +STRINGS (3, 16@)+CHRS( 158) +STRINGS (3, 130)+CH 
R$ (198) +NMS 

N6$=CD$+CHR$ (156) +STRINGS (4, 162) +CHRS (158) +STRINGS (2, 130) +STRINGS (2, 162)+CH 
R$ (156) +NM$ 

N@S=CDS+CHRS(156)+STRINGS (9, 162) +CHRS (156) +NMS 

HMS=CD$+ST RINGS (4, 128)+STRINGS(3, 198) +STRINGS (4, 128) +NMS 

RETURN 
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The main reason for wanting to know the standard errors 
of means as well as the means themselves is to be better able 
to judge whether differences among groups’ means could 
have occurred by chance. If the standard errors above and 
below one group's mean show no overlap with another 
group's mean, plus or minus one standard error, then it is 
quite unlikely that the difference between the groups’ means 
arose from mere chance variations, and we are justified in 
saying that the groups are really different in their perfor- 
mances as a result of different abilities, other characteristics, 
or experimental treatments they have received. In the case 
of the groups in figure 8-7, the standard errors in general are 
small enough to permit us to conclude that both experimen- 
tal (E-H and E-L) groups made significantly more errors than 
both control (C-H and C-L) groups, and one of the experi- 
mental groups (E-H) scored significantly better (made fewer 
errors) than the other (E-L). 

Compared to the FREQDIST program (program 8-6), the 
main new element in the MSEGRAPH program is the draw- 
ing of the standard-error verticals. The arithmetic for calcu- 
lating the dot-column positions of these verticals is done in 
subroutine 660, and the commands for the drawing of the 
verticals are in line 320, halfway through the drawing of each 
bar. 

The hard part is the labeling of the axes. Over a third of 
the program (subroutines 690, 1000, 3000, 4000, and 8000) is 
concerned with the Y axis, and a fifth of the program (subrou- 
tines 5000 and 7000) is devoted to the X-axis labeling. These 
X-axis subroutines are called (in line 320) every time the 
plotting reaches the midpoint of a bar. For each label, seven- 
by-ten bold perpendicular capital letters (C, E, H, and L) and 
a hyphen (HY$) are defined in subroutine 7000 and printed 
by subroutine 5000. The printing is done as in the 
WRDCRAFT program for spelling of perpendiculars (pro- 
gram 7-2), with each character in the label requiring a posi- 
tioning code and line feed. But now, in order to get the label 
in the proper position on the graph, its printing has to be 
preceded and followed by reverse line feeds (these are com- 
manded in lines 5020 and 5090). 

Variations of the MSEGRAPH program can provide 
grouped vertical bar graphs, such as the one in chapter 1 
(figure 1-3). With bars in clusters, there is more need for 
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visual contrasts in the bars. White, 50% shaded, and black 
bars make for a good contrast in groups of three, and other 
kinds of shading can be used for larger groups. For white 
(unfilled) bars, the drawing would proceed the same as for 
all bars in the FREQDIST and original MSEGRAPH pro- 
gram. For shaded bars, the space between the lower X axis 
and the top of the bar would have to be “painted”’ in a series 
of printhead passes for the whole width of the bar, in combi- 
nation with the usual printing of the bar’s top and the X axes. 
Shading patterns inside FOR-NEXT loops, like those in the 
examples of “statistical tapes” (figure 6-2), can be used for 
the bar painting. 

Standard errors can still be displayed as usual for white 
and shaded bars. For black bars, showing the “‘—1 standard 
error (below the top of the bar) merely involves a black- 
white reversal in the printing of the middle part of the bar. 
On the printhead sweep that prints the standard error verti- 
cals, the program line changes from 


320 GOSUB S000: GOSUB &b0: LPRINT PS$; 
CHRS$(QS);CHRS$(SS);CHRS$(25S); 
STRINGS (2*SE,136);CHRS$(255); 


to 


3ce0 GOSUB S000: GOSUB bLbO: LPRINT PX$; 

Jee FOR N=] TO V: LPRINT CHRS$(255);: NEXT N 

324 LPRINT CHRS$(128); "BLANK 

Jeb FOR N=) TO SE-1: LPRINT CHRS(247);: 
NEXT N 

32& FOR N=1 TO SE-1: LPRINT CHRS$(13b);: 
NEXT N 

324 LPRINT CHRS(25SS); 


The important thing to grasp here is that the lower half of 
the standard-error vertical is printed by CHR$(247), whose 
dot pattern consists of three dots, a blank, and three more 
dots. In combination with line 324’s CHR$(128) and the pre- 
ceding and following print lines printed all black, this yields 
a white-on-black vertical from the top of the bar down to the 
— 1 SE point. 
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The labeling of the grouped bar graph in figure 1-3 in- 
volved not only labels on the X axis under each bar (A, B, C, 
and D, repeated over the groups of bars) but, underneath 
those, labels (Before, During, and After) for the groupings as 
well. The former were positioned in the same fashion as the 
bar labels in figure 8-8, except that no reverse line feeds were 
needed because each letter could be printed in a single pass 
of the printhead. The latter were printed by interrupting the 
plotting of the graph at the midpoint of each group of bars 
instead of the midpoint of each bar. With four bars in each 
grouping, this meant interrupting between the second and 
third bars of each group, and (as in figure 8-8) having reverse 
line feeds occur before and after the printing of each of three 


labels. 


Vertical floating-bar graphs. The bars in vertical floating- 
bar graphs are not anchored to the X axis of any other hori- 
zontal reference line. They are free to “hang in midair’ in 
order to represent the highest and lowest values of any mea- 
sure, and thereby also show the range of values. For a simple 
example, see figure 8-9’s weather graph, which shows the 
daily high and low temperatures for a month in Madison, 
Wisconsin. This graph differs from the one appearing every 
month in Madison’s Wisconsin State Journal only in the kind 
of shading or stippling that fills each bar and the amount of 
verbiage between the Y axes. 

The TEMPBARS program that produced it (program 8-8) 
is similar to programs for anchored bars except for starting 
the printing of a bar above the X axis, at the level correspond- 
ing to each “lowest” value on the Y axis, instead of starting 
at the X axis itself. The positioning of each bar is more like 
the positioning of the standard-error verticals than the posi- 
tioning of the bars in the MSEGRAPH examples. The shad- 
ing of the bars is done by repetition of two spaced-dot codes, 
CHR$(213) and CHR$(170). 

We also have here another example of different labeling of 
the left and right Y axes. Besides the different numbering of 
the Fahrenheit and centigrade scales, the lettering for the 
latter (DEGREES CENTIGRADE) uses homemade upside- 
down characters (subroutine 8000) which have to be spelled 
backwards (see line 8130). 
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FIGURE 8-9. A vertical floating-bar graph (TEMPBARS 
program for the DMP-400). 


PROGRAM 8-8. TEMPBARS. Floating vertical bar graph. 


10 *PROGRAM 8-8: "TEMPBARS" -- FLOATING BAR GRAPH -- DAILY TEMPERATURE RANGES 

15 *Copyright (c) 1985 by John Warner Davenport 

2@ ’FOR TRS-80 COMPUTERS AND PRINTERS (USE BOOTHE’S DRIVER WITH MODEL III) 

3@ CLEAR 2000 

160 RLFS=CHRS (30) +CHRS (20) +CHRS (27 ) +CHRS ( 30) +CHRS (27 ) +CHRS (30) +CHRS (27) +CHR$ (56) 
+CHRS$(19) 73/72" REVERSE LINE FEED 

110 FFDS=CHRS (38) +CHRS (20) +CHRS (27 ) +CHRS( 28) +CHR$(19) 76/72" FORWARD LF 

120 LL$="TEMPERATURE RANGE (DEGREES FAHRENHEIT)“ 


138 
148 
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XBS=CHR$ (27 ) +CHRS (16) +CHRS (8) +CHRS (59) +STRINGS (2, 255) "BOTTOM X AXIS 


XT$=CHR$ (27) +CHRS (16) +CHRS (1 )+CHRS(283)+STRINGS(2,255) "TOP X AXIS 

FLS=CHR$ (27 )+CHRS( 16) +CHRS (0) +CHRS (188) +CHRS (156) "FREEZING LINE 
$51$=STRING$(33, 128) *33-DOT BLANK 
XS$=XBS+STRINGS (3, 136) +FL$+CHRS (27 ) +CHRS (16) +CHRS (1) +CHRS (200) +STRINGS (3, 136 
)+XTS : *HASHMARKS 

PD$=CHR$ (27) +CHRS(16)+CHRS (8) +CHRS (40) 740th DOT-COLUMN 

FOR N=1 TO 2: LPRINT CHRS(3@) §CHRS(27) 5 CHRS(19) 5 CHRS(27) § CHRS (32) § CHRS(27) §5C 


HRS (16) § CHRE(O) § CHRS (220-4*#LEN(LLS) ) § CHRS (27) § CHRS(23) § CHRS(27) § CHRS(14) §LLS 
3 CHR$ (27) § CHR (15) § CHRS(27) 5 CHRS(19) 55 NEXT N 


LPRINT CHR$(13)§ "LINE FEED 
LPRINT CHRS(27) §CHRS(31) § "BOLD PRINTING 
GOSUB 4880 "SCALE NUMBERING 
GOSUB 5880 "LEFT Y AXIS 
LPRINT XBS5FL95XT$5 CHRS(13) 5 


READ D$,L;H 
IF D$="XXX" THEN LPRINT XBS§FLS$XT$§CHRS$(13)5% GOSUB 6000: GOSUB 7@@0: GOSUB 


8820: GOTO 998 


L=4*#L+60: H=4*#H+6@: D=H-L 

GOSUB 2800 "PRINT DATE OF MONTH 
GOSUB 1000 

LPRINT CHRS(18) §XS%§ CHRS (27) § CHRS(16) § CHRS (QL) § CHRS (LL) 5 CHRS (255) 5 
LPRINT CHRS(27) 5 CHR (32) § "END BOLD PRINTING 
FOR N=1 TO (D-1)/2? LPRINT CHRS(213) §CHRS(235)5: NEXT N 

LPRINT CHRS$(27) §CHRS(31) § "RESUME BOLD PRINTING 
LPRINT CHRS(255) 5 


LPRINT CHR$(13) 5 
GOTO 250 
HRHKEHRKKKERKEHRHEE DATA (DATE, LOW, HIGH) HHH HHERHKERE 
DATA NOV 1,47,51 
DATA NOV 2,35,50 
DATA NOV 3,28,42 
DATA NOV 4,24, 30 
DATA NOV 5,28,33 
DATA NOV 6,23,44 
DATA NOV 7,31,62 
DATA NOV 8,29,48 
DATA NOV 9,37,40 
DATA NOV 10,48,53 
DATA NOV 11,39,58 
DATA NOV 12,19,57 
DATA NOV 13,14,24 
DATA NOV 14,13,25 
DATA NOV 15,12,34 
DATA NOV 16,19,48 
DATA NOV 17,15,47 
DATA NOV 18,21,47 
DATA NOV 19,47,57 
DATA NOV 20,41,63 
DATA NOV 21,24,47 
DATA NOV 22,22,46 
DATA NOV 23,12,38 
DATA NOV 24,9,26 
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DATA NOV 25,21, 39 


526 DATA NOV 26,14,354 

5327 DATA NOV 27,11,33 

528 DATA NOV 28, 25,35 

529 DATA NOV 29,33, 36 

338 DATA NOV 30,35,43 

331 DATA XXX,152 

99@ LPRINT CHRS(30) 3 CHRS(27) § CHRS( 32) § "END BOLD PRINTING 
999 END 


> HHHHEHHHEH POSITIONING CONVERSIONS 4264444444 HEHH 
QY=V/256: QYZ=QY: YY=Y-256*#QY%: QL=L/256: QLZ=QL! LL=L-256*QL% 
IF INT(YY)=1@ OR INTC(YY)=12 OR INT(YY)=96 THEN YY=YY+1 
IF INT(LL)=18 OR INT(LL)=12 OR INT(LL)=96 THEN LL=LL+1 
RETURN 
> HEEKHEHERKHRER DATE-PRINTING SUBROUTINE 444% HHHHERE 
IF VAL(RIGHT$(D$,2) )=1 THEN LPRINT PDS5§N1$5STRINGS(9, 128) SSTRINGS(5, 136) § 
IF VAL(RIGHT$(D$, 2) )=5 THEN LPRINT PDS§N5$s3STRINGS$(9, 128) SSTRINGS(5, 136) § 
IF VAL(RIGHT$(D%, 2) )=10 THEN LPRINT PD$3RLFS5§CHRS(18) 5N1$$3PD$5FFDS§3 CHRS( 18) 
3NQS5 RLFS$ CHRS(18) sSTRINGS(9, 128) sSTRINGS(5, 136) § CHRS( 30) sSSTRINGS (66, °-")5C 
HRS(18) 3 
IF VAL(RIGHTS(D$, 2) )=15 THEN LPRINT PD$3RLF%§ CHR$(18) 5N1$5 PDSSFFDS$5; CHRS(18) 
3N5%5 RLFS§ CHRS (18) SSTRINGS(9, 128) SSTRINGS (5, 136) 5 
IF VAL(RIGHT$(D$,2) )=2@ THEN LPRINT PD$3RLFS§CHRS$( 18) §5N2%5 PDS 5FFDS5 CHRS( 18) 
3NQ@$5RLFS5CHRS(18) SSTRINGS(9, 128) sSTRINGS(5, 136) § CHRS (30) sSSTRINGS(66,"-")5C 
HR$(18) 3 
IF VAL(RIGHT$(D$, 2) )=25 THEN LPRINT PDS3RLF$3CHRS$( 18) §N2$5 PDS 5 FFDS 5 CHRS( 18) 
3N5$3RLFS§ CHRS(18) SSTRINGS(9, 128) SSTRINGS(5, 136) § 
IF VAL(RIGHT$(D$,2) )=30@ THEN LPRINT PD$3RLFS5 CHRS( 18) §N3$5 PDS §FFDS§ CHRS(18) 
3NO@$5RLFS§ CHRS(18) sSSTRINGS(9, 128) sSSTRINGS(5, 136) § 
RETURN 
"HeeHHEH "YNUMBERS” -- 5 X 7 NUMBER STRINGS #4444 4% 
N1$=CHR$(156)+STRINGS (4, 136)+CHRS(140)+CHRS(136) **1" 
N2$=CHR$ ( 198) +CHRS (130) +CHRS (132) +CHRS (152) +CHRS( 160) +CHRS (162) +CHRS( 156) 
eh 
N3$=CHRS (1546) +CHRS( 162) +CHRS( 160) +CHRS (152) +CHRS( 160) +CHRS( 162) +CHRS( 156) 
sa" 
N4$=STRING$(2, 144)+CHRS( 198) +CHRS( 148) +CHRS(152)+STRINGS(2, 144) 
? "4" 
N5$=CHRS (1546) +CHRS (162) +STRINGS(2, 160) +CHRS( 158) +CHRS( 130)+CHRS( 190) 
? “e8 
N6$=CHRS (156) +CHRS (162) +CHRS( 162) +CHRS (158) +CHRS (138) +CHRS (162) +CHRS (1546) 
? "6" 
N7$=STRINGS (3, 132) +CHRS (136)+CHRS( 144) +CHRS (160) +CHRS (190) 
? Be An 
N8$=CHRS ( 156)+STRINGS (2, 162) +CHRS(156)+STRINGS (2, 162) +CHRS( 156) 
»7*9° 


) N9S=CHRS (156) +CHRS (162) +CHRS (160) +CHRS (188) +CHR$ (162) +CHRS(162)+CHRS( 156) 


? 8g* 
NOS=CHRS(156)+STRINGS(5, 162) +CHR$( 156) iis 
NPS=CHRS (128) +STRINGS (2, 136) +CHRS (198) +STRINGS(2, 136) +CHRS( 128) 
? wae 
NMS=STRINGS (3, 128) +CHRS (156) +STRINGS(3, 128) aa 
RETURN 


8140 
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7 HHEHEEEEED NUMBERING OF LEFT Y AXIS 42484 HHHHREE 

GOSUB 3800 

LPRINT CHRS(27) §CHRS(16) 3 CHRS(1) 5 CHRS (201) § CHRS (18) §N1$§5 CHRS(13) § 

LPRINT CHR$(18) §STRINGS(97, 128) §N1$551$5N2%551$5N3$551$5N4$5S51$5N5$551$5N6S 
3S1$5N7$3S1$5NBS§5S1$5NIS 551 5NOS5 CHRS (13) § 

FOR Y=57 TO 457 STEP 4@: GOSUB 1000: LPRINT CHRS$(27) 5CHRS(16) 5 CHRS(QY) 5 CHRS 
(YY) 5N@S53 NEXT Y 

LPRINT CHRS(13) 5 CHRS(27) 5 CHRS(5@) § CHRS(27) § CHRS(5@) § 

RETURN 

7 HHHEEHHEHHKHERHHEHEEH LEFT Y-AXIS 4H RHE RKHEHEREREEHREE 

LPRINT CHRS(18) sXTS5FLS5XBS5 

FOR N=1 TO 188 LPRINT STRINGS(19, 131) §CHRS(159) STRINGS (19, 131) 5 CHRS(255)355 
NEXT N 

LPRINT CHR$(13) § 

RETURN 

> HEEKHERRHHHEHEKEHEEH RIGHT Y-AXIS HHH ERHHEEKHHHEEE 

LPRINT CHRS(18) §XTS§FLS5 XBS§ STRINGS (19, 224) § CHRS (252) sSTRINGS (35, 224) § 

FOR N=1 TO 42 LPRINT CHRS(255) sSTRINGS (35, 224) § CHRS( 252) SSTRINGS (35, 224) 5 

NEXT N 

LPRINT CHR$(255) sSTRINGS (35,224) § CHRS (252) SSTRINGS( 20, 224) § 

LPRINT CHRS(13) 5 CHRS(27) § CHRS(5@8) § CHRS(27) § CHRS(5Q) § 

RETURN 

7 HHEKHHHEHHHH RIGHT Y-AXIS NUMBERING 4448444 HEHEHE 

LPRINT CHRS(18) sSTRINGS(113, 128) §NMS§ STRINGS (137, 128) §NPS§$STRINGS(65, 128) 5N 
P$SSTRINGS (65, 128) sNP$§ CHRS(13) 5 

LPRINT STRINGS(113, 128) §N1$$STRINGS (45, 128) 5NOSSSTRINGS (465, 128) §N1SsSTRINGS 
(65,128) 5N2%5STRINGS (65, 128) §N3$§ CHRS(13) § 

LPRINT STRINGS(113, 128) sNO@S5STRINGS (137, 128) sNOS$3 STRINGS (65, 128) sNOSSSTRING 

$(65, 128) 5N@$§5 CHR$( 13) §CHRS(13) § 

RETURN 

7 HHKHRHEKREHHEE RIGHT Y-AXIS LABELING #44448 4444HH% 

SPS$=STRINGS (2, 128) 

AS=CHRS (159) +CHRS (164) +CHRS (196) +CHRS (164) +CHRS (159) +SPS 

CS=CHRS (162) +STRINGS (3, 193)+CHRS (190) +SP$ 

DS=CHRS (198) +STRINGS (3, 193) +CHRS (255 )+SPS 

ES=STRINGS (2, 193) +STRINGS (2, 201 ) +CHRS (255) +5SP% 

GS=CHRS (174) +STRINGS (2, 201 ) +CHRS (193) +CHRS (198) +SPS 

H$=CHR$ (255) +STRINGS (3, 1356) +CHRS$ (255) +SP$ 

IS$=CHRS (193) +CHRS (255 ) +CHRS (193) +SPS 

N$=CHRS$ (255 ) +CHRS ( 132) +CHRS (136) +CHRS (144) +CHRS (255) +SP$ 

RS=CHRS (177) +CHRS (202) +CHRS (204) +CHRS (200) +CHRS (255) +5PS 

S$=CHRS(166)+STRINGS (5, 201) +CHRS(177)+SPS 

TS=STRINGS (2, 192) +CHRS (255) +STRINGS (2, 192) +SPS 

FOR N=1 TO 2: LPRINT CHRS(3@) §CHRS(27) 5 CHRS (16) § CHRS(Q) § CHRS (158) § CHRS(27) § 

CHRS (32) 5 CHRS (27) § CHRS(23) § CHRS (27) § CHRS (14) | CHRE(18) 5ES§5DS 5S AS5RS5GS5IS5TS5 

NS5ES3CS3STRINGS(7, 128) 5SS5ES5ES5RS5GS 5ES 5 DS 5 CHRS (30) § CHRS (27) § CHRS(15) 5 CHR 

$(27) §CHRS(19)5= NEXT N 

RETURN 


By far the most familiar kind of floating-bar graph is the 
typical plotting of stock prices or stock market averages. One 
style of stock plotting was shown in the first illustration in 
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this book (figure 1-1). That figure also provides an illustration 
of a tandem graph with two different measures having radi- 
cally different scales—daily volume, scaled on the right side 
of the graph, and daily stock price measure, scaled on the 
left. 

In the WALLSTOK program (program 8-9), the DATA 
lines give the date; high, low, and closing prices; and sales 
volume. Lines 250 and 260 convert the three price values 
and the volume measure to dot column values that jibe with 
the scales on the left and right Y axes. For the plotting of 
each day’s (or if you wish, week’s) values, V% gives the num- 
ber of dot columns for the height of the volume bar (printed 
by line 270), and H%, L%, and C% represent the high, low, 
and close prices. Another variable, A%, is defined as the dif- 
ference between the highs and lows each day, that is, the 
range of prices. 

A somewhat narrow solid bar, produced by STRING$ 
(V%,190), is used for plotting the volume measure. An even 
narrower bar (to make room for the closing-price hash mark), 
printed by STRING$(A% —2,G) in line 350, is used for the 
range of prices, and the bottom position of that bar is deter- 
mined by L% (via the QL and LL values in line 330), the 
same way as in the TEMPBARS program. The printing of 
this high-low (range) bar is preceded by the printing of the 
closing-price hash mark using direct positioning (via the QC 
and CC values in line 280) of the five-dot code, CHR$(252). 

Some stock plotters like to put hash marks at the top and 
bottom of their high-low-closing bars, and others like the 
closing price to be emphasized. These features require only 
small changes in the programming. Still another style, used 
by USA Today, has pointed bars that are fat and have the 
numerical value of the closing price printed on them and the 
numerical values of the high and low prices above and below 
them. This is decidedly more difficult to program, because of 
the positioning of homemade perpendicular numbers in 
three different locations for each day, and probably not worth 
the effort. 

The rest of the WALLSTOK program is largely housekeep- 
ing, but there’s a lot of it in terms of program lines. Again, 
number and letter sets from homemade alphabets are needed 
—five-by-seven perpendicular numbers (subroutines 3000 
and 5000) for the left and right Y axes, five-by-seven upside- 
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down letters (subroutine 7000) for the label Volume on the 
right axis, and seven-by-ten bold perpendicular letters (sub- 
routine 9000) for printing the name of the corporation in the 
upper left corner of the graph. 


PROGRAM 8-9. WALLSTOK. The standard price-and-volume 
stock market graph. 


*PROGRAM 8-9: "WALLSTOK" -- PRICE-AND-VOLUME STOCK PLOT 
"Copyright (c) 1985 by John Warner Davenport 

"FOR TRS-80 COMPUTERS AND (WIDEBODY) PRINTERS 
CLEAR 12000 > (NOT NECESSARY FOR MODEL 4) 
PS$=CHR$ (27 ) +CHR$( 16) 
P@$=CHRS$(27)+CHRS(16)+CHRS(O) 
P1$=CHR$ (27) +CHRS(16)+CHRS(1) 
P2$=CHR$ (27 )+CHRS(16)+CHRS(2) 
CR$=PQ$+CHRS$ (8) *DIRECT-POSITIONED CARRIAGE RETURN 
FOR N=1 TO 2: LPRINT CHRS(3@) § CHRS( 27) § CHRS(32) s CHRE( 27) 5 CHRS (14) 5P1%5 CHRS (40 
)3"PRICE/SHARE" 5 CHR$(27) §CHR$(15)5s NEXT Ni LPRINT CHRS(13) 5 CHR$(13) 5 
LPRINT CHRS(3@) 5 CHR$(27) § CHR$(19) 5 CHRS(27) § CHRS(31) § 

GOSUB 3010 "NUMBERING OF Y AXIS 

FOR Y=40 TO 768 STEP 40 

GOSUB 10800 : LPRINT CHRS(18) $PS%§ CHRS(QY) § CHRS( YY) 5 CHRS(159) § 

7 HASHMARKS 
NEXT Y 
LPRINT PQ@$5CHRS( 40) SSTRINGS (252, 131) SSTRINGS (258, 131) sSTRINGS (220,131) 5 
"Y-AXIS 

XL$=CHRS$ (18) +PQO$S$+CHRS( 39) +STRINGS (2, 255) "LOWER X AXIS 

XUS=CHRS (18) +P2$+CHRS (247) +STRINGS (2, 255) "UPPER X AXIS 

LPRINT XU$$XL%§ CHRS(13) 5 XUS§ XL%S§ CHRS(13) $3 

INPUT "NAME OF STOCK" 5NM$ 

GOSUB 6880 


208 FOR Z=BS TO 1 STEP -1: LPRINT CHRS(3Q) 3 CHRS(2@) 5 CHRS(27) § CHRS (30) 5 CHRS (19) § 


NEXT Z 


210 READ D$,V,HyL,C 


@ IF D$="DEC 32" THEN GOSUB 4000 : GOSUB 5@@@ = GOSUB 7000 =: GOTO 995 


230 IF DS="UN" THEN GOTO 370 
248 TS=88: S=640/TS: PRINT DS$,VSHSLSC5S 
290 CZ=S*C+40: LZ=S#Lt+4Q: HZ=S#H+40: AZ=HZ-LZ: VZ=.8#V/58 


IF AZ<2 THEN AZ=2 

LPRINT POS§CHRS(4@) § CHRS( 18) SSTRINGS(VZ, 198) § *PRINTS 
VOLUME BAR 

QC=FIX(CZ/256) i CC=FIX(C%-256%QC) 

IF CC=10 OR CC=12 OR CC=96 THEN CC=CC+1 "DETOUR 

G=148: GG=140 *DOT-CODES FOR HIGH-LOW BAR STYLE 


310 IF RIGHTS(D$,1)="2° OR RIGHTS(D$,1)="4"° OR RIGHTS(D$,1)="5" OR RIGHTS(DS,1)= 


520 


"8" OR RIGHTS(D$,1)="@"° THEN LPRINT XL%5CRS§5CHRS( 3) 5 CHRS (27) 5 CHRS(17) §D%5 CH 
R$(27) 5 CHRS (19) 5 CHRS(18) § "PRINTS DATE, BOTTOM 


X AXIS 
LPRINT CHRS(18) 5 PS$5 CHRS(QC) 5 CHRS(CC) 5 CHRS (252) § 
"PRINTS CLOSING PRICE 


BAR GRAPHS 293 


33Q@ QL=FIX(L“Z/256) = LL=FIX(LZ-256*QL) 

340 IF LL=1@ OR LL=12 OR LL=96 THEN LL=LL+1 "DETOUR 

35@ LPRINT CHRS$(18) $PS$§ CHRS(QL) § CHRS (LL) § CHR$(GG) SSTRINGS(AZ—2, G) § CHR$(GG) 3 
"PRINTS HIGH-LOW BAR 

368 GOTO 380 

378 LPRINT CRS§CHRS( 38) § CHRS (27) § CHRS (20) 5 "UNAVAIL. ° § CHRS (27) § CHRS(19) § CHRS(18) § 
P@$ 5 CHRS (39) SSTRINGS(2, 255) 5 

388 VTS=POS+CHRS (36) +CHR$(18)+STRINGS (3,136)? HDS=CHRS (148) +STRINGS(79, 128) "Vv 
ERTICAL TIC-MARK, DOT 

390 LPRINT VTS5XLS%5 POS 5 CHRS (120) SHDS 5 HDS 5 HDS 5 HDS § P1S 5 CHRS (184) SHD$ 5 HDS 5 HDS § HDS § X 
US 5 CHRS(13) § 7X AXES, HORIZONTAL DASHES (GRID LINE) 

400 IF D$="JAN 31" OR DS="FEB 28" OR DS="MAR 29° OR DS="APR 30" THEN GOSUB 2010 

410 GOTO 430 © LPRINT PQ@$§5CHRS(39) SSTRINGS(2, 143) 5 

420 LPRINT CHR$(38) § CHRS(2@) 5 CHRS (27) § CHRS (30) § CHRS (27) § CHRS (55) 5 CHRS (19) § 

430 GOTO 218 

500 xxxxxe"e% DATA (DATE, VOLUME, HIGH, LOW, CLOSE ) ######e# 

585 DATA JAN 2,2176, 32.875, 29. 125, 38.250 

518 DATA JAN 3,3986, 31.500, 28.625, 28. 758 

515 DATA JAN 4,2254, 31.125, 28. 750, 29. 000 

528 DATA JAN 7,4443, 30. 750, 27. 125,27.500 

525 DATA JAN 8, 3500, 30. 000, 25.000, 26. G00 

538 DATA JAN 9,5308, 35.000, 30.000, 32.500 

335 DATA JAN 10, 7500, 40.000, 35.000, 37.500 

548 DATA JAN 11,1010, 43.000, 37.500, 41.5080 

545 DATA JAN 14,9108, 42.500, 38. 800, 40.500 

558 DATA JAN 15, 6080, 39. 600, 35.000, 37.000 

555 DATA JAN 16,6500, 41.580, 34. 080, 34.580 

568 DATA JAN 17,4480, 435. 000, 37. 080, 59. B08 

565 DATA JAN 18, 7500, 46. 000, 42. 000, 45.500 


980 DATA APR 23, 7188, 43.500, 38. G00, 39.500 
985 DATA APR 24,5280, 40. G88, 37.500, 39.625 
910 DATA APR 25,4000, 41.208, 35.580, 39. 758 
915 DATA APR 26,2900, 39.000, 34.000, 37.200 
920 DATA APR 29, 3200, 39.500, 35.750, 37.750 
925 DATA APR 30, 3800, 41.125, 56. G00, 36.500 
930 DATA MAY 1,2788, 39.000, 35.000, 35.580 
935 DATA MAY 2,4200, 39.500, 33.580, 36.125 
940 DATA MAY 3, 3580, 40.625, 35.625, 37.088 
945 DATA MAY 4, 5400, 41.500, 36.875, 38.125 
95@ DATA DEC 32,0,0,0,08 

995 PRINT FRE(Z$): END 

1080 QY=FIX(Y/256): YY=FIX(Y-256*QY) 

10@@5 IF YY=1@ OR YY=12 OR YY=96 THEN YY=YY+1 
101@ RETURN 

2000 *#%eee% QUARTERLY VERTICAL DASHED LINE *###*%*% 
2010 LPRINT CHRS(18) 5PQS3CHRS(41) 5 

2028 FOR Z=1 TO 120 

2030 LPRINT CHRS(128) SSTRINGS(3, 129) sSTRINGS(2, 128) § 
2040 NEXT Z 

2058 RETURN 
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> REKHEHHRHHEE NUMBERING OF LEFT Y AXIS 4X HERHHHEEEEE 
LPRINT CHRS(18) 5; PO@$§CHRS( 117) 5 CHRS(156) SSTRINGS(3, 136) 5 CHR$(140) 3 CHRS (136) § 
od lg 
LPRINT P@$5 3 CHRS( 197) § CHRS( 198) § CHR$( 138) § CHRS( 132) 5 CHR$( 152) 5 CHRS( 168) 5 CHRS 
(162) 5 CHRS( 156) 5 eae 
LPRINT P1%$§CHR$(21 ) § CHRS( 156) § CHRS( 162) § CHRS( 1460) 5 CHRS( 152) § CHRS (160) 5 CHRS( 
162) § CHR$(156) § bal Ye 
LPRINT P1%§CHRS( 101) 5 CHRS( 144) 5 CHRS( 144) § CHRS( 190) 5 CHRS( 148) § CHRS( 152) 5 CHRS 
(144) 5 CHRS(144) 5 7"4A" 
LPRINT P1%5CHRS(181) § CHRS(156) 5 CHRS( 162) 5 CHRS( 160) 5 CHRS( 1468) 5 CHR$( 158) 5 CHRS 
(130) § CHRS (198) § a tg 
LPRINT P2$5 CHRS(5) 5 CHR$( 156) SSTRINGS(2, 1462) 5 CHRS( 158) 5 CHRS( 138) 5 CHRS( 162) 5C 
HRS(156) 5 796" 
LPRINT P2$5 CHRS$(85) sSTRINGS (3, 132) § CHRS( 136) 5 CHRS (144) § CHRS (160) § CHRS( 190) 5 
we7e 
LPRINT P2$5 CHRS (165) § CHR$( 156) sSTRINGS (2, 162) § CHRS( 156) STRINGS (2, 162) 5 CHRS 
(156) 5 7*9" 
LPRINT P2%5 CHRS$(245) 5 CHRS( 156) 5 CHRS (162) § CHRS(16@) 5 CHRS(188) sSTRINGS(2, 142) 
3CHR$( 156) sCHRS(13)5 *°9" 
FOR Y=37 TO 757 STEP 8@: GOSUB 1800 : LPRINT PS%5CHRS(QY) 3 CHRS(YY) § CHRS(156 
) SSTRINGS(5, 162) 5 CHRS(156)5 3 NEXT Y 789° 
GOSUB 8030 
RETURN 
HHEREHEREEREH RIGHT Y-AXIS 4H REKERREREHEEE 
LPRINT CHRS(18) §XUS§XL$5 
FOR N=1 TO 18: LPRINT STRINGS$(39, 224) 5 CHRS(252) 5: NEXT N 
LPRINT CHR$( 13) 5 CHRS(27) § CHRS (50) 5 CHRS(27) 5 CHRS(5Q) § 
RETURN 
eee "YNUMBERS"® -- 5 X 7 NUMBER STRINGS #442244 
N1$=CHRS (156)+STRINGS (4, 136)+CHRS(140)+CHRS(136) 7°11" 
N2$=CHR$ (190) +CHRS ( 130) +CHRS (132) +CHRS (152) +CHRS( 168) +CHRS (162) +CHRS (156) 
a shed 
N3$=CHRS$ (156) +CHRS (162) +CHRS (160) +CHRS (152) +CHRS (168) +CHRS (162) +CHRS (156) 
oe 5" 
N4$=STRINGS (2, 144)+CHRS (198) +CHRS (148) +CHRS(152)+STRINGS(2, 144) 
sil as 
N5$=CHRS$ (156) +CHRS (162) +STRINGS (2, 160) +CHRS (158) +CHRS (130) +CHRS( 198) 
tates | 
N6$=CHRS (156) +CHRS (162) +CHRS (162) +CHRS (158) +CHRS(130)+CHRS( 162) +CHRS (156) 
yage 
N7$=STRINGS$(3, 132) +CHRS (136) +CHRS (144) +CHRS( 160) +CHRS( 190) 
ape 
N8$=CHRS$ (156) +STRINGS( 2, 162) +CHRS( 156) +STRINGS (2, 162) +CHRS( 156) 
7968 
N9$=CHR$ (1546) +CHRS (162) +CHRS (160) +CHRS( 188) +CHRS( 162) +CHRS( 162) +CHRS$( 156) 
rage 
NO$=CHR$ (156) +STRINGS(5, 162) +CHRS( 156) 7*Q° 
MCS=STRINGS (3, 162)+STRINGS(2, 170) +CHRS( 182) +CHRS( 162) 
IC$=CHRS$ (156) +STRINGS(5, 136)+CHRS( 156) 
LC$=CHRS (190) +STRINGS (6, 130) 
KC$=CHR$ (162) +CHRS (146)+CHRS (138) +CHRS (134)+CHRS (138) +CHRE (146) +CHRS (162) 
LPRINT P@%$5 CHRS(37) 5 CHRS(18) SNOSSSTRINGS(33, 128) §5N2%5 STRINGS (33, 128) 5NS$3ST 
RINGS (33, 128) §N7$5 STRINGS (33, 128) 5N1$§3 CHRS(13) § 
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LPRINT P@$3CHRS(77) §NSS$STRINGS( 33, 128) 5NOS5 STRINGS (33, 128) sNSS$$3STRINGS(33, 


128) §MC$5 CHRS(13) 5 
LPRINT P@$§3CHRS(77) 5NO$3 STRINGS (33, 128) NOS;STRINGS (33, 128) SNOSSSTRINGS( 33, 


128) §1C$3CHRS(13) § 
LPRINT P@%$CHRS(77) 5KC$3STRINGS (33, 128) s5KC$§ STRINGS (33, 128) SKCSSSTRINGS (33; 
128) 3LC$§ CHRS(13) 5 CHRS(13) 5 


RETURN 
IF NM$="DANDY CORP." THEN Q=2: Y=190: BS=18: GOSUB 9840 : GOSUB 9018 : GOSU 


B 9149 : GOSUB 9840 : GOSUB 9250 : GOSUB 8030 : GOSUB 9032 = GOSUB 9158 =: G 
OSUP 918@ : GOSUB 9168 : GOSUB 9270 

RETURN 

REM --— UPSIDE-DOWN 5 X 7 LETTERS -- "VOLUME" LABEL -- 

SP$=STRINGS (2, 128) 

ES=STRINGS( 2, 193) +STRINGS (2, 201 ) +CHRS (255) +SPS 
L$=STRINGS$ (4, 129) +CHRS (255 )+SP$ 

M$=CHR$ (255 ) +CHRS (160) +CHRS( 152) +CHRS( 168) +CHRS (255) +SPS 

OS=CHR$ (190) +STRINGS(3, 193) +CHRS(190)+SP$ 

US=CHR$ (254) +STRINGS (3, 129) +CHRS( 254) +SPS 

V$=CHRS (224 ) +CHRS (156) +CHRS (131) +CHRS (156) +CHRS (224) +SPS$ 

FOR N=1 TO 2: LPRINT CHRS(3Q) $PQ$53 CHRS(8O) 5 CHRS(27) § CHRS( 32) § CHRS( 27) 5 CHRS ( 
14) §CHRS(19) SES§MSSUS5LS305 VS 5 CHRS(3Q) § CHR$(27) § CHRS(15) 5 CHR$(27) § CHRS(19) 
3: NEXT N 

RETURN 

 HHREEHHHEHEHHKHEH LINE FEEDS 4X eR HHHEHHEEE 

LPRINT CHR$(18)3CHR$(13): FOR X=1 TO 4:5 LPRINT CHRS(3@) 3 CHRE(20) 5 CHRS(27)5C 
HR$(30)5=2 NEXT Xs LPRINT CHRS(27) §CHR$(56)52 RETURN 

LPRINT CHR$(3@) 3 CHRS (20) § CHRS (27) § CHRS(56) 5 CHRS(19)3 3 RETURN "9/72" LI 
NE FEED 

LPRINT CHRS(3@) § CHRS( 20) $ CHRS(27) § CHRS(28) § CHRS(27) § CHRS(28) § CHRS(19) 5: RET 
URN 712/72" LINE FEED 

7##% PRINTING OF 7 X 10 BOLD PERPENDICULAR LETTERS *##* 

LPRINT CHR$(18) 3PS$3CHRS(Q) 5 CHRS(Y) 5STRINGS(3, 227) SSTRINGS (2, 255) SSTRINGS(2 
y 227) 3 CHRS( 182) SSTRINGS(2,1546)§2 GOSUB 8820 = RETURN >A" 

LPRINT CHRS(18) 3PS%3CHRS(Q) $ CHRS(Y) 5 CHRS(191) § CHRS(255) SSTRINGS( 2, 227) sSTRI 
NG$(2, 191) sSTRINGS (2, 227) § CHR$ (255) 5 CHRS(191)3: GOSUB 8@20 =: RETURN 7 9B" 
LPRINT CHR$(18) $CHRS(27) §CHRS( 14) § CHRS(Q) 5 CHRS(Y) § CHRS( 190) § CHRS(255) 5 CHRS ( 
227) sSTRINGS (4, 131) § CHRS( 227) § CHR$( 255) } CHR$(190)5: GOSUB 8020 : RETURN 


Tec? 
LPRINT CHR$(18) 3 CHR$(27) 3 CHRS( 15) § CHRS(Q) § CHRS(Y) § CHRS (191) § CHRS(255) SSTRIN 
G$ (6,227) § CHRS(255) §CHR$(191)$2 GOSUB 8820 = RETURN 7*p* 


LPRINT CHR$(18) 3 CHRS(27) § CHRS(14) § CHRS(Q) § CHRS(Y) § CHRS (255) § CHRS (255 ) § CHRS ( 
131) §CHR$(131) 3 CHR$( 159) § CHRS(159) § CHRS( 131) § CHRS( 131) § CHRS (255) § CHRS(255) § 
: GOSUB 8020 : RETURN al ae 
LPRINT CHR$(18) $3 CHR$(27) 3 CHRS(16) § CHRS(Q) § CHRS(Y) SSTRINGS(4, 131) § CHRS(159) § 
CHR$ (159) 3 CHRS (131) 3 CHRS( 131) § CHRS(255) §CHRS(255) 5: GOSUB 8@20@ = RETURN 

7 fps 
LPRINT CHR$(18) 3 CHRS(27) § CHRS(16) § CHRS(Q) § CHRS(Y) § CHRS (190) § CHRS (255) 5 CHRS ( 
227) 3 CHRS (227) 5 CHR$ (251) § CHRS(251) § CHR$( 131) § CHRS(227) § CHRS (255) § CHRS (19) § 
: GOSUB 8020 = RETURN 7*G" 
LPRINT CHR$(18) 3 CHR$(27) 3 CHRS(16) § CHRS(Q) § CHRS(Y) STRINGS (4, 227) § CHRS(255) 5 
CHR$ (255 ) § CHRS (28) § CHR$(4) §CHR$(227)52 GOSUB 8820 = RETURN 

? oH" 


90908 


9100 


9118 


9120 


9138 


9148 


9158 


9160 


9178 


9180 
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LPRINT CHR$( 18) § CHR$(27) $CHRS(16) 5 CHRS(Q) § CHR$(Y) § CHRS( 188) 5 CHR$ (188) ;STRIN 
G$(6, 152) }CHR$( 188) sCHR$(188); GOSUB 8820 : RETURN 
cima Cy 
LPRINT CHR$(18) $CHR$(27) 3 CHR$( 16) § CHRS(Q) §CHRS(Y) § CHRS( 158) § CHRS (191) 3 CHRS( 
179) $CHRS (179) $STRING$(4, 176) $CHR$(248) §CHRS(248) $2 GOSUB 8220 : RETURN 
i fos 
LPRINT CHR$(18) 3 CHRS(27) 3 CHR$( 16) §CHRS(Q) 5 CHRS(Y) § CHRS (227) § CHRS (179) § CHRS( 
155) § CHRS (143) § CHRS (135) § CHR$ (135) § CHR$( 143) $CHRS (155) § CHRS (179) 3 CHRS(227) 3 
: GOSUB 8020 : RETURN reK® 
LPRINT CHR$(18) §CHR$(27) 3 CHR#( 16) §CHR$(Q) § CHRS(Y) § CHRS(255) 3 CHR$(255) ;STRIN 
G$(8,13193: GOSUB 8220 : RETURN °*°L" 
LPRINT CHR$(18) $CHR$(27) § CHRS( 16) $ CHRS(Q) §CHRS(Y) STRINGS (4,227) 3 CHRS(235) § 
CHR# (235) 3 CHR (255) § CHR$(247) §CHR$(227) $CHR$(227)5! GOSUB 8020 : RETURN 
zeme 
LPRINT CHR$(18) § CHRS(27) 5 CHR$( 16) §CHR$(Q) § CHRS(Y) § CHRS (227) § CHRS (227) 5 CHRS ( 
227) §CHRS (243) § CHRS(251) § CHRS(239) § CHRS( 231) § CHRS( 227) § CHRS (227) 5 CHRS (227) § 
: GOSUB 8020 : RETURN = ”"N* 
LPRINT CHR$(18) $CHR$(27) 3 CHR$( 16) § CHR$(Q) § CHRS(Y) § CHRS (198) § CHRS(255) 5STRIN 
G$( 6,227) §CHRS(255) $CHR$(190) $2 GOSUB 8820 : RETURN 7#Q" 
LPRINT CHR$(18) $CHR$(27) 3 CHR$( 16) §CHRS(Q) §CHRS(Y) $STRINGS(4, 131) §CHRS(191) 3 
CHR$ (255) 5 CHR$(227) 5 CHRS(227) § CHRS(255) 3 CHR$(191)$! GOSUB 8820 : RETURN 
7epe 
LPRINT CHR$(18) §CHR$(27) § CHR$( 16) $ CHR$(Q) $CHRS(Y) § CHR (144)  CHRS(19@) § CHRS( 
191) §CHRS(251) sSTRINGS (4, 227) §CHR$(255) 3CHR$(190)$: GOSUB 8020 : RETURN 
7A Q" 
LPRINT CHRS(18) § CHR (27) $ CHR$( 16) §CHRS(Q) §CHRS(Y) $STRINGS(4, 227) §CHRS(191) 3 
CHR$ (191) 5 CHRS(227) 5 CHR$(227) § CHR$(255) ;CHR$(191)32 GOSUB 8020 : RETURN 
7HReA 
LPRINT CHRS(18) § CHRS(27) 3 CHRS(16) §CHRS(Q) § CHRS(Y) § CHRS(19@) § CHRS (255) § CHRS ( 
227) § CHRE (224) § CHRS (254) § CHRS(191) § CHRS (131) § CHR$ (227) § CHR$ (255) §CHRS(19Q) § 
GOSUB 8020 : RETURN age 
LPRINT CHR$(18) 3 CHR$(27) $CHR$(14) 5 CHRS(Q) § CHRS(Y) $STRING$(8y 152) § CHRS(254) § 


CHR$(254)55 GOSUB 8@2@ = RETURN al Ga 
LPRINT CHRS(18) 5 CHRS(27) § CHRS (16) § CHRS(Q) § CHRS(Y) § CHRS( 190) § CHRS (255) sSTRIN 
G$(8,227)3: GOSUB 8820 = RETURN 7*yU" 


LPRINT CHR$(18) § CHR$(27) § CHRS( 16) §CHR(Q) § CHRS(Y) § CHRS( 134) § CHRS (154) § CHRS( 

156) § CHRS( 162) § CHRS( 182) ; CHR$( 182) sSTRINGS(4,227)$: GOSUB 8220 : RETURN 
seve 

LPRINT CHR$(18) §CHR$(27) $CHRS(16) §CHRS(Q) §CHRS(Y) § CHRS(227) § CHRS (227) § CHRS ( 

247) CHRS(255) § CHR$(235) 3 CHR$ (235) $STRING$(4,227);: GOSUB 8820 : RETURN 

reyes 

LPRINT CHR$(18) §CHR$(27) $CHRS(16) § CHRS(Q) § CHRS(Y) § CHRS( 227) § CHRS (227) § CHR ( 

247) 3 CHRS(19@) § CHR$ (156) § CHRS (156) § CHR (190) § CHRS( 247) § CHRS (227) 3 CHRS (227) § 

: GOSUB 8820 : RETURN se 

LPRINT CHR$(18) 3 CHR(27) 3 CHRS(14) § CHRS(Q) §CHRS(Y) STRINGS(5, 152) § CHRS (188) ; 

CHR$(254) ;STRING$(3,230)$: GOSUB 8020 : RETURN mays 

LPRINT CHR$(18) 3 CHRS(27) 5 CHRS( 14) § CHR$(Q) §CHRS(Y) § CHR$(255) § CHR$(255) § CHRS( 

131) § CHRS (134) 5 CHRS( 140) § CHRS (152) 3 CHRS (176) § CHRS(224) § CHRS(255) § CHRE(255) § 

: GOSUB 8820 : RETURN ar 4 

LPRINT CHR$(18) 5 CHRS(27) § CHRS (16) § CHRS(Q) § CHR$(Y) § CHRS( 140) §CHR$ (148) 52 GOS 

UB 8020 : RETURN "PERIOD, POINT 

LPRINT CHR$(18) 5 CHRS(27) § CHRS (16) § CHR (Q) 5 CHRS(Y) STRINGS (4, 128) $ CHRS( 190) 3 

CHR$(190)3: GOSUB 802@ : RETURN "HYPHEN, MINUS SIGN 
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As presented here, the WALLSTOK program is hardly a 
very general one. It can handle stocks with prices up to 
ninety dollars per share, but not those over ninety dollars, 
and the Y-axis scale would not work very well with stocks 
selling under twenty dollars, let alone penny stocks. Also, 
not every corporation is named Dandy Corporation. In addi- 
tion, you might want to have dashed vertical grid lines (see 
line 400 and subroutine 2000) occurring every week or quar- 
terly instead of monthly. 

It wouldn’t take very many changes to make this program 
much more general, though. Line 400 can easily be altered 
for changing the grid lines. For spelling and printing any 
stock’s name, subroutine 6000 can be expanded to a form like 
the WRDCRAFT program. And at the top of the program, the 
user can be asked not only for the name of the stock but also 
for the top of the scale likely to cover all of that stock’s prices. 
Top-of-scale (TS) values of 10, 20, 40, 80, and 160 can then 
determine the scale factor (S) for prices, by the formula 
S = 640/TS, and the high-low bars would be plotted in accor- 
dance with the scale thus selected. In addition, of course, 
new subroutines for numbering the left Y axis, from 0-10 to 
0—160, would be needed. 


The area graph with bars. Another kind of graph occasion- 
ally seen in business graphics is the area graph. This is usu- 
ally a form of line graph, which is not very easy to program 
for a dot-matrix printer, but a bar-graph version of it is fairly 
simple. 

Just to suggest the feasibility of this, figure 8-10 presents 
an imitation area graph produced by the AREABARS pro- 
gram (program 8-10). This program differs from our regular 
bar-graph programs in having narrow bars only four dots 
wide and allowing no space between the bars. The bars are 
“stacked”” somewhat like segmented bars in horizontal bar 
graphs, with the bottom segment being solid black, the mid- 
dle segment shaded, and the upper segment left blank. To 
get a better contrast between the shaded and black segments, 
the program prints the entire graph in bold, except when the 
middle segment’s shading is being printed, and inserts a 
small white space at the top of each black segment. 


800 


600 
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me 


20 


oO 


0 
FIGURE 8-10. An area graph, in narrow-bar style (AREABARS 
program for the DMP-400). 


PROGRAM 8-10. AREABARS. Area graph using thin 
segmented bars. 


10 *PROGRAM 8-10: "AREABARS® -- AREA GRAPH USING SEGMENTED BARS 
15 *Copyright (c) 1985 by John Warner Davenport 

20 ’FOR TRS-80 COMPUTERS AND PRINTERS 

38 CLEAR 1800 


40 LPRINT CHRS( 30) 5 CHRS (27) 5 CHRS(23) "ELITE PITCH 

53@ LPRINT CHRS(27) §CHRS(31) § "BOLD PRINTING 
68 LFS=CHRS (38) +CHRS (20) +CHRS (13) +CHRS (27) +CHRS(30)+CHRS(19) “LINE FEED 

70 CRS=CHRS (27) +CHRS (16) +CHRS(@)+CHRS(@) "CARRIAGE RETURN 
88 GOSUB 20@@ : GOSUB 4020 "Y-AXIS SUBROUTINES 
10@ READ A,B,C "READ THREE VALUES (CUMULATIVE COMPONENTS OF A TOTAL) 
110 IF A=999 THEN GOTO 280 

12@ A=.5#A: B=. 5#B: C=.5#C "(SCALE FACTOR = .5) 

130 M=B-A: H=C-B 

148 HD=C-PC 


15@ PRINT PC 
16@ PRINT A,B,C,HD 
170 LPRINT LFS; 


18@ IF HD<@ THEN GOSUB 1010 : LPRINT CHR$(18) §CHRS(27) § CHRS( 16) § CHRS(QC) 5 CHRS(CC 


) SSTRINGS(ABS(HD), 129) CRS; 
198 LPRINT CHR$(18) SSTRINGS(99, 128) § 


830 
885 
8108 
815 


1080 
1018 
2008 
2010 
20208 


2030 
2040 


2058 
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FOR N=1 TO A-1: LPRINT CHR$(18)5CHR$(191)32 NEXT Ni LPRINT CHR$(128) 3 CHRS(19 
1)5 "BLACK BAR 
LPRINT CHR$(3Q) § CHRS(8) § CHRS(2) § CHRS(27) 5 CHRS (32) § CHRS(18) § 
*BACKSPACE, UNBOLD 
FOR Y=@ TO M STEP 2: LPRINT CHR$(149)+CHR$(171)5s NEXT Y °5@%-SHADED BAR 
LPRINT CHR$(3@) §CHR$(27) 3CHR$(31)3CHR$(18)3 "RETURN TO BOLD 
LPRINT STRINGS(2,191) 5 
LPRINT STRINGS (Hy 129) sSTRINGS(2, 191) 5 "WHITE BAR 
PCc=C 7(PC = PREVIOUS C VALUE) 
GOTO 100 
PRINT "JOB FINISHED": END 
DATA 15,30, 48 
DATA 17,35, 41 
DATA 21,43,58 


DATA 276,540, 664 
DATA 278,558, 680 
DATA 288,572, 7/80 
DATA 999,999,999 
> LHKHREHEREKHEHEHHHER CONVERSIONS OF C HX eHERHHRHEREE ERE REERE 
QC=FIX((C+104)/256)2 CC=FIX((C+104)-256%QC)= RETURN 
> eeeeeee "“YNUMBERS" -- 5 X 7 NUMBER STRINGS ##e##4# 
N1$=CHR$ (156) +STRINGS (4, 136) +CHRS(140)+CHRS(136) 7 "1" 
N2$=CHRS$ (192) +CHRS( 138) +CHRS (132) +CHR$ (152) +CHRS (160) +CHRS (162) +CHRS( 156) 
he? 
N3$=CHR$ (156) +CHRS (162) +CHRS (168) +CHRS (152) +CHRS( 160) +CHRS (162) +CHRS (156) 
ae, Ya 
N4$=STRINGS(2, 144) +CHRS( 190) +CHRS (148) +CHRS(152)+STRINGS (2, 144) 
"eA" 
N5$=CHRS (156) +CHRS( 162) +STRINGS (2, 168) +CHRS( 158) +CHRS (138) +CHRS (198) 
9 lis 


2060 N&$=CHR$ (156) +CHRS( 162) +CHRS( 162) +CHRS( 158) +CHRS (138) +CHRS (162) +CHRS (156) 


ital » al 


2070 N7$=STRINGS(3, 132) +CHRS(136)+CHRS(144)+CHRS( 160) +CHRS (198) 


SP a 


2082 N8S=CHRS( 1546) +STRINGS (2, 162) +CHRS (156) +STRINGS(2, 162) +CHRS( 156) 


? “68 

2090 N9S=CHRS( 156) +CHRS( 162) +CHRS( 160) +CHRS (188) +CHRS( 162) +CHRS$ (162) +CHRS( 156) 
? Bge 

21008 NOS=CHR$( 1546) +STRINGS(5, 162)+CHRS$( 156) 7*Q* 


2110 RETURN 
3OQQ ?x*ee* INTEGRATED AXIS WITH RULER-TYPE HASHMARKS ##### 
3010 HAS=STRINGS(9, 131) +CHRS(143)+STRINGS(9, 131 )+CHRS(143)+STRINGS(9, 131)+CHRS(1 


43)+STRINGS(9, 131)+CHRS(143)+STRINGS(9, 131) 


@ LPRINT CHR$(18) 3 CHRS(27) § CHRS(16) § CHRS(@) § CHRS(99) SSTRINGS(2,255)52 FOR N= 


TO 4: LPRINT HA$3CHRS(191) SHAS$ CHR$(255) 55 NEXT N 


3038 RETURN 
4000 °x**xe*% 5 X 7 PERPENDICULAR NUMBERING *##e% 
4010 LPRINT CHRS(27) §CHRS(14) 3 CHRS(@) 5 CHRS (197) § CHRS (18) §N2$5 STRINGS (93, 128) 5N4S 


s STRINGS (93, 128) §N6$;STRINGS(93, 128) sNBS$CHRS(13)5 7"2, 4, 6, B* (1ST COLU 
MN OF NUMBERS) 


4028 FOR Y=197 TO 497 STEP 100: Y1%=Y/256: Y2Z%=Y-256#Y1%= LPRINT CHRS(27) 3 CHRS(1 
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6) §CHRS(Y1%) § CHRS(Y2%) 5N@$32 NEXT Y 7"0O" (2ND COLUMN) 
4030 LPRINT CHR$(13) 3 "LINE FEED (GRAPHIC) 
4040 LPRINT CHR&(27) §CHRS(14) § CHRS(0) 3 CHRS(97) 5NOSSSTRINGS(93, 128) SNOS$STRINGS(9 
3,128) 5NO$5STRINGS(93, 128) sNO$3 STRINGS (93, 128) sNQS; 7"O" (3RD COLUMN) 
4050 LPRINT CHRS(3Q@) 5CHRS(13)3 "LINE FEED (NON-GRAPHIC) AND CARRIAGE RETURN 
4068 GOSUB 3000 "¥ AXIS WITH HASHMARKS 
4070 RETURN 


Remember the good old pictogram from your grade-school 
days? Actually, pictograms are not obsolete—you can still 
find them in Time, USA Today, and other slick publications 
these days. Whatever the vintage or usefulness of picto- 
grams, the computer and printer do well with them. 

There are at least two types of pictograms—the symbol 
graph and the true pictogram. The symbol graph uses re- 
peated symbols, such as dollar signs, to present data that 


PROGRAM 8-11. SYMBLGRF. Horizontal pictogram using 
built-in symbols. 


1@ "PROGRAM 8-11: “SYMBLGRF" -- SYMBOL GRAPH (TRS-80 MODEL 4) 


28 GOSUB 580 "DEFINITION OF SYMBOLS 
3@ SPS=CHRS$ (30) +CHR$ (27) +CHRS(3) "BLANK SPACE 

48 READ L$,V "READ LABEL, VALUE 

3@ IF L$="END" THEN GOTO 170 

6@ GOSUB 680 "SYMBOL SELECTION 


70 W=INT(V/10) 

8@ LPRINT L$35 

90 LPRINT TAB(10) 5 

10@ FOR Z=1 TO W 

1108 LPRINT SYM$5SP$35 

120 NEXT Z 

130 LPRINT CHRS(3@) 5 CHRS(32) 3V3CHRS( 10) § CHRS(13)3 "PRINT NUMERICAL VALUE 

14Q@ GOTO 48 

150 DATA NUMBERS, 254, STARS, 120, MONEY, 188, BOXES, 210, DIAMONDS, 312 

160 DATA END,999 

170 PRINT “JOB DONE": END 

TBD HHKKHKHEHHHHHHHEKHEHH BIT-IMAGE SYMBOL STRINGS 4X44 HH HEHEHE HEHEHE HERE 

310 BXS=CHR$(18)+CHRS$ (255 ) +STRINGS (5, 193) +CHRS (255) +CHRS(3Q) 

320 DM$=CHR$( 18) +CHRS( 136) +CHRS (148) +CHRS (162) +CHRS( 193) +CHRS( 162) +CHRS(148)+CHR 
$(136)+CHRS$ (30) 

33@ RETURN 

COD * HHKHKHHHHKKHKEKKHEREHEEEKE SYMBOL SELECTION 444K RHEE HRHHE EERE RHEE 

610 IF L$="MONEY" THEN SYM$="$"°+CHR$(27)+CHRS(2): RETURN 

620 IF L%="BOXES" THEN SYM$=BX$: RETURN 

630 IF L$="DIAMONDS® THEN SYM$=DM$: RETURN 

640 IF L$="NUMBERS" THEN SYM$="#"+CHR$(27)+CHRS(2): RETURN 

650 IF L$="STARS" THEN SYM$="*"+CHRS(27)+CHRS(2)2 RETURN 

66@ RETURN 
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NUMBERS ## HH#HHHHKHKHKHHKHRKHRRHRRRHH 256 
STARS HHEKRKHRHEHHEE 120 
MONEY S$SSSSSESHSSESSSESSESESES 188 


BOXES OOOOOOOOODOOOOODOONOO 218 


” em, tt . uty es ae FE a Ce a a ot 
DIAMONDS COGS SOOOCECOCOGPOOCGOOSOSGEGCEGOEOCO 318 


FIGURE 8-11. A symbol graph for presenting whole-number 
data. 


come in whole numbers or can be converted to whole num- 
bers. With the true pictogram, on the other hand, fractional 
values between whole numbers (or round numbers) are 
shown by fractional figures or symbols. Thus we have two 
programs here—SYMBLGRF (program 8-11) and PIC- 
TOGRM (program 8-12). 


The symbol graph. Figure 8-11 shows how simple a symbol 
graph can be. There is a mixture of text-mode and bit-image 
symbols here, to illustrate the possibilities. The number, 
star, and money symbols consist of built-in characters, while 
the boxes and diamonds are bit-image drawings (defined in 
subroutine 500 of SYMBLGRF). To make all symbols the 
same width (seven dot columns), a small space is added to 
the built-in characters by the proportional-spacing command 
CHR$(27);CHR$(2). In the plotting, a scale factor of ten is 
used so that each print of a symbol represents ten units of 
whatever the measure (V) is, and if the measure is not an 
even multiple of ten, the integer value of “Ao is taken (line 
70) for the number of prints of the symbol. Line 130 prints 
the original V value at the end of each row of symbols. 


PROGRAM 8-12. PICTOGRM. Horizontal pictogram using bit- 
image drawings. 
10 ’PROGRAM 8-12: "PICTOGRM’ -- PICTOGRAM W/ PARTIAL FIGURES 


15 *Copyright (c) .1985 by John Warner Davenport 
20 °FOR TRS-80 MODEL 4 OR MODEL III (WITH BOOTHE’S DRIVER) AND DMP-400 PRINTER 


3Q@ DIM AB(4,60),L9(7) 


40 LPRINT CHRS(3@) 5 CHRS(27) 5 CHRS(23) 5 "ELITE PITCH 
5@ LFS=CHRS(18)+CHRS$(13) 7GRAPHIC LINE FEED 
6@ P$=CHRS$( 27) +CHRS(16)+CHRS(Q) +CHRS (78) 770th DOT-COLUMN POSITION 


1@@ REM -- STORAGE OF FIGURE IN TWO-DIMENSIONAL ARRAY 
118 FOR R=1 TO 4 

1208 FOR C=1 TO 68 

138 READ N: PRINT N53: IF N=999 THEN GOTO 188 


480 


490 


302 GRAPHICS FOR THE DOT-MATRIX PRINTER 


IF N=>@ AND N<999 THEN AB(R,C)=128+N: C=C+1: BC=BC+1i: GOTO 130 
READ M 
FOR X=1 TO -Ni AB(R,C)=128+M: C=C+i: BC=BC+1: NEXT X! GOTO 130 
NEXT C 
PRINT "END OF ROW"SR5" BYTE COUNT="5BC3: BC=@: PRINT 
NEXT R 
FOR R=1 TO 4: FOR C=1 TO 68: PRINT AB(R,C)3: NEXT? NEXT ’*DISPLAY ARRAY 
LPRINT CHR$(30) 5 TAB(4Q) § CHRS(27) 3 CHRS(14) § "PICTOGRAM® 3 CHRS( 27) §CHR$(15) § CHRS 
(13) 
FOR I=1 TO 7 
READ L$(1I),V "READ LABEL, VALUE 
VI=FIX(V/10)2 V2=6#FIX(V-10#V1) "CALC. # OF WHOLE FIGS., PARTIAL PORTION 
FOR R=1 TO 4 
IF R=2 THEN LPRINT CHR$(3@) 5L9(1) 5 >PRINT LABEL ON SECOND PASS 
LPRINT P$; 
FOR Z=1 TO V1 
FOR C=1 TO 68 
LPRINT CHRS(18) §CHRS(AB(R,C) ) 3 "PRINT 1/4th OF EACH WHOLE FIGURE 
NEXT C 
LPRINT STRING#(3, 128) § 
NEXT 2 
LPRINT STRING$(3, 128) § 
FOR C=1 TO V2 
LPRINT CHR$(18) §CHRS(AB(R,C) ) 3 "PRINT 1/4th OF PARTIAL FIGURE 
NEXT C 
IF R=Z THEN LPRINT CHR$(3@) 3 CHRS(32) 5V3 "PRINT NUMERICAL VALUE 
LPRINT LFS; 
NEXT R 
LPRINT LFS$LFS3LFS;3 
NEXT I 
END 
EERE ERELEREREEEEREKERKEEE DATA LINES 2 HHHHRHHHRH HEE EEE RHEE EEE 


DATA —7385 64564, 96, 96, 80,80, 725 725 —2y 1005-25 1144575579 175 3.35 335 49-45 665 68; — 
4,4,-5,8,-5, 16, -5, 32, -5, 64, -6,8, 999 

DATA 64, 96,80, 72, 68, 66597, 112, 128, 124, 1265-75 1275-55 1264-55 124,—-25 120, -3, 121 
9729113, —-3, 114,98, 98, —-2, 180, -25 116,925 BB, 725 645 32, 165 BO, 104, 72555 1015515195 1 
25112,8,999 

DATA 127 9 49645-59599 59 79-55 159 59 S15 59 639 Oy 1275 955 799 719673 659 325 165854; 
291405 152)4,11,87, 75,40, 39, 16,16,8, 15,999 

DATA 39 O93 9 Ly —5 9 25 Sy 4y 59 By 55 165 —5y 325 —5 9 645 1275 325 B25 165 165858, 45 45 252s 


1,1,;-7,0,999 
DATA EPSON, 98, TANDY, 98, APPLE, 75, C. ITOH, 49, NEC, 325 OKIDATA, 25, STAR, 24 


True pictograms. The PICTOGRM program (program 8-12) 
uses only bit-image drawings as symbols, and in the case of 
the pictogram displayed in figure 8-12, each drawing of the 
symbol takes four sweeps of the printhead, which are sepa- 
rated by line feeds. A two-dimensional array, identified in 
line 30 as AB(4,60), is used to store the picture symbol. The 
storage method, carried out in lines 120-190 using the data 
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PICTOGRAM 


un a hea Caw Caz Cass Cay La Los a> ame, * 
hw tae ar tea Cass Cea Ca Lae a> * 

= ta bax Cas Ca Ca Ca La fa * 

0 la Cea a a Fa; * 

<< fa Ca ED 4 * 

teaws3 Laas a * 

0 kh 


FIGURE 8-12. A pictogram with the cutoff feature for partial drawing of 
figures (PICTOGRM program for the DMP-400). 


OKIDATA 


in lines 450-480, is much like that used in the TYP- 
ARRAY program of chapter 7 (program 7-3). 

In the printout, the (fictitious) data in line 490 are repre- 
sented by whole and partial drawings of the dot-matrix 
printer symbols. Again (as in the symbol graph), each draw- 
ing stands for ten units of the measure, but now the final 
drawing in each row is chopped off in accordance with the 
number of units left over after the last even multiple of ten. 
In line 240, V1 represents the number of whole multiples of 
ten, and V2 represents what is left over. The formula 
V2 =6*FIX(V—10*V1) is used to translate the leftover por- 
tion into dot columns; for each numerical unit there are six 
dot columns, since each whole drawing of a printer (repre- 
senting ten units) is sixty dot columns wide. 

After these calculations for each of the seven data entries, 
lines 250—400 print the whole (lines 280-330) and fractional 
(lines 350-370) pictures, separated by three blank dot col- 
umns. Each entire row of whole and partial pictures is 
printed from the array in four printhead passes, with each 
pass ending at the same cutoff point of the partial picture at 
the right end of the picture row. The picture rows are sepa- 
rated by three 72-inch line feeds (see lines 50 and 410). 

More ambitious pictograms would use a different picture 
for each item being compared. This would mean setting up 
more two-dimensional arrays for storing more sets of dot 
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codes and changing the print commands in lines 220—420 so 
that the program would shift to a new array after each row of 
pictures. 


Program Conversions 


Since most of the programs in this and the following chapters 
are written for TRS-80 systems, appendix C provides check- 
lists for IBM-Epson and Apple users to use in converting the 
programs. In addition to changing control codes, adjusting 
for different print densities, and translating from one form of 
BASIC to another, the conversions will also involve rescaling 
of graphs and diagrams when programs designed for fifteen- 
inch printers are being adapted for eight-inch printers. Many 
of the conversions should be fairly easy to do if appendix C’s 
checklists are used in conjunction with figures 4-1 and 4-2 
and other materials in chapters 2—4. 


9 
Line and Range Graphs 


THE defining features of line graphs are data points and 
their connecting lines. But connecting lines can connect 
other things in a graph besides the main data points—when 
you have one set of lines connecting the lowest values in 
successive sets of data values and another set of lines con- 
necting the highest values, you have what we call a range 
graph. And when we combine the ingredients of a line graph 
with those of a range graph, we end up with a point-and- 
range graph. 

Usually these kinds of graphs show how something 
changes over days, months, or years, so they’re just as likely 
to be called time-series graphs. But there can be line or range 
graphs that have little to do with the time dimension and 
shouldn’t be called time-series graphs. Now that you may be 
feeling more confused about the terminology, we'd better 
proceed to some examples. 


Line Graphs 


The simplest forms. If there is anything difficult about pro- 
gramming line graphs, it is getting those connecting lines 
right where they should be. So the best way to start this topic 
is to take the simplest form of line graph—one with just con- 
necting lines and no data point symbols. This is what the 
sales graph in figure 9-1 exemplifies. The program for it, 
LINEGRAF (program 9-1), gives you a choice of plotting the 
same data four different ways; option (1), “no data points, 


305 


306 GRAPHICS FOR THE DOT-MATRIX PRINTER 


unequal dot spacing,” is the one that produces figure 9-1’s 
graph. The other options are (2) “no data points, near-equal 
dot spacing,” (3) “data points, unequal dot spacing,” and (4) 
“data points, near-equal dot spacing.” 

With a dot-matrix printer, the values for plotting a straight 
connecting line between any two points are produced by 
subtracting the position (height on the graph) of the second 
point from the position of the first point, and dividing the 
difference (which can be positive or negative) by the number 
of line feeds it takes the printer to get from the first point to 
the second point. So the LINEGRAF program doesn’t start 
telling the printer to print the first connecting line until the 
computer has read the first two data values and been told 
how many line-feed steps there should be from one value to 
the next. 

In the program, the first data value is called Z and read in 
line 180. The second is called A and is read in line 220. It is 
the difference between A and Z, called I (for interval; see 
line 250), that is divided by the number of repetitions of line 
feeds (R). The upward or downward change (C) in the verti- 
cal position of the connecting line with each line feed is 
determined by I/R, the A—Z interval divided by the number 
of line feeds; this will make C a negative value (for a down- 
ward-sloping line) if Z is greater than A (because I will be 
negative) and positive (upward) if A is greater than Z. The 
size of each line feed (V), which amounts to the distance 
traveled along the X axis with each line feed, is calculated in 
terms of the number of ‘16-inch line feeds making up each 
whole line feed, so V=2!%,. With options one and three (un- 
equal dot spacing), R is 18, which makes each whole line 
feed !%16-inch long (216 divided by 18 is 12). In other words, 
the whole vertical distance of the connecting line is chopped 
into eighteen equal upward or downward steps, and the 
whole horizontal distance between data point locations is 
chopped into eighteen equal-sized line feeds. 

After the first connecting line has been drawn from the first 
data-value position to the second, A becomes Z (line 370) 
and a new value of A is read (line 220 again). A new connect- 
ing line for this pair of vertical positions is calculated, and so 
forth, through the final data value. With the TRS-80, vertical 
positions have to be specified by two numbers in the 
27+ 16+N1+N2 sequence. The constantly changing posi- 
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FIGURE 9-1. A simple line graph without data point symbols 
(LINEGRAF program, option 1). 


tions of the connecting line are given by Y, which is rounded 
and converted in subroutine 3000 to QY% and YY% values 
for that positioning command. Y starts out being equal to Z 
(see line 280) and is incremented by C (line 330) after each 
print of a dot in the connecting line (line 320) and a line feed. 


PROGRAM 9-1. LINEGRAF. Single-line graphs plotted four 
different ways. 


1@ *PROGRAM 9-1: “LINEGRAF" -- PLOTTING OF LINE GRAPHS W/ OR W/0 DATAPOINTS 
12 ’Copyright (c) 1985 by John Warner Davenport 

15 ’FOR TRS-80 DMP-400 PRINTER AND MODEL III (USE BOOTHE’S DRIVER) 

28 CLEAR 1000 

3Q P1$=CHR$(18)+CHRS (27) +CHRS (16) +CHRS (@)+CHRS(5O) +STRINGS (2, 255) 

40 PX$=CHRS( 18) +CHRS (27) +CHRS (16) +CHRS (0) +CHRS (30) 
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3@ DPS=CHR$ (18) +CHRS (1546) +CHRS (198) +STRINGS (3, 255 )+CHRS (190) +CHR$( 156) 
"FILLED CIRCLE (DATAPOINT SYMBOL) 
68 BS=7 *BACKSPACE (3 1/2 DOTS) 
70 LPRINT CHR#(3@) 3 CHR$ (27) § CHRS(23) 3 "ELITE DENSITY 
8@ PRINT "SELECT TYPE OF LINE GRAPH (1, 2, 3, OR 4):* 
90 PRINT: PRINT " 1. NO DATAPOINTS, UNEQUAL DOT SPACING" 
1@0 PRINT " 2. NO DATAPOINTS, NEAR-EQUAL DOT SPACING® 
110 PRINT * 3. DATAPOINTS, UNEQUAL DOT SPACING" 
12@ PRINT ° 4. DATAPOINTS, NEAR-EQUAL DOT SPACING" 


130 INPUT TG 

148 IF TG<1 OR TG>4 THEN PRINT "TRY AGAIN": GOTO 8@ 

15@ GOSUB 5280 : GOSUB 92020 "MEMORIZE NUMBERS AND LETTERS 
168 GOSUB 8800 "Y AXIS, LABELING, AND NUMBERING 


178 FOR N=1 TO 5: LPRINT P1$3CHRS(13)538 NEXT Ni LPRINT P1$; "START OF X AXIS 

188 READ XL$,Z: Z=7+59 

190 GOSUB 4880 : GOSUB 1@@@@: LPRINT PISSSTRINGS$(3, 136) 3 

208 IF TG=1 OR TG=2 THEN DP$=STRING$(2,140)2 BS=2 

210 LPRINT CHRS (27) § CHRS (16) § CHRS(QZZ) § CHRS(ZZ%) § CHRS(3O) § CHRS(B) § CHRS (BS) § CHRS( 
18) sDP$; *PRINT FIRST DATAPOINT ONLY 

226 READ XL$,A: IF A=9999 THEN GOTO 380 "READ X-AXIS LABEL, VALUE ON Y 

238 A=A+50 . 

2480 IF TG=2 OR TG=4 THEN GOSUB 120@@: C<I/R: V=216/R: GOTO 268 

230 IF TG=1 OR TG=3 THEN I=A-Z: R=18: C=I/R: V=214/R 

268 GOSUB 2800 

278 PRINT "I="31g" "$*Va"sv5" "S*R="ERS" "g"C="3C 

288 Y=Z: GOSUB 3480 

290 FOR X=1 TOR 

3580 IF TG=1 OR TG=2 THEN CC=14@: GOTO 319 

318 IF X<3 OR X>(R-1) THEN CC=128 ELSE cC=140 

318 FOR W=1 TO V: GOSUB 6@@@: NEXT W 

320 LPRINT P1$§ CHRS (27) § CHRS(16) 3 CHRS (QY%) § CHRS( YYZ) § CHR®(3B) § CHRS(8) $ CHRS(2) 3 
CHR$(18) sSTRINGS(2, CC) 3 "PRINT CONNECTING LINE 

338 Y=¥+C: GOSUB 3080 

348 NEXT X 

358 IF TG=3 OR TG=4 THEN FOR W=1 TO V: GOSUB 6060 : NEXT W 

368 GOSUB 10880: LPRINT P1$§STRING$(3,136)38 IF TG=3 OR TG=4 THEN LPRINT CHRS$ (30 
) § CHRS (27) 3 CHRS (16) § CHRS(QAZ) § CHRS(AAZ) § CHRS (8) § CHRS(BS) 3DP$; 

*PRINT DATAPOINT 

365 IF TG=3 THEN LPRINT CHRS (38) 5 CHRS (20) § CHRS (27) § CHRS(3Q) 3 CHR$(19) 3 

366 IF T6=4 THEN LPRINT CHRS (38) § CHRS (20) § CHRS (27) § CHRS (30) § CHR$(27) $ CHRS(3@) 3 CH 
R$(27) § CHRS(56) §CHRS(19) 3 

367 LPRINT CHRS (27) § CHR$ (50) 3 CHRS (27) $ CHR$(5Q) 3 

370 Z=A: GOTO 220 

388 FOR N=1 TO 3: LPRINT P19 3 CHR$(13)3:3 NEXT N 

390 PRINT “ALL DONE*: END 

5300 DATA Jy 68,F 77M, 18B,A,310,M, 278, J, 355505 9999 

1000 °###%*% STRING DEFINITIONS (NUMBERS, LETTERS) 


1018 RETURN 

2000 "aHHHe POSITIONING OF 1ST DATAPOINT #224 

2010 AZ=A: IF A>=(AZ+.5) THEN AZ=A%+1 ” ROUNDING 
2020 QAL=AZ/256:2 AALZ=AL-256%QA% * CONVERSION 
2030 RETURN 


3OGQ '#Hxex POSITIONING OF CONNECTING LINE #022 
3018 Y%=¥: IF Y>=(Y¥%+.5) THEN Y%=V%+1 


3828 
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QYL=Y4/2562 YYZ=Y7Z-256#QY7 
RETURN 
*#eeee POSITIONING OF DATAPOINTS ###4# 
Z4=Z3 IF Z>=(Z%+.5) THEN Z27=27+1 
QZ“%=Z4/256: 124=24-256%QZ% 
RETURN 
7eeeeRER "YNUMBERS® -- 5 X 7 NUMBER STRINGS ##2t2%% 
N1$=CHRS (1546) +STRINGS (4, 136) +CHRS(140)+CHRS$(136) 7°1° 
N2$=CHRS (190) +CHRS (130) +CHRS (132) +CHRS (152) +CHRS( 168)+CHRS (162)+CHRS (156) 
b “2° 
N3$=CHR$ (156) +CHRS (162) +CHRS (1460) +CHRS( 152) +CHRS( 168) +CHRS (162) +CHRS$ (154) 
? aR, Sa 
N4S=STRINGS (2, 144) +CHRS (198) +CHRS (148) +CHRS(152)+STRINGS (2, 144) 
? *4* 
N5$=CHRS$ (156) +CHRS$ (162) +STRINGS (2, 168) +CHRS (158) +CHRS (138) +CHRS (198) 
? bates sg 
N6$=CHRS (1546) +CHRS (162) +CHRS (162) +CHRS (158) +CHRS( 138) +CHRS (162) +CHRS( 156) 
? "4" 
N7$=STRINGS (3, 132) +CHRS (136) +CHRS (144) +CHRS(168)+CHRS (198) 
? a= 
N8S=CHRS$ (156) +STRINGS (2, 162) +CHRS$ (156) +STRINGS (2, 162)+CHRS$ (156) 
% *9* 
N9IS=CHRS (156) +CHRS (162) +CHRS (168) +CHRS (188) +CHRS (162) +CHRS (162) +CHRS( 154) 
, a dad 
N@S=CHRS (156) +STRINGS (5, 162) +CHRS (156) 7*"0" 
RETURN | 
LPRINT CHRS$(27) §CHRS(51)38 RETURN 71/216 LINE FEED 
LPRINT CHR$(27) 3CHRS(50)§2 RETURN 71/72 LINE FEED 
*###0## INTEGRATED AXIS WITH RULER-TYPE HASHMARKS #x+## 
HAS=STRINGS (9, 131) +CHRS(143)+STRINGS(9, 131) +CHRS(143)+STRINGS(9, 131 )+CHRS( 1 
43) +8TRINGS (9, 131 )+CHRS (143) +STRINGS(9, 131) 
LPRINT CHRS (18) § CHR$(27) § CHR$( 14) § CHRS(Q) § CHRS (5) 5 CHR$(255)53 FOR N=1 TO 4 
t LPRINT HAS; CHRS(191) SHAS; CHRS(255)5% NEXT N 
RETURN 
"eeeee Y AXIS WITH 5 X 7 PERPENDICULAR NUMBERING #+*4% 
LPRINT CHR$( 30) § CHRS$(27) § CHRS(32) § "RESET FROM BOLD 
LPRINT CHRS$(3@) § TAB( 32) § CHRS (27) § CHRS(23) § CHR$(27) §CHR$(14)5"SALES (IN $THO 
USANDS ) °  CHRS (27) § CHRS (15) § CHR$(27) 3 CHRS(19) 5 CHRS(13) 
LPRINT CHRS$(27) 3 CHRS(31)§ *BOLD PRINTING 
GOSUB 5880 "GET CODE SEQUENCES OF NUMBERS 
LPRINT CHRS(27) § CHRS(16) 5 CHRS(@) § CHRS( 147) § CHRS( 18) §N1S§STRINGS(93, 128) 5N2$ 
3 STRINGS (93, 128) 5N3S5STRINGS (93, 128) N4S§CHRS(135)5 792, 4, 6, 8" (IST COLU 
MN OF NUMBERS) 
FOR Y=147 TO 447 STEP 100: Y1%=V/256: Y2%=Y-256*V1%2 LPRINT CHR$(27) §CHRS(1 
6) 3CHRS(V1%) § CHRS(V¥22%) SNOS$35 NEXT Y 7"0" (2ND COLUMN) 
LPRINT CHRS(13) 3 *LINE FEED (GRAPHIC) 
LPRINT CHRS$(27) §CHRS(14) § CHRS (0) § CHRS (47) §NOS5 STRINGS (93, 128) s5NOS3STRINGS(9 
3, 128) 5N@S STRINGS (93, 128) NBSSSTRINGS (93, 128) sNOS§ 7*O" (SRD COLUMN) 
LPRINT CHRS(3Q) 5 CHRS(13) 5 "LINE FEED (NON-GRAPHIC) 
GOSUB 7080 "¥ AXIS WITH HASHMARKS 
RETURN 
7 HeeeHeee 7 X 10 BOLD PERPENDICULAR LETTERS #2 22ee44% 
AS=PX$+STRINGS (4, 227 )+CHRS (255 ) +CHRS (255 ) +CHRS (227) +CHRS (227) +CHRS(198)+CHR 
$(198) 
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9020 DS=PX$+CHRS (191) +CHRS (255 ) +CHRS (28) +CHRS (6) +CHRS (227 ) +CHRS (255 ) +CHRS (191) 
9038 FS=PX$+CHR$ (28) +CHRS(4)+CHRS (131) +CHRS( 159) +CHRS( 159) +CHRS (131) +CHRS(131)+C 
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HRS (255 ) +CHR$ (255) 


9048 JS=PX$+CHRS$ (158) +CHRS (191) +STRINGS (2, 179)+STRINGS (4, 176)+STRINGS$ (2, 248) 
9850 MS=PX$+STRINGS (4, 227) +CHRS (235 ) +CHR$ (235 )+CHRS (255 ) +CHRS (247) +STRINGS (2, 227 


) 


9068 NS=PX$+STRINGS (3, 227) +CHRS (243) +CHRS (251) +CHRS (239) +CHRS (231) +STRINGS(3, 227 
) 


9078 0$=PX$+CHRS (198) +CHRS$ (255) +STRINGS (4, 227) +CHRS (255 ) +CHRS (198) 
9088 PS$=PX$+STRINGS(4, 131)+CHRS( 191) +CHRS$(255)+STRINGS( 2, 227) +CHRS (255 ) +CHRS(191 


) 


9898 S$=PX$+CHRS (198) +CHRS (255) +CHRS (227 ) +CHRE (224) +CHRS (254) +CHRS( 191) +CHR$(131 


)+CHRS (227 ) +CHR$ (255 ) +CHRS (198) 


9186 RETURN 


10600 "s#eexeee X-AXIS LETTERING exxeeeax 


18018 GOSUB 92880 
10820 IF XL$="A" 
1@@30 IF XL$="D" 
16040 IF XL$="F* 
18050 IF XL$="J° 
1@068 IF XL$="M" 
10870 IF XL$="N" 
1@@88 IF XL$="0" 
16890 IF XL$="S" 
18180 RETURN 


THEN LPRINT 
THEN LPRINT 
THEN LPRINT 
THEN LPRINT 
THEN LPRINT 
THEN LPRINT 
THEN LPRINT 
THEN LPRINT 


PX$3A$3: 
PX$5C$55 
PXS5FS5 3 
PXS5J$35 
PXS5MS§ = 
PXS3NS$5 2 
PX$50$5 5 
PX$53S$55 


RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 


"###HEE CALCULATIONS FOR NEAR-EQUAL DOT SPACING ###%8« 
I=A-Z 

H=SQR(16@0 2+102)/188: PRINT "H="5H 

R=18#H 

RETURN 


With options one and two, no data-point symbols (circles, 
triangles, etc.) are plotted, but the connecting lines change 
their direction precisely where they should have been if you 
had wanted them. In fact, these turning points show pre- 
cisely where the center of each data-point symbol should be. 

If you're not happy with the appearance of the sales curve 
in Figure 9-1, then maybe you have good taste. The connect- 
ing line is almost a solid line when it is nearly horizontal, but 
with steep rises it has widely spaced dots. Is there anything 
we can do to remedy this? 

For a single-line graph, anyway, there is, or at least we can 
make the dots more nearly equal in their spacing. We can 
select options two and four, “near-equal spacing.” This shifts 
the program to calculations of R, and hence C and V as well, 
so that the number of dots between data values will vary with 
the vertical distance that they have to traverse. With 216 Yaic- 
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FIGURE 9-2. More nearly equal spacing of the dots in 
connecting lines (LINEGRAF program, option 2). 


inch line feeds to play with in each inch between data val- 
ues, and hundreds of dot columns for vertical positioning as 
well, we can calculate those combinations of line feeds and 
vertical change with each line feed that give us more equally 
spaced dots. 

Option two (near-equal dot spacing without data points) 
was used in the plotting of the same data in figure 9-2, and 
option four (near-equal dot spacing with data-point symbols) 
was used for plotting figure 9-3. If you count the number of 
dots between turning points in figure 9-2, you'll find that 
there are quite a few more of them than in figure 9-1 where 
the vertical intervals are large (e.g., between the second and 
third or third and fourth data values). Particularly when data 


BALES CIN STHOUSANDS) 


SALES CIN STHOUSBANDS>) 


FIGURE 9-3. A line graph having data point symbols with 
unequal (left) and nearly equal (right) spacing of connecting-line 
dots (LINEGRAF program, options 3 and 4). 


points make the turning points clearer, a better-looking 
graph results from the more-equal spacing. 

The calculations for options two and four (line 240 and 
subroutine 12000) make use of the Pythagorean Theorem (A? 
+ B? = H?, or the square of the hypotenuse, H, in a right 
triangle equals the sum of the squares of the other two sides, 
A and B). Line 12020 solves the Pythagorean equation for H 
(the hypotenuse), using the values 100 and I (the A —Z inter- 
val) for the two sides. The H value, which has a minimum of 


FIGURE 9-4. An assortment of data point symbols and their 
TRS-80 dot-code sequences. 


SYMBOLS FOR DATA POINTS 


STRINGS (2, 255) +STRINGS(3, 227) +STRINGS (2, 255) 


@ CHRS (136) +CHRS (156) +CHRS (198) +CHRS (255 ) +CHRS (198) +CHRS (156) +CHRS (136) 


% CHRS (227) +CHRS (247) +CHRS (198) +CHRS (156) +CHRS( 198) +CHRS (247) +CHRS( 227) 


O CHRS$( 156) +CHRS( 190) +STRINGS (3, 227) +CHRS( 198) +CHRS( 156) 


M@ STRING$(7,255) 


© CHRS$(136)+CHRS( 156) +CHRS (182) +CHRS (227) +CHRS (182) +CHRS (156) +CHRS( 136) 
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1.0, is multiplied by 18, the minimum number of line feeds 
allowed, to determine R, the number of dot-printing steps in 
the connecting line. The size of each line feed (V), which 
now varies as the program moves from one connecting line 
to the next, is determined by dividing 216 by R (line 250), as 
before. The overall spacing of the dots in the graph can be 
changed by changing the minimum number of line feeds 
allowed from 18 to some other number. 


Data points. The line graph in figure 9-3 is a more conven- 
tional one, with data-point symbols and connecting lines. 
The range of symbols available is very large if you realize 
how easy it is to make them out of dot patterns. Figure 9-4 
shows just a few of the many possible examples. Each of 
those shown involves a sequence of seven dot codes, but of 
course data-point symbols of much different size can also be 
used. 

Even after you have mastered the programming of con- 
necting lines, the line graph with data points is not as easy 
as it looks. It is all too likely that backspacing for exact posi- 
tioning of the data points will be forgotten, and if that hap- 
pens, the connecting lines won't be pointing directly at the 
centers of the data-point symbols. So notice in line 60 of the 
LINEGRAF program the backspace variable, BS, set to 7. 
This, used after CHR§$(8) in line 360, drops the circular data 
point 3% dot columns (recall that it takes two backspace units 
to make a difference of one dot column). Also notice the 
smaller backspace, CHR$(8);CHR$(2), used to lower the 
two-dot connecting line by one dot column (line 320). These 
backspace adjustments will make the center of each data 
point, not its bottom, appear at the correct height on the Y 
axis, and also make the connecting lines point directly at the 
centers, not the bottoms, of the data points. The latter can’t 
be guaranteed by these, because extra line feeds have an 
annoying way of fouling up the alignment of data points with 
connecting lines, too. 

Notice also that line graphs with data points will have a 
neater appearance, especially in comparison to most line 
graphs produced by pen plotters, if the connecting lines stop 
short of touching the data point. Putting in the desirable gap 
around each data-point print is accomplished rather easily by 
changing from the usual dot code for a dot in a connecting 
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FIGURE 9-5. A multiple-line graph produced by the 
MULTLING program for the DMP-400. 


line to a blank code (0 for IBM- and Apple-type printers, 128 
for TRS-80-type printers)—see line 310. 

While we’re still dealing with single-line graphs, we 
should note another type very often seen in scientific jour- 
nals. This is the kind that has many data points that are not 
joined by connecting lines at all but are summarized by a 
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continuous curve. The curve usually portrays some mathe- 
matical function, which has been arrived at through curve- 
fitting procedures (beyond the scope of this book). Once you 
have the equation for the curve, it can be plotted the same 
way that several curves at a time were plotted in the 
FUNCJAZZ programs (programs 5-3 and 5-4), before or after 
the data-point symbols have been plotted as in this chapter. 


Multiple-line graphs. Line graphs having two or -more 
“curves” are exemplified in figure 9-5. This is another com- 
mon type of graph in the scientific journals, and like the 
mean-and-standard-error bar graphs of chapter 9, standard- 
error verticals may be added to the data points. The new 
challenges to be faced in going beyond single-line graphs 
may be seen in program 9-2, MULTLING. 


PROGRAM 9-2. MULTLING. Multiple-line graph. 


10 "PROGRAM 9-2: “MULTLING® -- MULTIPLE-LINE-GRAPH PROGRAM 
15 ’Copyright (c) 1985 by John Warner Davenport 
28 *FOR TRS-80 DMP-400 PRINTER AND MODEL III (USE BOOTHE’S PRINTER DRIVER) 


3@ PNS=CHR$ (18) +CHRS(27)+CHRS (16) +CHRS(O) +CHRS (80) "80th DOT-COLUMN 
40 BSS=CHRS (38) +CHRS (8) +CHRS(3)+CHRS(18) *BACKSPACE (1 1/2 DOTS) 
38 EDS=CHRS (30) +CHRS (27) +CHRS (23) +CHRS( 18) "ELITE DENSITY 


69 YL$="PERCENTAGE CORRECT": TB=70-.5#LEN(YL$) 

7@ FOR N=1 TO 13 LPRINT CHRS$(3Q) §CHRS(27) §CHR$( 16) § CHRS(@) $ CHRS(@) § TAB( TB) 3 CHRS( 
27) § CHRS (14) § CHRS (27) § CHRS (18) § YL$§ CHRS( 27) § CHR$( 15) §CHR$(27) $CHRS(19) 32 NEX 
TN 

88 LPRINT CHR$(13)5 

9@ LPRINT CHRS(30) §CHRS(27) §CHRO(23)3:3 UL=888: GOSUB 2020 


180 GOSUB 6810 = GOSUB 7018 : GOSUB 5180 "Y-AXIS, NUMBERING, HASHMARKS 
118 GOSUB 498 "X-AXIS EXTENSION 

128 CTR=@ 

130 READ XL$,AR,BR,CR,DR "READ X-AXIS LABEL, FOUR RAW-SCORE VALUES 


148 A=1Q#AR-288: B=10*BR-200: C=10#CR-28@: D=10#DR-200 

15@ IF XL$="END* THEN GOSUB 5010 

16@ IF CTR>® THEN GOTO 200 

17@ GOSUB 3018 *PRINT DATAPOINTS 
168 PAZA: PB=B: PC=C: PD=D 

198 CTRaCTR+11 IF CTR=1 THEN GOTO 140 

200 IA=A-PAt IB=B-PBt IC=C-PC: ID=D-PD: KA=IA/72? KB=IB/72: KC=IC/72? KD=ID/72 
210 W=PA: X=PBt Y=PC: Z=PD 

220 PRINT “PA=*;PA3" °3"PB=°3PB3" "5*PCE";PC3* ";"PD="5PD 

230 PRINT * AB's AS* "3" Bets Bs" "3" C="; Cp" "3" Dm"; D 

240 PRINT *IA="ZIA3" "3" IB=°sIB3" "3*1C="Z1C3* "3° ID="5ID 

250 PRINT "KA="S$KA3" “s*KB="3KBs" "$°KC@"3KC$" "3 °KD=" $KD 

268 FOR N=2 TO 72 STEP 2 


278 GOSUB 618 "PRINT CONNECTING LINES 
260 NEXT N 


660 
678 
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GOTO 318 

FOR N=7@ TO 72 STEP 2: FOR NN=1 TO 2: GOSUB 4@5@ * NEXT NN: NEXT N 

W=0: X=Q: Y=@: Z=@ 

GOSUB 3018 "PRINT DATAPOINTS 

PA=A: PB=B: PC=C: PD=D 

CTR=CTR+1 

GOTO 148 

PRINT "JOB DONE’: END 

LPRINT CHR$(27) §CHRS(16) 3 CHRS(@) § CHRS (99) SSTRINGS (2, 156) § CHR$(27) § CHRS(16)§C 

HRS (QU) § CHRS (UU) SSTRINGS(2,156)5% RETURN 

DATA 1551.94, 64. 38, 79. 22,93. 33 

DATA 2,68. 48,58. 16,64. 80, 78.25 

DATA 3,57.58, 67.08, 70.65, 72.88 

DATA 4544. 12,50. 48,53. 44,57.92 

DATA END, -99,-99, -99,-99 

LPRINT CHR$(18) §CHRS(27) §CHRS( 146) § CHRS(@) § CHRS (99) § CHRS (255) § CHRS (255) § 
"BOTTOM X-AXIS 

GOSUB 2820 : LPRINT CHRS(27) § CHRS( 14) § CHRS(QU) 3 CHRS (UU) § CHRS (255) § CHRS (255) 

$2 GOSUB 4828 

LPRINT CHRS(27) § CHRS(16) 3 CHRS(@) § CHRS (99) SSTRINGS (2,255) § 

LPRINT CHRS$(27) 3 CHRS$(16) § CHRS(1) § CHRS (44) § CHRS (156) § 758% MARK 

GOSUB 28020 & LPRINT CHR$(27) 3 CHRS(16) 5 CHRS(QU) § CHRS (UU) § CHRS (255) § CHRS (255) 

3 "TOP X-AXIS 

RETURN 

FOR J=1 TO 3: GOSUB 438: GOSUB 4020: NEXT J 

RETURN 

FOR J=1 TO 12: GOSUB 4030: NEXT J 

RETURN 

QA=FIX(A/256)2 AA=FIX(A-256#QA) 

RETURN 

QB=FIX(B/256): BB=FIX(B-256*QB) 

RETURN 

QC=FIX(C/256): CC=FIX(C-2546#QC) 

RETURN 

QD=FIX(D/256): DD=FIX(D-2546#QD) 

RETURN 

SHHEERERHEEE PRINTING OF CONNECTING LINES #2 xxexeueeeenee 

IF CTR=@ AND N>70 THEN CC=128 ELSE CC=148 

IF CTR>@ AND N<é OR ND7@ THEN CC=128 ELSE CC=140 

QW=FIX(W/256) 2 WW=FIX(W-256*QW) 

LPRINT CD$3CHR$(27) § CHRS( 14) § CHRS (QW) § CHRS (WW) 5 BSS SSTRINGS(2,CC) 3 

W=eW+2#KA 

QX=FIX(X/256)& XX=FIX(X-256#QX) 


680 LPRINT CD$3CHRS(27) 3 CHRS( 16) § CHRS(QX) § CHRS(XX) 5 BSSSSTRINGS(2, CC) 3 
1880 X=X+2*KB 
1010 QY=FIX(Y/256): YY=FIX(Y-254#QY) 


1020 LPRINT CD$§CHRS(27) § CHRS(16) § CHRS (QY) § CHRS( YY) §BS$ STRINGS (2, CC) § 
18030 Y=Y¥+2#KC 


1040 QZ=FIX(2/256): ZZ=FIX(Z-256#QZ) 


1850 LPRINT CD$3CHRS$(27) 3 CHRS(16) § CHR$(QZ) §CHRE (ZZ) §BS$3 CHRS (128) SSTRINGS(2, CC) § 
1068 22=7+2#KD 


1076 GOSUB 378 
1080 IF N=4 OR N=1@ OR N=16 OR N=22 OR N=28 OR N=34 OR N=4@ OR N&46 OR Ne52 OR N 


1898 
2068 
2818 
2028 
2038 
2848 
2050 
5888 
3818 


5820 


35038 


5048 


3698 
3188 
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=38 OR N=64 OR N=7@ THEN LPRINT CHR$(27)3CHRS(146) 3 CHRS(1) 3 CHRS(44) 3 CHRS(18) 


§ CHRS (140) § "GRID LINE AT 50% LEVEL 
GOSUB 485@ :GOSUB 485@ :GOSUB 4@5@ 
RETURN 


"HEHEHE ERHEEHEREREEE CONVERSIONS OF UL AND H #arexteeneeeeneeneeene 
QU=FIX(UL/256) = UU=FIX(UL-256*QU) 
RETURN 
QH=FIX(H/256) 2 HH=FIX(H-256#QH) 
RETURN 
SHEEEREEERERRHRERERE PRINTING OF DATAPOINTS 4¢-2636--26-9-0244402404080% 
GOSUB 538 & LPRINT CHR$(3@) §CHRS(27) 3CHRS( 16) 3 CHRS(QA) 5 CHRS (AA) § CHR$(8) §CH 
RS (7) § CHRS (18) § CHRS (136) § CHRS( 198) § CHRS (255) § CHRS (255) § CHRS(255) sCHRE(19@) 3 
CHRS (156) § "FILLED CIRCLE 
GOSUB 55@ = & LPRINT CHRS(3@) 3 CHRS(27) §CHRS( 16) 3 CHRS(QB) § CHRS( BB) 3 CHR$(8) 3CH 
R$ (7) 3 CHRS (18) 3 CHRS (255) § CHR$ (255) § CHR (227) § CHRS (227)  CHR$(227) 3 CHRS(255) § 
CHRS (255) 5 "OPEN SQUARE 
GOSUB 578 = LPRINT CHR$(30) § CHRS(27) § CHRS(16) § CHRS(QC) § CHRS(CC) $CHR$(8) 3CH 
R$ (7) §CHRS$ (18) § CHRS (136) § CHRS( 154) | CHRS (198) § CHRS (255) § CHRS( 192) §CHRS( 156) § 
CHRS (136) 3 "FILLED DIAMOND 
GOSUB 59@ = LPRINT CHR$(3@) 3 CHRS(27) 3 CHR$( 14) § CHRS(QD) § CHRS(DD) $ CHR$(8) 3CH 
RS (7) 3 CHRS (18) § CHRS (227) § CHR (247) 3 CHRS (198) § CHRS (156) § CHRS (190) 3 CHRS (247) § 
CHRS (227) § "FAT °X" 
LPRINT CHR$(18) § CHR$(27) 5 CHRS(16) § CHR$ (QU) § CHR$ (UU-3) § CHRS (28) 3 CHRS(3) 3 CHRS 
(136) § CHRS (255) § CHR$ (255) § *TOP X-AXIS HASHMARK 
LPRINT CHR$(27) §CHRS(16) 5 CHRS(@) § CHRS(99) § CHRS (255) § CHRS(255) § CHRS(28) $ CHRS 
(3) § CHRS (136) § "BOTTOM X-AXIS HASHMARK 
ON VAL(XL$) GOSUB 8810, 8038, 8040, 8050, 8049, 8070, 8280, 8892, 8100, 8120 
RETURN 
HEHEHE EHHREEHREHEHHERE LINE FEEDS £44 RREHEREHKEREHREERERE 
LPRINT CHR%(3@) § CHRS (20) § CHRS (27) § CHR$(28) § CHRS(19) 32 RETURN 

*HALF-LINE FORWARD LINE FEED 
LPRINT CHR$(18)§$CHRS(10)32 RETURN "GRAPHIC LINE FEED 
LPRINT CHR$( 38) § CHRS( 28) 3 CHRS (27) § CHRS (30) § CHR$(19) 3: RETURN 

"HALF-LINE REVERSE FEED 


LPRINT CHRS(27)3CHR$(51)532 RETURN 71/216 LINE FEED 
LPRINT CHR$(27) 3CHRS(5@)532 RETURN 71/72 LINE FEED 
"RE EE eee TERMINAL (RIGHT-HAND) Y AXIS 43¢446334364656969-56569696-564636-8 60% 


INPUT "TERMINAL Y-AXIS (Y OR N)"5YNS 
IF YN$="Y" THEN INPUT "NUMBER OF SPACES FOR LABELING (0, 2, 4, 6, ETC.)"3NS 
: GOTO 5040 


IF YNS="N" OR YN$="NO" THEN GOTO 360 

FOR X=1 TO NS/2: GOSUB 430 : GOSUB 402@ =: NEXT x 

GOSUB 7020 

FOR H=208 TO UL-100 STEP 180: GOSUB 2040 : LPRINT CHR$(27) 3CHRS$(16) $CHRS(Q 
H) § CHRS (HH) § CHRS( 18) § CHRS(143)535 NEXT H "LONG HASHMARKS | 
FOR H=15@ TO UL-5@ STEP 180: GOSUB 2040 =: LPRINT CHRS(27) $CHR$(14) $CHR$(QH 
) § CHR$ (HH) 5 CHRS (18) § CHRS(140)5: NEXT H "SHORT HASHMARKS 

GOSUB 28620 : LPRINT CHR$(18) §CHR$(27) 3 CHRS(16) $ CHRS(@) §CHRS(99) §CHRS(191)3 


CHR$ (191) § CHRS (27) § CHRS( 16) § CHRS(QU) 5 CHRS (UU) § CHRS (191) 3CHRS(191) 
"END OF. X-AXES (BOTTOM & TOP) 
GOTO 368 
FOR H=2@8 TO UL-182 STEP 100: GOSUB 2040 =: LPRINT CHR$(27)3CHRS(16) $CHRS( 
QH) § CHR$ (HH) § CHR$( 18) 5 CHR$(248) 5: NEXT H "LONG HASHMARKS 
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FOR H=15@ TO UL-5@ STEP 108: GOSUB 2048 = LPRINT CHRS$(27) $CHRS(16) 5 CHRS(QH 
) § CHRS$(HH) § CHRS (18) §CHRS(152)52 NEXT H *SHORT HASHMARKS 
FOR H=99 TO UL STEP UL-99: GOSUB 2040 : LPRINT CHR$(27) 5 CHRS(16) 5 CHRS(QH) § 


CHR$ (HH) 3 CHRS( 18) § CHRS (254) § CHRS(254) 55 NEXT H BEGINNING OF X-AXES (BO 
TTOM & TOP) 


GOSUB 4020 
RETURN 


7 eeeRHEHHHRHRRER Y-AXIS NUMBERS (5 X 7 PERPENDICULARS «422k kHHHHHEERHREREE 
P$=CHR$ (18) +CHRS (27) +CHRS (16) 


LPRINT P$3$CHRS(3) § CHRS(29) § CHRS( 184) SSTRINGS (4, 144) 5 CHRS (152) § CHRS(144) 5 
ii Os 
GOSUB 4020 


LPRINT P$3CHRS(@) §CHR$(197) $STRINGS (2, 144) 5 CHRS(19@) § CHRS (148) 5 CHRS( 152) 3ST 
RING$(2, 144) 3 7048 


LPRINT P$3CHRS(1) 5 CHRS( 41) 3 CHR®( 156) § CHRS( 162) STRINGS (2, 160) § CHRS( 158) § CHR 
$(130) 5 CHRS(198) § ee” Ji 


LPRINT P%3CHRS(1)3CHRS( 141) 3 CHRS (156) STRINGS (2, 162) § CHRS (154) § CHRS (130) 5CH 
RS(162) § CHRS (156) § 7*6* 


LPRINT P$$CHR$(1)3CHRS(241) SSTRINGS(3, 132) § CHRS (136) § CHRS( 144) § CHRS( 1468) § CH 
RS( 198) 5 i i 
LPRINT P$3CHRS(2) § CHRS(85) § CHR$( 156) SSTRINGS(2, 162) 5 CHRS (156) SSTRINGS(2, 162 
»3 CHRS( 156) § "8" 
LPRINT P%3CHRS(2) $ CHRS( 185) 3 CHR$( 156) § CHRS (162) 3 CHR$( 168) § CHRS (172) SSTRINGS 
(2,162) 3 CHRS( 156) § 7g” 
LPRINT P$3CHRS(3) 3CHRS(29) 3 CHRS(156) SSTRINGS(5, 162) § CHRS( 156) § 7*9° 
GOSUB 4820 
FOR X=97 TO 797 STEP 1@@: QX=X/256: QXZ=QX! XX=X-256#QXZ2 LPRINT P$§CHRS(Q 
X%) § CHRS(XX) §CHRS( 1546) SSTRINGS(5, 162) § CHR$( 156) 35 NEXT X 
GOSUB 40108 :GOSUB 4018 
RETURN 
> EEEEEEERERERHEEREREEERERERE AXIS LINES 2HEHEREREREEEEKERHEEEREREN 
LPRINT CHRS(18) $CHRS(27) 3 CHRS(16) § CHRS(O) 5 CHR (99) 5 CHRS (28) § CHRS (201 ) 5 CHRS ( 
134) 3CHR$ (28) 3 CHRS (250) 3 CHR$ (134) $ CHRS(28) § CHRS (250) 3 CHRS(134)55 RETURN 

"VY AXIS (LEFT) 
LPRINT CHR$(18) 3CHRS(27) $CHRS(16) § CHRS(@) 3 CHRS$(99) SSTRINGS (201, 176) SSTRINGS 
(250, 176) STRINGS (250,176)52 RETURN ’Y AXIS (RIGHT) 
> RERRREERRHHEKEEERHE 7 X 10 BOLD PERPENDICULAR NUMBERS 3424424224 EHHH 


LPRINT PN$3CHR$( 188) 3 CHRS( 188) 3 CHRS (28) 5 CHRS(5) § CHRS( 152) § CHRS( 156) § CHRS(15 
2)3CHRS(144)55 RETURN ar 

LPRINT PN$5;CHRS(28) § CHRS(3) §CHR$(156)52 RETURN eee 

LPRINT PN$3CHR$ (255) 5 CHRS$(255) § CHRS( 131) § CHRS (134) § CHRS (188) § CHR$ (248) § CHRS 
(224) 5 CHRS (227) § CHR9(255) 3 CHR$(198) 52 RETURN aa 4a 

LPRINT PNS3CHRS(19@) 5 CHRS (255) 3 CHRS (227) § CHR$ (224) 5 CHRS (188) 5 CHRS (188) 5 CHRS 
(224) 3 CHR$ (227) § CHR$ (255) § CHRS(190)35 RETURN ees 

LPRINT PNS3CHRS(176) §CHRS (176) § CHRS( 176) § CHRS(255) § CHRS (255) § CHRS (179) 5 CHRS 
(182) § CHR$ (188) § CHR$(184) §CHR$(176)33 RETURN 784" 


LPRINT PNS$3CHRS (198) § CHRS(255) 5 CHR$(227) SSTRINGS (2, 224) § CHRS (191) § CHRS (159) 
3 CHR$ (131) $STRING$(2,255)523RETURN °*°5° 

LPRINT PNS;CHRS$( 198) §CHRS(255) sSTRINGS (2, 227) § CHRS (255) 3 CHRS (191) § CHR$(131) 
3 CHR$ (227) 3 CHR$(255) §CHRS$(198)§2RETURN °*°6°* 

LPRINT PNS3STRINGS (3, 134) 5 CHRS (140) § CHRS(152) § CHRS (176) SSTRINGS (2, 224) 3STRI 
NG$ (2, 255) § RETURN ieee ds 


LPRINT PNS$CHRS$(198) 3 CHRS$(255) sSTRING$(2, 227) SSTRINGS (2, 198) SSTRINGS (2, 227) 
3 CHR$ (255 ) § CHRS (190) § SRETURN 7*8° 
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816@ LPRINT PNS$$CHRS$( 198) §CHRS(255) § CHRS(227) § CHRS(224) § CHRS (254) §CHRS (255) sSTRI 
NGS$ (2, 227) § CHR$ (255) 3CHR$(198)53 RETURN ’°9°* 

81108 LPRINT CHRS$(18) §PNS3CHRS( 190) § CHRS (255) SSTRINGS (46, 227) § CHRS (255) § CHRS (198) § 
2 RETURN 

8120 LPRINT CHRS (3) § CHRS (28) § CHRS (27) § CHRS (38) § CHRS (19) § CHRS (27) § CHRS(5Q) § CHRS ( 
18) SPNSSSTRINGS (2, 188) STRINGS (5, 152) § CHRS( 1546) § CHRE( 152) § CHR$( 144) § CHRS(10 
) SPNS § CHRS (198) 3 CHRS (255) SSTRINGS (6, 227) § CHRS (255) § CHRS(190)33 RETURN 

7®10° 

8130 LPRINT CHRS (30) § CHRS (28) § CHR$ (27) 3 CHRS (30) §CHRS$(19)3: GOSUB 4058 : GOSUB 8@ 
38 : GOSUB 4028 : GOSUB 405@ : GOSUB 4058 : GOSUB 8110 = GOSUB 4030 : RETUR 
N »899" 

8140 LPRINT CHRS(3@) § CHRS(28) § CHRS (27) § CHR (38) § CHRS(19) 3 GOSUB 485@ : GOSUB 8@ 
38 : GOSUB 482@ : GOSUB 405@ : GOSUB 485@ : GOSUB 8118 : GOSUB 4030 : RETUR 
N »8® 49°" 


For one thing, using nearly equal dot spacing for connect- 
ing lines of varying slope (see figure 9-2) is out of the ques- 
tion when you have two or more sets of connecting lines to 
worry about. For another thing, you now have more than one 
dot print, and perhaps four or five, for drawing the connect- 
ing lines in each pass of the printhead. 

But the latter turns out to be an easier programming task 
than you might think. With a single line feed (say “2-inch) 
applying to several curves in the graph, you simply have 
several differences, instead of only a single difference be- 
tween two data point positions, to be divided by the number 
of line feeds between the data points. As with MULTLING’s 
lines 200 and 210, you have to type in a few more letters and 
numbers to calculate the connecting-line dot positions, but 
it's hardly any more work for the computer and printer. 

The higher the printing density, the more the connecting 
lines in line graphs will look like real lines that are closer to 
professional publication standards for graphs. But they will 
still fall far short of what you can achieve manually with 
plastic drafting tapes for the connecting lines. The graph in 
figure 9-6, which would pass muster with most scientific jour- 
nals, has solid and dashed plastic tapes covering the original 
printer-drawn connecting lines. This graph shows that stan- 
dard-error verticals can be programmed in line graphs as 
readily as in bar graphs. It also shows another way the com- 
puter can be used for labeling a graph: Seven-by-ten bold 
perpendicular letters were printed by the WRDCRAFT pro- 
gram (program 7-2) for the axis labels and the upper title, and 
pasted on the graph (in both perpendicular and upright ori- 
entations). This labeling could have been programmed (as 
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FIGURE 9-6. A MULTLING-produced graph with connecting 
lines made by hand with plastic drafting tapes and manually 
pasted labels printed by the WRDCRAFT program. 


with figures 1-3 and 8-8), but sometimes under time pressure 
it makes more sense to do it by using the printer as a typeset- 
ter and pasting than by adding more subroutines to a pro- 
gram. | 


Alphabetic characters as data point symbols. Although the 
older graphics manuals say you should never have more than 
three or four curves in a line graph, there are times when 
there is no choice but to have many more. This is the case 
with plotting major-league baseball pennant races, where the 
number of different curves in the graph depends on the num- 
ber of teams in the league or division. See figure 9-7, which 
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FIGURE 9-7. A baseball title-race graph having programmed 


connecting lines and letter abbreviations as data point symbols 
(the 1972 American League East race, won by the Milwaukee 


Brewers). 
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charts the progress of the seven teams in the American 
League Eastern Division that were battling it out for the 
1982 title. 

Switching from the usual data-point symbols to letters of 
the alphabet, which can also play the important role of abbre- 
viations, makes the graph reader’s task fairly easy, even with 
a seven-curve graph. The program that generated this graph 
uses perpendicular five-by-eleven condensed letters for the 
data points. It also introduces a technique for dealing with 
ties between teams by printing their letter symbols side by 
side instead of one on top of the other. This involves moving 
one letter a half-line-feed backward and the letter tied with 
it a half-feed forward. If there is a three-way tie, then whole 
reverse and forward line feeds place two letters on either 
side of a normally positioned letter. 

If you want a more detailed comparison of computer-drawn 
vs. manually placed connecting lines and other features in a 
line graph, compare figure 9-7 with the pennant-race graph 
back in the first chapter (figure 1-4). While the data for these 
two figures were not the same (1982 vs. 1984 races), the pro- 
grams for them were highly similar. The main differences 
between them are that the connecting lines in figure 1-4 
were done with a variety of Formatt tapes, the grid lines (as 
well as the connecting lines) in figure 9-7 were done by the 
computer and printer, and most of the lettering and labeling 
in figure 1-4 was cut and pasted. This is one of several dem- 
onstrations of the fact that the more complex graphs often 
can't be completely done in a satisfactory way by the average 
dot-matrix printers of today—some of the finishing touches 
have to be done by hand for a good result—but a large part 
of the most detailed and tedious work in the plotting can be 
handled quite nicely by the printer. 


Range Graphs 


Figure 9-8 has our first example of a range graph. In the 
program for this graph (PNTRANGE, program 9-3), succes- 
sive sets of scores read from a disk datafile are sorted so that 
lowest and highest values in each set can be identified. Con- 
necting lines, calculated the same way as for data points, 
connect all the highest values and all the lowest values sep- 
arately. For smoothness of the connecting lines, Y72-inch line 
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feeds are used along with condensed dot packing. To empha- 
size the open range area between the upper and lower limits, 
vertical lines extend upward from the bottom X axis and 
downward from the upper X axis to the range boundaries. 
Such vertical lines can also be drawn with every line feed, 
so that a solid black area surrounds the range area, or only 
with every pair of range values, to make it easier to see where 
those values fall on the X axis. Still another option is to use 
shaded bars with a standard graphic line feed instead of these 
vertical lines, and not bother with connecting lines at all (see 
figure 9-11). Printing time, and wear and tear on the printer, 
would be greatly reduced with the latter variation, and in- 
deed large graphs may call for programmed pauses to prevent 
the printer from overheating. This is especially a danger with 
the DMP-400 when bold, condensed printing is done contin- 


PROGRAM 9-3. PNTRANGE. Point-and-range or rank-and- 
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*PROGRAM 9-3: "PNTRANGE" -- FOR RANGE, POINT-&-RANGE, AND RANK-&-RANGE GRAPHS 
"Copyright (c) 1985 by John Warner Davenport 

"FOR MICROSOFT-BASIC COMPUTERS AND DMP-400 PRINTER 

LPRINT CHR$(3Q) 3 CHRS(27) § CHRS (32) 3 CHRS(27) 5 CHRS(19)§3 *RESET 

CLEAR 2080 >(NOT NECESSARY FOR COMPUTERS WITH DYNAMIC STRING STORAGE 
PS=CHRS (27)+CHRS(16) 2 POS=CHRS(27)+CHRS(16)+CHRS(O) >POSITIONING STRINGS 
Pi$=CHR$ (27 )+CHRS(16)+CHRS(1) y- . 

GOSUB 7018: GOTO 98 "GET NUMBER DEFINITIONS 
LPRINT CHRS(18) 5 PO$§ CHRS(31) SSTRINGS(2, 254) § P15 CHRS (207) SSTRING$(2,254)38 RE 
TURN "SEGMENT OF X AXIS 

YI=FIX(Y/256): Y2=FIX(Y-256*#Y1)s RETURN 

FOR LF=1 TO 21: LPRINT CHRS(27)3CHR$(51)$*s NEXT LF: RETURN 721/216" LF 

FOR LF=1 TO 15: LPRINT CHR$(27) 5CHR$(51)3:3 NEXT LF: RETURN °15/216° LF 
INPUT “FILE NAME"SFL$: GOSUB 8000 "DETERMINE # OF TEAMS (NT) 


100 PRINT “SELECT STATISTIC TO BE PLOTTED:" 
110 PRINT ° 1. WON-LOST PERCENTAGE" 
120 PRINT " 2. TEAM HOME RUNS TOTAL" 


13@ PRINT “ 3. TEAM BATTING AVERAGE" 
146 PRINT " 4. TEAM SLUGGING AVERAGE" 
130 PRINT ° 5. TEAM STOLEN BASES TOTAL" 
160 PRINT ° 6. TEAM FIELDING AVERAGE" 
170 PRINT ° 7. TEAM TOTAL WALKS YIELDED* 
186 PRINT “ 8. TEAM STRIKEOUTS PITCHED" 
190 PRINT “ 9. TEAM EARNED RUN AVERAGE" 


200 INPUT "YOUR SELECTION (1 - 9)"3V 
218 ON V GOSUB 2010, 2028, 2030, 204, 28508, 2068, 2070, 2080, 2090 
228 INPUT "HIGHLIGHTED TEAM (BOS,NYY, PHI, BAL,WAS, CLE, DET, CHI, MIL,STL»yKCA,KCR, TEX 


»CAL,OAK, OR SEA)"5TS ’CHANGE ABBREVIATIONS FOR NATIONAL LEAGUE 
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INPUT "Y-AXIS LABELING (Y OR N)°3YNS 

INPUT "CONNECTING LINES (Y OR N)*3CQS 

INPUT "VERTICAL LINES (Y OR N)"§LQS 

INPUT "INTERMEDIATE VERTICAL LINES (Y OR N)"5IQS 

IF LEFT$(YN$,1)="N®° THEN GOTO J80 

IF LEFTS(YN$,1)="Y" THEN GOTO 280 

PRINT “STATISTIC: “3STAT$, "HIGHLIGHTED TEAM: *3T% 

LPRINT CHRS(3Q) § TAB(TB) 5 CHR$(27) § CHRS(14) §STATS§ CHR$ (27) §CHRS(15)5= GOSUB 87 
ON V GOSUB 5000, 5090, 5198,5290, 5418, 5588,5680,5678,5778 °*Y-AXIS LABELING 
LPRINT CHR$(18)3CHRS(18)5 "LINE FEED 

LPRINT CHRS(18) 3 PQ@%3 CHRS$(32) SSTRINGS (223, 134) SSTRINGS(218, 134) § 7¥ AXIS 
FOR Y=32 TO 47@ STEP 72: GOSUB 85: LPRINT CHRS(18) §PS§CHRS(Y1) §CHRS(Y2) 3 CHRS 
(252)$32 NEXT Y "HASH MARKS 


FOR N=1 TO 2 

GOSUB 82 

GOSUB 6038 "LINE FEED 

NEXT N 

LPRINT P@$3CHRS(32) SSTRINGS (223, 132) 5STRINGS(210,132)5 "BEGINNING VERTICAL 


DIM YR$(NT) »WPS(NT) »HRS(NT) , BAS(NT) »SAS(NT) »SBS(NT) »FAS(NT) » BBS(NT),SOS(NT), 
ERAS(NT),CS(NT), IVS(NT+1) 


D OPEN "I", 1, FLS 


FOR D=1 TO NT 

INPUT #1, YRS(D),WPS(D) »HRS(D),BAS(D) sSAS(D) ,SBS(D) ,FAS(D), BBS(D) ,S08(D),E 
RA$(D) 

PRINT YR$(D)§" “SWPS(D)3" "SHRS(D)§" "SBAS(D)§" “SSAS(D)5" "SSBS(D)§"° "SFA 
$(D)5° "S$BBS(D)3" “§SOS(D)5"° "SERAS(D) 
NEXT D 
ON V GOSUB 3010, 3030, 3050, 3670, 3098, 3110, 3138, 5150,3170 *SET UP STATISTIC T 
O BE SORTED 
GOSUB 48280 "SORTING OF TEAMS ON SELECTED STATISTIC 
LX=MeB+12 HZ=M*A+I 2 UZ=MeP+I 8° # DOT-COLUMNS FOR LOW, HIGH, TEAM POSITIONS 
LIZ=FIX(LZ/256) 2 L2Z=FIX(L“Z-256%L17) 
MIZ=FIX((L%-32)/256) M2Z=FIX((L%-32)-2562M1%)= IF M14>0 THEN M1%=255 ELSE M 
1%=08 
IF UZ>255 THEN Q=1 ELSE Q=8 
IF Q=1 THEN UZ=UZ-256 
IF UZ=9 THEN UZ=8 *>DETOUR AROUND TROUBLE CODE 9 
H1Z=FIX(HZ/256) 3 H2Z4=F IX (HA-256#H17) 
UV=463-H7: UX=FIX(UV/256): UW=FIX(UV-256#UX)s IF UX>@ THEN V1=255 ELSE V1=@ 
IF YR$(1)="1901" OR YR$(1)="1961" OR YRS(1)="1969" OR YR$(1)="1977° THEN GOT 
0 550 ELSE GOSUB 700 7CHANGE "1961" TO "1962" FOR NATIONAL LEAGUE 
REM -- FOR RANGE GRAPH ONLY, CHANGE "GOTO 550" TO “GOTO 588" IN LINE 530 
ON S GOSUB 1018, 1020, 1030, 1042, 1050, 10460, 1078, 1088, 1090, 1100, 1110, 1120, 1130, 
1140 "PRINT NOS. 1 TO 14 (CRANK-&-RANGE GRAPH) 
LPRINT P$§CHR$(L1%) § CHRS(L27%) § CHRS (3) § CHRS (8) § CHRS (3) § CHRS (18) § CHRS (136) § CH 
R$ (156) 5 CHRS (136) § "LOW POINT SYMBOL 
IF LQ$="N* OR LQS="NO" THEN GOTO 680 
LPRINT CHRS(18) §POS§ CHRS (28) SSTRINGS(3, 136) SSTRINGS (2, 198) SSTRINGS (M12, 136) § 
STRINGS (M27, 136) § "LOW POINT VERTICAL LINE 
LPRINT P$3CHRS(H1Z) § CHRS(H2%) § CHRS (30) § CHRS(8) § CHRS (3) § CHRE (18) § CHRS (136) §CH 
R$( 156) § CHRS (136) 5 "HIGH POINT SYMBOL 
IF LQ$="N* OR LQ$="NO" THEN GOTO 620 
LPRINT PS§CHRS(H1Z) § CHRS(H2ZZ) SSTRINGS(V1, 136) SSTRINGS (UW, 136) § CHRS (27) § CHRS( 
16) 5 CHRS$(1) 5 CHRS (207) SSTRINGS(2, 198) § "HIGH POINT VERT. LINE 


628 


965 


970 
975 
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IF RIGHTS(YR$(1),1)="5" OR RIGHTS(YRS(1),1)=°@° THEN LPRINT P@$3CHRS(@) 3 CHRS 
(38) 3 CHRS$ (27) § CHRS( 17) SYRE(1) § CHRS(27) § CHRS( 19) § CHRS( 18) $PO$5 CHRS( 26) SSTRING 
$(5,136)5 

IF RIGHTS(YR$(1),1)="5" THEN FOR Y=182 TO 390 STEP 72: GOSUB 85: LPRINT CHR$ 
(18) §P$5 CHRS(Y1) 5 CHRS(Y2) SSTRINGS(2, 128) § CHR$(190)§= NEXT Y 

IF RIGHTS(YR$(1),1)="@° THEN LPRINT CHRS(38) §PO$5 CHRS(33) SSTRINGS (72, "-") 58 
FOR Y=1@2 TO 398 STEP 72: GOSUB 685: LPRINT P$$CHRS(Y1) §CHRS(Y2) §CHRS(18) 3STR 
ING$(2, 128) § CHR$(255)§5 NEXT Y 

IF V=1 THEN FL=156 ELSE VL=128 

LPRINT P@$3 CHRS$( 32) § CHRS(18) 5 CHRS (156) § POS3 CHRS (248) § CHRS(FL) §P1$§ CHR (288) § 
CHR$ (156) § 

PLZSLZ5 PUZ=UZ! PHZ=H% 

IF EOF(1) THEN GOTO 945 

GOTO 400 

"HEHHHEEREREEE SUBROUTINE FOR PRINTING CONNECTING LINES *#eeeeteHeHHEHE 

IF CQ$="N* OR CQ$="NO° THEN GOSUB 9888: RETURN ’OMIT CONNECTING LINES 

§T=32 "NUMBER OF STEPS 


BD LFS=CHR$(27)+CHRS(51) 71/216° LINE FEED 


IL=(LY%-PLYZ)/ST# IU=(U%-PUZ)/ST? IH=(H%-PH%) /ST 

CL=PL%+IL: CU=PUZ+IU: CH=PH%+IH 

FOR CF=1 TO ST 

CAZ=FIX(CL/256)! C2%=FIX(CL-256#C1%)! IF C2%=9 THEN C2%=8 

C3%=FIX(CU/256)? CA%=FIX(CU-256#C3%) 2 IF C4%=9 THEN C4%=8 

CS%=FIX(CH/256)? CO%=FIX(CH-256%C5%)! IF C6%=9 THEN C6%=8 

PRINT “CF="3CF3" CL="5CL3*  CU="5CU3" "5CH 

LPRINT LFS; | 

LPRINT P$§CHRS(C1%) 3 CHRS(C2%) § CHRS (38) § CHRS (8) § CHRS (2) 3 CHRS (18) sSTRINGS(2, 14 
@) $P$3CHR$(C5%) § CHRS(C4%) § CHRS(3@) § CHRS(8) § CHRS (2) § CHRS (18) SSTRINGS(2, 140) 3 
LPRINT P$$CHR$(C3%) § CHRS(C4%) § CHRS(3O) 3 CHRS(8) § CHRS(1) § CHRS(18) § CHR (136) § 
IF CF=INT(.25#ST) OR CF=INT(ST/2) OR CF=INT(.75#ST) THEN GOSUB 882 
CL=CL+IL: CU=CU+IU: CH=CH+IH 


D NEXT CF 


LPRINT LF$3 

RETURN 

"eteeeeHHHHEE SUBROUTINE FOR INTERMEDIATE VERTICAL LINES ###eeeexe2HHH% 

IF IQ$="N" OR IQ$="NO" THEN RETURN 

ALZ=FIX((CL-32)/256)2 A2Z=FIX((CL-32)-256#A1%): IF A1%>@ THEN A1%=255 
UD=465-CH? DIZ=FIX(UD/256)3 D2Z=FIX(UD-256#D1%): IF D1%=@ THEN £1%=0 ELSE E1 
4=255 


LPRINT CHRS(18) §P$3 CHRS(O) 3 CHRS (31) SSTRINGS(2, 198) SSTRINGS(A1%, 136) STRINGS ( 
A2%y 136) § 


BD LPRINT P$§CHRS(C5Z) § CHRS(C4Z) SSTRINGS(E1%, 136) §STRINGS(D2%, 136) $P$3 CHRS(1)3C 


HRS (207) SSTRINGS(2, 198) § 

RETURN 

"##eee CLOSING OF FILE, PRINTING OF TERMINAL (RIGHT) AXIS «xexeeee 

CLOSE 1 

PRINT “FILE CLOSED" 

INPUT “TERMINAL Y-AXIS (Y OR N)"3TY$S 

IF LEFTS(TY$,1)="N*° THEN GOTO 985 

IF LEFTS(TY$,1)="Y" THEN LPRINT CHR$(18) §PQ%53CHRS(31) sSTRINGS(2, 255) STRINGS 
(222, 136) §STRINGS (210, 136) §PS§ CHRS (1) § CHR$ (207) SSTRINGS (2, 136) 5 CHRS (10) 5 
LPRINT CHRS(18) §P@$3 CHRS (32) SSTRING$( 223, 176) STRINGS (218, 176) § 


FOR Y=6 TO 78 STEP 6: LPRINT CHRS(3@) $TAB(Y) 3 CHR$(245)32 NEXT Y 
HASHMARKS 
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980 LPRINT PO$3CHRS(31) §CHRS(18) SSTRINGS (2,191) §P$§ CHRS( 1) § CHRS (207) SSTRINGS(2, 1 


91)5 


985 PRINT “JOB COMPLETED® 
998 END 


1000 
1018 


18208 


1030 


7 PHREHE 
LPRINT 
TURN 

LPRINT 
N25 8 
LPRINT 
3N3$5 5 
LPRINT 
3N4$3 5 
LPRINT 
sN5S$5 5 
LPRINT 
sN6$5 8 
LPRINT 
sN7$353 
LPRINT 
3N8BS 52 
LPRINT 
3N9$3 3 
LPRINT 
SNNS§ 3 
LPRINT 
s3NES§ 2 
LPRINT 
SNWS3 5 
LPRINT 
SNRS3 2 
LPRINT 


PRINTING OF NUMBERS 1-14 OR BLACK SQUARE **«x## 
CHRS (30) 3 CHRS (27) § CHRS (16) 3 CHRS(Q) § CHRS (UZ) § CHRS(8) §CHRS(7) §NIS3° RE 


CHRS (38) 3 CHRS (27) § CHRS( 14) § CHRS(Q) § CHRS (UZ) § CHRS (8) 5 CHRS(7) § CHRS (18) 
CHRS (30) $ CHRS(27) $CHRS (14) $CHRS(Q) 5 CHRS (UZ) |CHRS(B) $ CHRS(7) ;CHRS (18) 
CHRS (38) $ CHRG(27) 4CHRS(16) 4CHRE(Q) FCHRA(UE) sCHRS(B) 4CHROC7) 1 CHRO(18) 
CHR (3B) $ CHRS(27) $CHRS (18) $CHRS(Q) ;CHRS (UZ) | CHRS(B) 4CHRS (7) 5 CHR®(18) 
CHRS (3B) § CHR (27) 4CHRS (14) $CHRB() SCHRS (UZ) 1 CHRS<B) 4CHRS(7) ;CHRS(18) 
CHRS (3B) §CHRS(27) 4 CHRS (16) 4 CHR (Q) sCHRES (UN) | CHAS (B) $CHRS(7) 5 CHRS (18) 
CHRS (30) 3 CHRS(27) $CHRS( 16) $ CHRB(Q) ;CHRS (UL) § CHRS (A) .CHRS(7) }CHRS (18) 
CHRS (30) {CHRO(27) }CHROC16) ;CHRE(Q) SCHRE (UT) ;CHRS() }CHRSC7) 5 CHS (18) 
CHRS (30) $ CHRE(27) 4 CHR (16) 4CHRS(Q)sCHRE (UZ) |CHRS(B) 4 CHREC7) 1 CHRS(18) 
CHRS (330) § CHRS (27) $CHRS (14) $CHRS(Q) § CHRS (UZ) $CHRE(B) $CHRE(7) $CHRS (18) 
CHRS (730) $CHRG(27) $CHRO( 14) CHRS(Q) SCHR (UZ) 4 CHR (B) sCHRE(7) sCHRS( 18) 
CHRS (730) $ CHRS(27) $CHRS( 14) $CHRS(Q) sCHRES (UX) | CHR (8) sCHRS(7) s CHR (18) 
CHRS (38) #CHRS(27) 5 CHRS(16) 4 CHRS <Q) sCHRE(LUZ) SCHRS(B) .CHRE(9) sCHRE(18) 


3 CHR$ (255) § CHR$ (221 ) § CHRS (221 ) § CHRS (197) § CHRS(213) § CHRS (285) § CHRS (221) § CHRS 
(221) § CHR$(255)3 3 RETURN 

7eeeeeeeee NAME OF STATISTIC, TAB STOP FOR LABELING Y AXIS #xeexxenxze 
STAT$S="WON-LOST PERCENTAGE’: TB=23: RETURN 

STAT$=" TEAM HOME RUNS TOTAL": TB=22: RETURN 

STATS="TEAM BATTING AVERAGE’: TB=22: RETURN 

STAT$="TEAM SLUGGING AVERAGE’: TB=22: RETURN 

STAT$="TEAM STOLEN BASES TOTAL": TB=20: RETURN 

STAT$="TEAM FIELDING AVERAGE": TB=22: RETURN 

STAT$="TEAM TOTAL WALKS YIELDED": TB=19: RETURN 

STAT$="TEAM STRIKEOUTS PITCHED": TB=20: RETURN 

STAT$="TEAM EARNED RUN AVERAGE”: TB=203 RETURN 

> EREEEEEEEER SORTING PARAMETERS 24444 EREEEREEN 


FOR D=1 
FOR D=1 
FOR D=1 
FOR D=1 
FOR D=1 
FOR D=1 
D FOR D=1 
FOR D=1 
FOR D=1 


TO NT& 
TO NT 
TO NTs 
TO NTs 
TO NT: 
TO NT? 
TO NTE 
TO NT: 
TO NT 


IV$(D)=WPS(D): 
1V$(D)=HR$(D) 
IV$(D)=BA$(D): 
IV$(D)=SA$(D): 
IV$(D)=SBS(D): 
IV$(D)=FAS(D): 


NEXT Ds 
NEXT Ds 
NEXT Ds 
NEXT Ds 
NEXT D: 
NEXT D: 


M=.725 
M=1.8% 


T=-112: RETURN 
T=322 RETURN 
M=3.6: I=-688: RETURN 
M=1.8:3 I=-436: RETURN 
M=.9: I=32: RETURN 
M=7.2: I=-6628: RETURN 
IV$(D)=BB$(D): NEXT Ds M=.72: -I=-112: RETURN 
IV$(D)=SO$(D)& NEXT Di M=.36: I=-48: RETURN 
IV$(D)SERAS(D)2 NEXT Di M=72: I=-4@8 RETURN 
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"eeeenHeee SORTING OF TEAMS BY STATISTIC sexeuxene 
F242 IF V=8 OR V=9 THEN F=5 
FOR D=1 TO NT? IF RIGHTS(IV$(D),3)=T$ THEN IV$(D)=LEFT$(IV$(D),F-1)4+T$! GOT 
0 4030 
NEXT D 
PRINT "NOW SORTING TEAMS BY ";STATS$ 
SWITCH=0 
FOR D=1 TO NT 
IF I1V$(D)<IV$(D+1) THEN SWAP IV$(D),IV$(D+1)2 SWITCH=SWITCH+1 
NEXT D 
PASS=PASS+1: PRINT "PASS=";PASS 
IF SWITCH>@ THEN GOTO 4831 ELSE PRINT “SORTING FINISHED": PASS=@ 
FOR Z=NT TO 1 STEP -1 
IF V=7 OR V=9 THEN E=(NT+1)-Z ELSE E=Z 
PRINT IV$(Z)yZyE 
C$(Z)=1V$(Z)+STRE(E) 
IF MID$(C$(Z),Fy3)=T$ THEN P=VAL(LEFT$(C$(Z),F—-1)) S=VAL(RIGHT$(C$(Z),2) 
) PRINT T$,"P="5P,"S="5S 
NEXT Z 
A=VAL(IV$(1))% BEVAL(IVS(NT)) 
RETURN 
HHEREEREREREERE Y-AXIS LABELING 44RREEHEEREERERSE 
 ae- a= -------=- WON-LOST PERCENTAGE ----------------------------------- 
FOR Y=38 TO 462 STEP 72! GOSUB 85! LPRINT CHR®(18) §P%$CHRS(Y1) §CHRS(Y2) ;STR 
ING$(2,224)3: NEXT Y: GOSUB 87 "DECIMAL POINTS 
LPRINT P@$3CHRS(3@) 3N2$5POS§ CHRS( 182) §N3$5 POS $ CHRS (174) §N4$5 PBS CHRS (246) §N 
5% $P1$5 CHRS (62) 3N6$$P1$5 CHRS( 134) 5N7$$P1$5 CHRS(206) jNB$§2 GOSUB 87 
FOR Y=38 TO 462 STEP 72: GOSUB 85: LPRINT P$;CHRS(Y1)$CHRS(Y2) 3NO$5: NEXT Y 


GOSUB 87 

FOR Y=38 TO 462 STEP 72: GOSUB 85: LPRINT P$;CHRS(Y1);CHRS(Y2) §NOS$}3 NEXT Y 
GOSUB 6830 4/72" LINE FEED 

RETURN 

I een nnn nanan === === === TEAM HOME RUNS ----------------------------- 
GOSUB 6830: LPRINT CHR$(18) 3PQ$3CHR$(246) 3N1$5P1$$CHRS(62) 5N1$3 


FOR Y=390 TO 462 STEP 72: GOSUB 83: LPRINT P%§CHRS(Y1) 3 CHRS(Y2) §N2$§2 NEXT 
Y=: GOSUB 87 

FOR Y=102 TO 462 STEP 368: GOSUB 85: LPRINT P$3CHRS(Y1) §CHRS(Y2) §N4952 NEXT 
Y 

LPRINT P@%3CHRS(174) 5NBS3P135 CHRS (62) §N6$5 P15 CHRS (154) 5NOS§ PBS § CHRS (246) §N 

2$35 GOSUB 87 

FOR Y=30 TO 462 STEP 72: GOSUB 852 LPRINT P$3CHRS(Y1) §5CHRS(Y2) §N@$5: NEXT Y 
: GOSUB 46830 

RETURN 

[aaeaSeSeSenS sess — TEAM BATTING AVERAGE =<<=<<9--—< 9-89-8993 - <= 

FOR Y=3@ TO 462 STEP 72: GOSUB 85: LPRINT P%3CHRS(Y1) 5 CHRS(Y2) 5 CHR$(18) 5STR 
ING$(2,224)§3 NEXT Y ’DECIMAL POINTS 

GOSUB 87: FOR Y=30 TO 318 STEP 72: GOSUB 85: LPRINT P$$3CHRS(Y1) §CHRS(Y2) §N2 

$53 NEXT Y 

FOR Y=398 TO 462 STEP 72: GOSUB 85: LPRINT P$3CHRS(Y1)§5CHRS(Y2) 5N3$32 NEXT 

Ys GOSUB 87 

FOR Y=38 TO 398 STEP 360: GOSUB 85: LPRINT PS3CHRS(Y1) § CHRS(Y2) §NOS38 NEXT 

Y 
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5249 FOR Y=102 TO 462 STEP 348: GOSUB 85: LPRINT P$$CHRS(Y1) 3 CHRS(Y2) §5N2$5 = NEXT 
Yy DF cs 

5258 LPRINT P@$3CHRS(174) 3N4$$3 POS$ CHRS (244) $N6S5 P1353 CHRS(62) §NBS32 GOSUB 87 

5268 FOR Y=3@ TO 442 STEP 72: GOSUB 85: LPRINT P$3CHRS(Y1) 5 CHRS(Y2) 5NOS§$2 NEXT Y 

53278 GOSUB 6838 4/72" LINE FEED 

3288 RETURN 

9290 2 Rees Sees ssa ee TEAM SLUGGING AVERAGE ----r rr nmr rrr rrr rrr 

5300 FOR Y=3@ TO 462 STEP 72: GOSUB 85: LPRINT CHR$(18) §P$§$CHRS(Y1) 5 CHRS(Y2) 5STR 
ING$(2,224)§8 NEXT Yi GOSUB 87 "DECIMAL POINTS 

5320 LPRINT P@$3CHRS(3Q) 3NZ2$53 POS 53 CHRS( 102) 5N3S 5 POS§ CHRS (174) §N3S 5 POS § CHR (246) §N 
3$$P1$5 CHRS (62) §N495P1S3 CHRS (134) §N495P193 CHRS (206) §N5$5% GOSUB 87 

5360 FOR Y=3@ TO 390 STEP 360: GOSUB 85: LPRINT P$3CHRS(Y1) 3 CHRS(Y2) §N6S3= NEXT 
Y 

5370 FOR Y=1@2 TO 462 STEP 36@: GOSUB 85: LPRINT P$3CHRS(Y1) §CHRS(Y2) 3NOS§2 NEXT 
Y 

5380 LPRINT P@$3CHRS( 174) 3N495 POS§ CHRS (244) NBS 3P1$5 CHRS(62) §N2$§2 GOSUB 87 

5398 FOR Y=3@ TO 462 STEP 72: GOSUB 85: LPRINT P%;CHRS(Y1) 3CHRS(Y2) $NOS5= NEXT Y 

3395 GOSUB 6830 74/72" LINE FEED 

3480 RETURN 

9410) S443 ==52-2 TEAM STOLEN BASES TOTAL -mrrr rrr rrr rrr rrr rrr rrr rrr 

5420 GOSUB 6030: LPRINT CHR$(18) §P@$3CHRS(174) §N1$5POS5 CHRS (245) §N2S5P19§5 CHRS (62 
) §N3$§P1%$§ CHRS( 134) §N4S§P1$3 CHRS (2046) §N4S5 

545@ GOSUB 87: LPRINT P@$;CHRS( 102) §NBS5PBS§ CHRS (174) §NGS 5 POS 5 CHRS (246) §N455 P1S§ 
CHRS (62) 5N295P1$§ CHRS( 134) §NOS53P1%5 CHRS (206) §NBS3*° GOSUB 87 

5478 FOR Y=38 TO 462 STEP 72: GOSUB 85: LPRINT P$3CHRS(Y1) §CHRS(Y2) §NOS32 NEXT Y 


53488 GOSUB 6839 74/72" LINE FEED 

3498 RETURN 

2208 SSee=SSSe===——4 527 > —— TEAM FIELDING AVERAGE -mwnnn rrr rrr rrr rrr rrr rrr nnn 

5510 FOR Y=3@ TO 462 STEP 72: GOSUB 85: LPRINT CHRS(18) §P$3CHRS(Y1) §CHRS(Y2)5STR 
ING$(2,224)§2 NEXT Y= GOSUB 87 "DECIMAL POINTS 

553@ FOR Y=3@ TO 462 STEP 72: GOSUB 85! LPRINT P$3CHRS(Y1)§CHRS(Y2Z) 5N9S32 NEXT Y 
: GOSUB 87 


5550 LPRINT PQ@S3CHRS (38) §N2$5 POS 5 CHRS( 102) §N3S 5 POS§ CHRS (174) §N4S 5 POS 5 CHRS (246) §N 
5$3P1$3 CHRS(462) §N6$§P19§ CHRS( 134) §N7$$P1%3 CHRS (206) §NBS5=2 GOSUB 87 

5578 FOR Y=38 TO 462 STEP 72: GOSUB 85: LPRINT P$§CHRS(Y1) 3 CHR$(Y2) §N5$532 NEXT Y 

358@ GOSUB 46830 4/72" LINE FEED 

3398 RETURN 

2608 = S SSeS e TEAM TOTAL WALKS YIELDED were n reer n nnn rrr 

5618 GOSUB 6830: LPRINT CHRS( 18) §P@$5 CHRS (30) §N2% 5 POS § CHRS (102) §N3S 5 POS § CHRS( 174 
)3N493 P@Ss CHRS (246) §N5$5 P1895 CHRS (62) §N6$§ P1935 CHRS( 134) §N7$3P1%§ CHRS (206) §NB 
$3 

5620 GOSUB 87: FOR Y=38 TO 462 STEP 72: GOSUB 85: LPRINT P$§3CHRS(Y1) 5 CHRS(Y2) 5NO 
$33 NEXT Y: GOSUB 87 

5640 FOR Y=38 TO 462 STEP 72: GOSUB 85: LPRINT PS$§$CHRS(Y1) §CHRS(Y2) 5NO$$= NEXT Y 

34658 GOSUB 6830 74/72" LINE FEED 

3668 RETURN 

9610. ener sente se =-—- TEAM STRIKEOUTS PITCHED ~----—-n-n nnn nnn nnn nnn 

5688 GOSUB 87: FOR Y=318 TO 462 STEP 72: LPRINT CHR$(18) 5P1%§ CHRS(Y-256) 5N1$55 N 
EXT Ys GOSUB 87 

3708 LPRINT POS$§ CHRS (38) §N2$5 POS § CHRS ( 182) §N4$5 PBS § CHRS (174) NOS 5 POS § CHRS (246) §N 
8S 5P1$53 CHRS (62) §NBS3P1$5 CHRS( 134) §N265P1$5 CHRS (206) §N4352 GOSUB 87 

3738 FOR Y=38 TO 462 STEP 72: GOSUB 85: LPRINT P$§CHRS(Y1) §CHRS(Y2) 5NOS§s NEXT Y 
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GOSUB 87 
FOR Y=38 TO 462 STEP 72: GOSUB 85: LPRINT P$3CHRS(Y1)  3CHRS(Y2) 3N@$3s NEXT Y 
"SECOND *O" COLUMN 


GOSUB 4830 74/72" LINE FEED 

RETURN 

 SSSsSo54S=e eS S== TEAM EARNED RUN AVERAGE ----------------------------- 
GOSUB 87: LPRINT CHR$(18) 5PO$§ CHRS(3Q) §N1$§POS5 CHRS( 102) 5N2$5POS5CHRS(174) § 


N3$ 5 POS § CHRS (246) 3N4$ 5 P1$5 CHRS (62) §N5S§P1S§ CHRS( 134) §N6$§P1$5 CHRS (206) §N7$3 

GOSUB 87: FOR Y=30 TO 462 STEP 72: GOSUB 85: LPRINT CHR$(18) 5P%3CHR$(Y1)5CH 

R$(Y2) SSTRINGS(2,140)5=5 NEXT Y=: GOSUB 88 "DECIMAL POINTS 

FOR Y=30 TO 462 STEP 72: GOSUB 85: LPRINT P%$CHRS(Y1)3CHRS(Y2) §N@S3z NEXT Y 

GOSUB 87 

FOR Y=3@ TO 462 STEP 72: GOSUB 85: LPRINT P$§CHRS(Y1) 3 CHRS(Y2) §NOS3s8 NEXT Y 
"SECOND "0" COLUMN 


GOSUB 46030 4/72" LINE FEED 

RETURN 

 HHEHKERHHHHERE LINE FEEDS 440440442 

LPRINT CHRS$(27)§CHRS(5@) § CHR$(27) § CHR$(5O) § *2/72° 
FOR LF=1 TO 42 LPRINT CHR$(27)3CHRS(5Q@)32 NEXT LF °4/72" 


 HEEEHHHRERHKEREEE 5 X 11 CONDENSED PERPENDICULARS #222 teee 


y CDS=CHRS (30) +CHRS (27) +CHRS(20)+CHRS(18)2 NMS=CHRS (38) +CHRS (27) +CHRS(19) 


N1$=CD$+CHR$ (156) +STRINGS (7, 136) +CHRS (140) +STRINGS (2, 136) +NMS 

N2$=CD$+CHRS (198) +STRINGS(2, 130)+CHRS(132)+CHRS (136) +CHRS(144)+STRINGS(2, 16 
@)+STRINGS (2, 162) +CHRS( 156) +NMS 

N3S=CDS+CHR$ (156) +STRINGS (2, 162) +CHRS( 148) +CHRS (144) +CHRS (156) +CHRS(144)+CH 
R$ (160) +STRINGS (2, 162) +CHRS( 156) +NMS 

N4$=CDS+STRINGS (3, 144) +CHRS( 198) +CHRS(146)+CHRS( 146) +CHRS( 148) +CHRS(152)+ST 
RINGS (3,144) +NMS 

N5$=CD$+CHRS (156) +STRINGS(2, 162) +STRINGS (3, 168) +CHRS (158) +STRINGS(3, 130)+CH 
R$ (190) +NMS 

N6$=CD$+CHRS (156) +STRINGS(4, 162) +CHRS (158) +STRINGS (2, 138) +STRINGS(2, 162)+CH 
R$ (156) +NMS 

N7$=CD$+STRINGS (3, 132)+STRINGS(2, 136) +STRINGS(2, 144) +STRINGS(2, 168) +CHRS(16 
2) +CHRS (198) +NMS 

N8S=CD$+CHRS (156)+STRINGS(3, 162) +CHRS( 148) +CHRS (156) +CHRS(148)+STRINGS(3, 16 
2)+CHRS (156) +NMS 

N9$=CD$+CHRS (156) +STRINGS (2, 162) +STRINGS(2, 1460) +CHRS( 188) +STRINGS (4, 162)+CH 
R$ (156) +NMS 

NO@S=CD$+CHRS (156) +STRINGS (9, 162)+CHRS (156) +NMS 
HMS=CDS+STRINGS (4, 128)+STRINGS(3, 198) +STRINGS( 4, 128) +NMS 

NNS=CD$+CHR$ (183) +STRINGS (8, 202) +CHR$ (283) +CHRS( 178) +NMS 

NES=CD$+CHRS (247) +STRINGS(8, 162) +CHRS( 179) +CHRS( 162) +NMS 

NWS=CD$+CHRS$ (255 )+STRINGS (3, 138) +CHRS(146)+CHRS( 162) +STRINGS (2, 194) +CHRS(19 
7)+CHRS (235 ) +CHRS (178) +NMS 

NR$=CD$+CHRS (183) +STRINGS(2, 202) +STRINGS (2, 194) +CHRS (178) +STRINGS (2, 194)+CH 
R$ (202 ) +CHRS (203) +CHRS (178) +NMS 

DP$=CHR$(18)+STRINGS(7,255) *BLACK SQUARE DATAPOINT 

GOTO 7288 

N1IS=DPS$: N2S=DP$: N3S=DP$:2 N4$=DP$2 N5SS=DP$: N6S=DP$: N7$=DPH2 NBS=DPS: NGS 
=DP$: N@S=DP$: NES=DP$: NWS=DP$: NRS=DPS 

RETURN 

"#eeee FILE NAMES AND NUMBER OF TEAMS ***%% 

IF FLS="AL@1T06@" OR FLS="NL@1T061" THEN NT=8 
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8820 IF FL$="AL61T068" OR FL$="NL62T068" THEN NT=10 

8030 IF FL$="ALE4976" OR FL$="ALW6976" OR FL$="NLES90N" OR FLS="NLW69ON" THEN NT 
=6 

8040 IF FL$="ALE770N* OR FL$="ALW770N" THEN NT=7 

8850 IF FL$="ALEW6976" OR FL$="NLEW690N* THEN NT=12 

8060 IF FLS="ALEW770N" THEN NT=14 

8070 RETURN 

FOOD HHKEEHEHHEREER PLOTTING WITHOUT CONNECTING LINES #444 HHHHHHHEHEHEERHEE 

9218 FOR XA=1 TO 4: GOSUB 82: LPRINT CHRS(27) §CHRS(5Q) § CHRS(27) 5 CHRS(5@) 55 NEXT 
XA: *X-AXIS SEGMENTS 

9099 RETURN 


uously for over fifteen minutes. (Overheating of the printer's 
printhead is not so much of a danger as overheating of its 
positioning and bold-printing mechanisms.) 


Point-and-range graphs. If we now add a set of data points 
running between the upper and lower limits of a range 
graph, we have what is called a point-and-range graph. This 
is a nice form for sweeping historical graphs in sports graph- 
ing that show how one team does in relation to the best and 
worst teams each year over a period of many years. In figure 
9-9’s point-and-range graph, the won-lost percentage of the 
Chicago White Sox is represented in the context of the whole 
range of won-lost percentages in the American League from 
1901 through 1960. This is one of many graphs that can be 
produced by the PNTRANGE program when it accesses a 
databank containing the performance of all major-league 
baseball teams on nine different team statistics. 


Rank-and-range graphs. A more informative product of 
the PNTRANGE program is the rank-and-range graph (figure 
9-10), in which the highlighted team’s performance is shown 
by numbers that stand for the team’s rank in each year’s final 
standings. How do we get these rank numbers? The same 
way we got the upper and lower limits—from the subscript 
of the array into which all teams’ won-lost percentages have 
been sorted each season. 

Rank-and-range graphs are not always entirely a form of 
line graph. Figure 9-10 shows a rank-and-range graph that is 
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FIGURE 9-10. A rank-and-range graph using rank numbers as 
data points (the Chicago White Sox, dubbed the “Hitless 
Wonders,” vs. the American League range in team batting 
average). 


partly a bar graph in that it uses shaded bars to show the 
range. This is a quick-and-dirty graph—quick because it 
takes only a fraction of the time to plot what the PNTRANGE 
form of rank-and-range graph requires, and dirty because the 
numerical data points for the highlighted team are connected 
by hand. Also, that team’s league-leading and league-trailing 
years are emphasized with dry-transfer white-on-black num- 
bers. 

The PNTRANGE program is designed to be used for sim- 
ple range graphs, point-and-range graphs, and rank-and- 
range graphs. It is a long program mainly because it deals 
with nine different statistics and up to fourteen different 
teams. Subroutines 3000 and 4000, for example, are all con- 
cerned with sorting the teams and generating positioning 
values for the best, worst, and highlighted team of each year, 
but it takes many lines to do these things in slightly different 
ways for different statistical measures. Also, nine different 
ways of labeling the Y axis (subroutines 5000-5770) require 
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GAMES OVER OR UNDER .5S00 


. 


FIGURE 9-11. A variation of the rank-and-range graph that 
shows the Boston Braves’ miraculous rise from last place to first in 
winning the National League pennant in 1914. The black area 
represents the range of the other seven teams in the league in 
won-lost percentage over the season. (Figure 12-7 in chapter 12 
shows how printouts of this sort, having no X-axis lines, are used 
in multipanel graphs.) 
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many more lines than the sorting does. This is a lot of effort, 
but that will seem like a bargain when you realize that after 
slightly expanding the program to cover National as well as 
American League teams, it will generate at least 234 differ- 
ent point-and-range or rank-and-range graphs (nine measures 
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times twenty-six teams) and at least 18 different range graphs 
(nine measures times two leagues). 

Black-white reversal can make the rank-and-range graph 
more elegant, especially if the highlighted team is plotted 
against the range of the other teams instead of all teams. See 
an example of this approach in figure 9-11. In the program 
that drew this (not listed), the black background is slowly 
drawn using a %16-inch line feed, a fresh ribbon in the 
printer, and a single pin of the printhead at a time. To avoid 
making any one of the printhead pins take more than its share 
of wear and tear, the program uses seven pins, one at a time, 
in a rotating order. 

If the highlighted team is within the range of the other 
teams, the solid black printing is interrupted (by a shift to a 
blank code) to create the white-on-black connecting line and 
to make white space available for the printing (in black) of 
the highlighted team’s rank. If the team is above or below 
the range of the others, its position is shown by a black rec- 
tangle containing a white rank number, and its connecting 
lines are black. Another example of this kind of graph ap- 
pears in the final chapter (figure 12-7). 


Tandem Bar-and-Line Graphs 


Bar and line graphs in combination can pack a lot of infor- 
mation into fairly small spaces. They can also help interpret 
information by revealing relationships, and they can often be 
efficient in having two sets of data shown with a common X 
axis. 

Back to baseball again for an example (figure 9-12). In this 
case a bar graph is used to show the batting output of one 
player (Ted Williams, when he ended the season with a .406 
batting average in 1941) on a game-by-game basis in the 
lower part of the graph. Meanwhile, the player’s batting av- 
erage (hits divided by times at bat) is displayed by a line 
graph in the upper part. 

For data input the program that produced this double dis- 
play requires the date, location, a four-digit number from the 
day’s box score (giving at-bats, runs, hits, and runs batted in), 
and an indication of how many singles, doubles, triples, and 
home runs the player hit that day. The latter four are con- 
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FIGURE 9-12. A combination bar-and-line graph showing Ted Williams’s 
daily batting output in 1941. (Adapted with permission of Macmillan 
Publishing Company from Boston Red Sox by Henry Berry and Harold 
Berry, graphics by John W. Davenport. Copyright © 1984 by Macmillan 
Publishing Company, a division of Macmillan, Inc.) 


verted to rectangles of differing size that become the com- 
ponents of the total-bases measure in the lower portion of the 
graph (as in the segmented bar graph, figure 8-4). The date 
and location can be printed between the bar and line graphs, 
or if that strikes you as being too cluttered, you can put those 
at the bottom or top or leave them out entirely. 

As with some of our recent examples of line graphs, this 
tandem graph was produced almost entirely by the computer 
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and printer, with only a few manual finishing touches (in the 
labeling in this case, not the connecting lines). It may make 
the programmer feel proud to avoid those touches, but they 
usually go a long way toward improving the appearance and 
clarity of the graph. We’ll keep running into this issue. 


10 
... And More Graphs 


THERE are several more types of graphs that can’t be 
classed as bar or line graphs. Among others, these include 
scatterplots, ladder graphs, and pie charts. 


Scatterplots 


With all the talk lately about how the outcome of the Super 
Bowl has forecast the direction of the stock market almost 
perfectly over the past eighteen years, we ought to take a 
closer look. If you haven’t heard about this, here’s a recap: 
In 1970, a merger took place in which the teams of the Amer- 
ican Football League (AFL) became part of the National 
Football League (NFL). Prior to the merger, four Super 
Bowls were played between the American and National 
Football League champions; subsequently (through 1984), 
fourteen Super Bowls have been played between the top two 
teams of the expanded NFL. Except in 1984, every year in 
which a team that was originally in the NFL has won the 
Super Bowl, the Standard & Poor’s five-hundred-stock aver- 
age, measured from January 1 to December 31, has gone up. 
Conversely, in every year that the winner was a team origi- 
nally from the AFL, the same stock average has gone down. 
And even in 1984, when the Los Angeles Raiders, a former 
AFL team, won by a big margin, there was only a meager 
1.04 rise in the S&P index, as if the Raiders’ victory had 
amputated the “second leg of the bull market” that most 
investors had expected to develop in 1984. 
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If this has all happened by chance, it seems to be a statis- 
tical wonder. On the surface, it appears that through 1983 the 
Super Bowl outcome predicted the stock market change for 
seventeen years in a row. In random guessing at a two- 
outcome event, the likelihood of being correct seventeen 
times out of seventeen is one chance in 131,072, and being 
correct seventeen times out of eighteen (including 1984) by 
chance also has a tiny probability—one in 13,107. But it 
isn’t this simple. 

Table 10-1 has all the Super Bowl scores and stock market 
figures. One thing to notice right away is that in four Super 
Bowls (1971, 1975, 1979, and 1980) both teams were former 
NFL teams. And while the stock index went up in all four of 
those years, the cleanest way to calculate the likelihood that 
the overall relationship is due to chance is to throw out the 
data for those years. That leaves us with thirteen out of thir- 
teen through 1983 and thirteen out of fourteen through 1984, 
amounting to one chance in 8,192 through 1983 and one 
chance in 1,072 if we include 1984—both of which are still 
very small probabilities. 

A more interesting way of examining this relationship is to 
run a correlation and look at the data in a scatterplot. We can 
do this by plotting the point spread in each Super Bowl’s 
final score (call that X) and that year’s rise or fall in the S&P 
market average (call that Y) together in the same chart. 

Figure 10-1 is a scatterplot of these data that was produced 
by program 10-1, PEARSONR. Besides drawing the graph, 
this program calculates the Pearson correlation coefficient 
(r), which indicates the strength of association between the 
X and Y variables. The Pearson r can vary from — 1.0 (perfect 
negative correlation) through 0 (no correlation) to + 1.0 (per- 
fect positive correlation). In the scatter graph the point 
spread (defined by subtracting the AFL score from the NFL 
score) and stock market index are plotted for each year. The 
usual practice of plotting filled circles or other typical data 
points has been abandoned in favor of a more informative 
method of using two-digit prints identifying the years. Notice 
that the years in which two NFL teams played each other are 
not included and that 1984 is. 

Here we see that the correlation between Super Bowl out- 
comes and stock-market changes is +.55. This also is un- 
likely to be due to chance: With fourteen pairs of scores, the 
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X VARIABLE! POINT SPREAD (NFL-AFL) Y VARIABLE! CHANGE IN STOCK INDEX 
-3 -2 ~1 0 +1 +2 +3 
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zx 

Pearson r= .549589 

Mean of Y = 2.61286 SD of Y = 19.6564 (CHANGE IN STOCK INDEX) 

Mean of X =-.571429 SD of X = 17.8658 (POINT SPREAD (NFL-AFL)) 
FIGURE 10-1. A scatterplot showing how Super Bow] outcomes 
have related to annual changes in the stock market from 1967 to 
1984 (PEARSONR program). Also see table 10-1. 


likelihood of the true value of r being 0 is only about four in 
a hundred. (Before 1984, the correlation was +.60 with about 
the same probability.) Compared to that seventeen-out-of- 
seventeen probability we started with, though, this is pretty 
modest, and those who insist on a 1% level of confidence 
would say that the correlation is not significantly different 
from zero. But remembering the “oz for thirteen out of four- 
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TABLE 10-1 
Super Bow! Outcomes and Changes in the Standard & Poor’s Stock Market Index 


Point Spread Market Change 


Year Score (NFL-AFL) (+2up, -=down) 
1967 Green Bay (N) 35, Kansas City (A) 10 +25 415.73 
1968 Green Bay (N) 33, Oakland (A) 14 +19 + 7.62 
1969 N. Y. Jets (A) 16, Baltimore (N) 7 - 9 -11.63 
1970 Kansas City (A) 23, Minnesota (N) 7 -16 - 1,02 
1971 Baltimore (N) 16, Dallas (N) 13 + 3% 410.69 
1972 Dallas (N) 24, Miami (A) 3 +2] +16.77 
1973 Miami (A) 14, Washington (N) 7 - 7 -27.75 
1974 Miami (A) 24, Minnesota (N) 7 -17 -21.80 
1975 Pittsburgh (N) 16, Minnesota (N) 6 +10* +20.,84 
1976 Pittsburgh (N) 21, Dallas (N) 17 + 4 +16.96 
1977 Oakland (A) 32, Minnesota (N) 14 -18 -12.83 
1978 Dallas (N) 27, Denver (A) 10 +17 + 1,38 
1979 Pittsburgh (N) 35, Dallas (N) 31 + 4* +11.79 
1980 Pittsburgh (N) 31, Los Angeles Rams (N) 19 +12* +28 .06 
1981 Oakland (A) 27, Philadelphia (N) 10 -17 -13.11 
1982 San Francisco (N) 26, Cincinnati (A) 21 + 5 +18.56 
1983 Washington (N) 27, Miami (A) 17 +10 +46 .67 
1984 L. A. Raiders (A) 38, Washington (N) 9 -29 + 1.04 
1985 San Francisco (N) 38, Miami (A) 16 +22 ? 


* Both teams were former NFL teams. 


Point spread 2 winner - loser. 
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teen, logic is on the side of those who conclude that the 
Super Bowl and stock market outcomes are really related. 

Why these two variables should be related is, of course, 
obvious. It is well known that most investors in stocks are 
older, more conservative types who grew up and became 
football fans before there even was an AFL. Naturally, they 
developed deep loyalties to old NFL teams like the Wash- 
ington Redskins, Pittsburgh Steelers, and Green Bay Pack- 
ers. And just as naturally, whenever in more recent years one 
of these teams won the Super Bowl, it made them happy and 
put them in a more optimistic frame of mind, whereas they 
became growling bears when an old AFL team won. The 
remarkable thing is that their bullish or bearish moods per- 
sisted for eleven more months each year, driving the market 
prices up or down accordingly. 


PROGRAM 10-1. PEARSONR. Correlation scatterplot for 
Pearson r situations. 


"PROGRAM 10-1: "PEARSONR® -- CORRELATION SCATTERPLOT 


"Copyright (c) 1985 by John Warner Davenport 


18 "FOR TRS-80 MODEL III (W/ BOOTHE’S DRIVER) OR MODEL 4 AND TRS-80 PRINTERS 
20 CLEAR 38808 

58 DIM TAGS (288), ZX (288), ZY( 288), C$( 288), MFS(280) 

40 INPUT "NAME OF X VARIABLE® 3Xv$ 

3@ INPUT "NAME OF Y VARIABLE" ;YV$ 

68 GOSUB 1018 "MASTER RESET (PRINTER) 

78 INPUT “IS YOUR COMPUTER A TRS-88 MODEL III (Y OR N)"3CQ$ 

8@ INPUT "DO YOU WANT THE REGRESSION LINE PLOTTED (Y OR N)*"5RQ$ 

9@ READ TAGS, X,Y 

92 IF TAG$="71" OR TAGS="75" OR TAG$="79" OR TAG$="88" THEN GOTO 98 
95 IF TAG$="N" THEN GOTO 98 

160 IF TAG$="DONE" THEN GOTO 148 

110 XX=X#X2 YY=Y#Y: XY=X#Y: N=N+1 

128 TX=TX+X= TY=TY+Y¥: QX=QX+XX:2 QY=QY+YY: SP=SP+XY 

138 GOTO 98 

146 PRINT "END OF FIRST DATA INPUT. N="5N3" PAIRS OF SCORES." 


REM —- MODEL III USERS: CHANGE 4s TO LEFT-BRACKET SYMBOLS FOR EXPONENTIATIO 
N IN LINES 15@ AND 198 

VX=(N#QX—(TX42))/ (N#(N-1) ) SVY¥=(N#QY-(TY42) )/(N#(N-1)) * VARIANCES 

SX=SQR(VX)=s SY=SOR(VY) "STANDARD DEVIATIONS OF X & Y 

MX=TX/N: =TY/N "MEANS OF X & Y 

PRINT "MEAN OF X="SMX5" S.D.OF X="sSX3" MEAN OF Y="sMY3° S.D. OF Y="5SY 
RR=(N#SP-TX#TY) /SQR( (N#QX-TX42) #(N#QY-TY42) ) ”RAW-SCORE CALCULATION OF PE 
ARSON r 

PRINT “PEARSON r (FROM RAW-SCORE FORMULA) ="3RR 

RESTORE 

FOR I=1 TO N 

READ TAG$,X,Y 

IF TAGS="71" OR TAGS="75" OR TAG$="79" OR TAG$="8@" THEN GOTO 2238 
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235 IF TAG$="N° THEN GOTO 238 

237 IF TAG$="DONE* THEN GOTO 328 

2h@ ZX(1)=(X-MX)/SX!2 ZYCTI=CY-MY)/SY2 ZZ=ZX(1)#ZY(1)2 TAGS(I)=TAGS 
258 SCP=SCP+ZZ *SUMMATION OF CROSS-PRODUCTS (ZX(1)#ZY(TI)) 


268 R=SCP/N *CALCULATION OF PEARSON r FROM Z -SCORES 

278 ZY(1)=INT(18B#ZY (1) +588) *CONVERT ZY(I) TO 208-888 SCALE 

288 ZX(1)=INT(188#ZX (1) +588) "CONVERT ZX(1I) TO 208-888 SCALE 

298 C$(I)=STRS(ZY(1) 4" "+TAGS(I)+STRS(ZX(T)) >FORM STRING ARRAY 
380 PRINT "C$(1)="5CS(1) 

318 NEXT I 


320 PRINT "END OF DATA INPUT. R="3R3" “S"LAST C$(1)="5§CS(N) 

33@ IF CQ$="N* OR CQ$="NO" THEN GOSUB 18880: GOTO 35@ "SHELL-METZNER SORT 
348 NZ=N: CMD "0°, NZ, C$(1) "RAPID SORTING OF C$(I) ON MODEL IIT 

358 PRINT “ORDERED Y VALUES:° 

368 FOR I=N-1 TO @ STEP -! 

378 PRINT TAB(5)5CS$(1)515 

388 NEXT I 

39@ LPRINT TAB(12)3"X VARIABLE: "3XV$3"  Y VARIABLE: “5YV$; 

498 GOSUB 9999 = GOSUB 9998 


418 GOSUB 46888 *NUMBERING OF TOP X AXIS 
428 GOSUB 9998 : GOSUB 9990 

438 GOSUB 3018 >TOP X AXIS, HASHMARKS 
450 FOR J=828 TO 188 STEP -18 

455 JMJ+1@ 


469 I=N-1: IF I=@ THEN GOTO 498 

47Q ZY(I)=VAL(LEFTS$(C$(1),4) ) 2ZX(1)=VAL (RIGHTS (C$(1),4))2 TAGS(I)=MIDS(C$(1),6,2 
) 

472 PRINT "J="sJd_"JM=" sdM, "ZY(1)="5ZY(1) 5 “YEAR=" 5 TAGS(I), °ZX( T=" 5 ZX(T) 

489 IF ZY(1)<=JM AND ZY(1I)>J THEN GOSUB 85@@ = N=N-1: GOTO 468 *PRINTING OF DA 
TAPOINT 

490 IF RQS="Y"° THEN K=(J-498)/188: RL=K/R: B=7@#(RL+3)+45 

5@@ IF B>45 AND B<463 THEN GOSUB 9580 *PRINTING OF POINT ON THE REGRESSION LI 
NE 

520 GOSUB 9998 : GOSUB 9888 : GOSUB 8810 "LINE FEED, L & R Y AXES 

539 IF J=18@ THEN GOSUB 4@2@ : GOSUB 9999 : GOSUB 9998 =: GOSUB 68808 =: GOSUB 9998 

: GOSUB 2888 =: GOTO 980 

5508 NEXT J 

988 PRINT "JOB DONE” 

998 END 

1009 *seeeeneeeeeee MASTER RESET (PRINTER) #282222 ERERERE 

191@ LPRINT CHRS(39) 3 CHRS$(27) 5 CHR$(23) 3 CHRS (27) § CHRS( 15) § CHRS (27) 5 CHRS (32) § 

1020 GRS=CHRS$(18)+CHRS (27 )+CHRS$ (16) 

1838 RETURN 

POGD ? HHEEREEREEEEEE STATISTICAL REPORT 2ExEHEERESEERELERELE 

28018 GOSUB 99990 

2028 LPRINT CHR$(30)3TAB(11)$"Pearson r="; 

2038 LPRINT TAB(1@)5°Mean of Y ="5MY3° SD of Y 

2048 LPRINT TAB(1@)5;"Mean of X ="sMX5" SD of X 

2658 RETURN 

3GOO ? HEREREREEEEEREEE PRINTING OF TOP X AXIS S#HEEEEEEEEEEEREERE 

3910 LPRINT GRS3CHRS(@) 3 CHRS$ (44) sSTRINGS (2, 255) sSTRINGS (2089, 131) SSTRING$(3, 255) § 
STRINGS (288, 131) sSTRINGS$(2,255) 5 

3928 FOR A=438 TO 45 STEP -35: QA=FIX(A/256): AA=FIX(A-256#0A)= LPRINT GRS5CHRS( 
QA) $ CHRS$ (AA) $ CHRS$(255)5:2 NEXT A * HASHMARKS 


*sSY5" *"sYV$3")° 
*5S ie "sXV$3°)* 


4010 
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RETURN 
"SEEEHERERLEE PRINTING OF BOTTOM X AXISHEHEHEEREREEEREES 
LPRINT GRS5;CHRS(@) § CHRS (44) STRINGS (2, 255) sSTRINGS (289, 224) sSTRINGS(3, 255) § 
STRINGS (288, 224) STRINGS (2, 255) § 
FOR A=43@ TO 45 STEP -35: QA=FIX(A/256): AA=FIX(A-256#QA) = LPRINT GRS;CHRS( 
QA) § CHRS$ (AA) § CHR$(255) 52 NEXT A 
RETURN 
"+—+-+-+-+-+— POSITIVE & NEGATIVE NUMBERS -—+-+-+-+-+-+ 
PLS=CHRS (18) +STRINGS (2, 136)+CHRS(198)+STRINGS (2, 136) +STRING$ (2, 128) 
3 e468 
MIS=STRINGS (5, 136) +STRINGS (2, 128) cca 
P3$=PL$+CHRS$ (162 )+CHR$(193)+STRINGS (2, 281)+CHRS$(182) °°+3"° 
M3S=M1I$+CHRS (162)+CHRS$(193)+STRINGS (2, 201)+CHR$(182) 7"-3" 
P2$=PL$+CHR$ (226 )+CHRS (269) +STRINGS (2, 201)+CHR$(198) °°+2" 
M2$=M1$+CHRS$ (226) +CHRS (289) +STRINGS (2, 201)+CHR$(198) °"-2° 
P1$=PL$+CHR$ (128)+CHRS( 194) +CHR$(255)+CHR$(192) 7"+1" 
M1$=M1$+CHRS$ (128) +CHRS( 194) +CHRS$(255)+CHR$(192) *"-1" 
ZES=CHRS (198)+STRINGS (3, 193) +CHRS (198) ii! he 
RETURN 
"SHEEERHERERLE NUMBERING OF X AXIS £222 ESEEEEREEERE 
GOSUB 5888 
LPRINT GRS;CHRS(@) § CHRS (39) §M3$5GR$5 CHRS(@) 5 CHRS( 189) 5 CHRS (8) 5M2$5GR$5 CHRS( 
@) § CHRS (179) 5M1$5GRS$5 CHRS(Q) 5 CHRS (254) 5 ZES$$3 
LPRINT GR$5CHRS(1) 5 CHRS (64) $P1$5GR$5 CHRS( 1) § CHRS (134) §$P2$5GR$5 CHRS(1) 5 CHRS( 
204) 3 P3$5 
IF J=18@ THEN GOSUB 9998 = GOSUB 9998 : LPRINT GR$;CHRS$(Q) 5 CHRS(246) 3 CHRS(3 
@) § CHRS (27) § CHRS(14) §°ZX° § CHRS(27) § CHRS(15) 5 
RETURN 
*HEEREEEEEE LABELING, HASHMARKS OF Y AXES 4242822225 
LPRINT GRS5CHRS(O) 5 CHRS (38) SNSSGR$ 5 CHRS (@) § CHR$ (44) STRINGS (2, 255) STRINGS ( 
4,136)5 
LPRINT GRS$5CHRS(@) § CHRS$ (255) § CHRS( 136) 5 CHRS( 198) 5 CHRS( 134) 5 
LPRINT GRS$;CHRS$(1) 5 CHRS (286) SSTRINGS (4, 136) SSTRINGS(2, 255) § 
RETURN 
7 HHEEREEEEE HORIZONTAL LINE AT Y=O 48822222228 
LPRINT GRS3;CHRS(@) 5 CHRS(@) 5 CHRS (3) 5 CHRS (27) § CHRS(14) 5° ZY" 5 CHRS (27) 5 CHRS(15 
) 5GRS5 CHRS (8) § CHRS (45) SSTRINGS (218, 136) SSTRINGS$(211,136)3 5 RETURN 
"GHHHHHHHHHEHH LEFT AND RIGHT Y AXES sHHHHHHHEHHHHHE 
LPRINT GR$5 CHRS$(@) 5 CHRS(44) SSTRINGS (2, 255) 5GRS5; CHRS (1) 5 CHRS(@) 5 CHR$ (156) 5GR 
$3 CHRS (1) 5 CHRS (218) SSTRING$(2, 255) 5 
RETURN 
7SHEREREEEE PRINTING OF DATAPOINTS #282 222202222 
YRS=MIDS$(C$(1),6,2) 
DF $=CHRS (18) +CHRS (156) +CHRS (198) +STRINGS (3, 255) +CHRS (198) +CHRS (156) 
DOS=CHRS$ ( 18)+CHRS$ (1546) +CHRS( 162) +STRINGS (3, 193) 4CHRS (162) +CHR$( 156) 
ZX(T)=(ZX(1)-508)/1@B2 A=7B#(ZX(1)4+3)+452 QA=FIX(A/256): AA=FIX(A-256#QA) 
IF AA=9 THEN AA=8 
IF TAGS(I)="M" THEN LPRINT GR$5;CHRS(QA) § CHRS$(AA) § CHRS (38) § CHR$(8) § CHR$(4) 5D 
F$5= GOTO 8588 
IF TAG$(1)="F° THEN LPRINT GRS5CHRS(QA) § CHRS(AA) § CHRS (38) 5 CHR$(8) 5 CHRS(4) 5D 
3: GOTO 8568 
LPRINT GRS;CHRS(QA) 5 CHRS (AA) § CHRS (38) § CHRS (8) § CHRS (6) SYRS5 
RETURN 
*SERELEEEEE Y-AXIS NUMBERING £k2eREEREEEEEE 
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9810 IF J=80@ THEN N$=M3$: GOSUB 7810 = RETURN 

9020 IF J=7@8 THEN N$=P2$: GOSUB 701@ = RETURN 

9032 IF J=68@ THEN N$=P1$: GOSUB 701@ = RETURN 

9049 IF J=58@ THEN NS=ZE$: GOSUB 7018 = GOSUB 7518 : RETURN 

9858 IF J=4@@ THEN N$=M1$= GOSUB 7818 = RETURN 

9068 IF J=388 THEN NS=M2$: GOSUB 781@ : RETURN 

9070 IF J=20@ THEN NS=M3$: GOSUB 7018 = RETURN 

9888 RETURN 

9500 °xeeeeeeeneese PRINTING OF REGRESSION LINE #82#8 22222242 

9518 QB=FIX(B/256): BB=FIX(B-256#0B) 

9528 LPRINT GRS$;CHR$(QB) ; CHRS(BB) § CHRS (38) § CHRS$ (8) 5 CHRS(1) 5 CHR$ (18) SSTRINGS (3, 15 
6)5 

9538 RETURN 


9980 ° #8888 GRAPHIC LINE FEED W/ CARRIAGE RETURN ##288% 
9998 LPRINT CHR$(18) 5 CHRS(13) 
18600 
18668 
18610 


14118 
14128 


s= RETURN 

* ZHHHHHHHHHEHH SHELL-METZNER SORT OF CS( I) siti 

"MODEL 4: FOR 2-SEC. SORT, USE SMITH’S PROGRAM (80 MICRO, MARCH 1985) 
PRINT "SORTING NOW (SHELL-METZNER)° 

P= 


Q=N 
Q=INT(Q/2) 
IF Q=@ THEN GOTO 10238 
P=P+1: PRINT *PASS*3P;5 
FOR BL=8 TO Q-1 
T=BL 
J=BL+Q 
SW=-8 
IF C$(1)<=C$(J) THEN GOTO 101468 
SW=1 
BS=C$(1) 
C$(1)=C$(J) 
C$(J)=B$ 
I=J 
J=J+Q 
IF J<N THEN GOTO 18118 
IF SW=8 THEN GOTO 10218 
GOTO 18888 
NEXT BL 
GOTO 186048 
PRINT “SORTING FINISHED" 
RETURN 
REM DATA —-YEAR,POINT SPREAD,S&P CHANGE 
DATA 67,25,15.73 
DATA 68, 23, 7.62 
DATA 69,-9,-11.63 
DATA 78,-16,-1.82 
DATA 71,3,18.49 
DATA 72521,16.77 
DATA 733-75-27.75 
DATA 74,-17,-21.81 
DATA 75, 18,20.84 
DATA 7654,16.96 
DATA TT, -18, -12.83 
DATA 78,17,1.38 
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14138 DATA 79,4,11.79 

14148 DATA 88, 12,28.86 

14158 DATA 81,-17,-13.11 

14168 DATA 82,5,18.56 

14178 DATA 83, 10, 46.67 

14175 DATA 84,-29,1.48 

141688 DATA DONE, 9999,9999 

15688 °TO ELIMINATE NFL-VS.-NFL YEARS FROM THE DATA, INSERT LINE 92: °IF TAG$="7 
1° OR TAG$="75" OR TAGS="79° OR TAG$="88° THEN GOTO 9@’ AND THE SAME STATE 
MENT IN LINE 232 EXCEPT FOR ENDING WITH ’GOTO 239” 


The PEARSONR program is designed to be useful for vir- 
tually any correlation situation in which the two variables 
are continuous dimensions rather than categories (such as 
male vs. female). For proper interpretations of the Pearson r, 
the relationship between the X and Y variables should be a 
straight-line (linear) one rather than a curved (nonlinear) 
one, and since the program plots a scatter graph, you can tell 
pretty easily which of these is the case. 

The program converts all of the X and Y scores to standard 
scores, called ZX and ZY scores, on scales that run from —3 
to +3. Zero on one of these scales represents the arithmetic 
mean, and about two-thirds of the scores of most variables 
will fall between —1 and +1 ona standard-score scale. 

In order to convert any raw score (X or Y) to a ZX or ZY 
score, you have to calculate the mean (MX or MY) of the raw 
scores and also get an index of how much they vary, known 
as the standard deviation (SX or SY). Then the conversion is 
simple: The difference between any raw score and its mean 
is divided by the standard deviation. In symbols, this 
amounts to ZX = (X — MX)/SX for X scores and ZY = (Y — 
MY)/SY for Y scores. 

The first part of the PEARSONR program is concerned 
with these calculations. It reads all the data in the DATA 
statements (up to two hundred pairs of X and Y scores) a first 
time, and from this sweep it determines how many pairs of 
scores there are (N). While doing that, it adds up various 
ingredients needed for calculating means, standard devia- 
tions, and the correlation coefficient, r, itself. When the last 
data item is disposed of, these calculations are made and 
reported on the computer's screen (lines 140—200). Then, in 
line 210, the READ-DATA pointer is reset to the starting 
point by the RESTORE command, and the DATA statements 
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are read a second time. In this second run-through, the X and 
Y scores are converted to ZX and ZY scores, and their cross- 
products (the result of multiplying each ZX score by its 
paired ZY score) are cumulated. These cross-products (ZZ), 
when summed and divided by N, as in lines 250 and 260, 
provide another calculation of the correlation coefficient as a 
check against its earlier calculation from the raw scores. 

The stage is set for drawing the scatterplot in line 290 by 
the formation of a string array, C$(I), to permit us to sort the 
data in order of ZY(I) values without breaking up the ZY-ZX 
pairings or losing the identification (TAG$). This is done by 
concatenating ZY(I) with TAG$(I) and ZX(I), after each ZY(I) 
value has been multiplied by 100 and a constant of 500 has 
been added, in order to make all ZY(I) values the same 
length. The sorting is done in two seconds by CMD “O” on 
the TRS-80 Model III, but if that’s not available, the Shell- 
Metzner sort in subroutine 10000 will order the C$(I) values 
in a reasonable period of time. 

Once sorted, the C§$(I) array is ready for plotting. After 
drawing the upper X axis, the program starts at the now- 
converted ZY(I) value of 820 and steps down ten units at a 
time hunting for ZY(I) values in the left portion of the C$(I) 
strings. With each step small segments of the left and right Y 
axes are drawn, followed by a line feed. Whenever a value of 
ZY(I) is found that falls within the ten-unit window (for ex- 
ample, between 740 and 730), the data point for the ZX(I) 
value at the right end of the C$(I) is positioned on the X scale 
and printed. The data point may be a conventional symbol 
such as a filled or open circle, or it may be a two-digit number 
that identifies a year, as in figure 10-1, in the middle (TAG$) 
part of C$(I), depending on what is specified at the end of 
line 8570 (YR$, DF$, or DO$). 

At certain points in the down-stepping (after every ten 
steps), the Y axis is numbered and labeled with hash marks, 
and at the 500 point the Y-axis zero line is drawn across the 
graph. When all the points have been plotted and the 180 
point is reached, the lower X axis is drawn and numbered. 
After that the value of the correlation (r) is printed, along 
with the means (MX and MY) and standard deviations (SX 
and SY) in terms of their original raw-score scales. With this 
information, the standard scores can easily be translated back 
into raw scores: A ZX of zero equals MX and a ZX of +1 or 
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— ] equals the standard deviation, SX. The same holds for ZY 
scores as they are numbered on the Y axis (that is, from —3 
to +3, not on the 200—800 scale): set ZY of zero equal to MY 
and ZYs of +1 or —1 equal to SY. In our example, MX is 2.9 
and SX is 14.7, so ZX scores of —3, —2, —1, 0, +1, +2, and 
+3 translate into —41.2, —26.5, —11.8, 2.9 (the mean), 17.6, 
32.3, and 47.0 in terms of the point spreads of Super Bowl 
outcomes. And with MY equal to 6.3 and SY equal to 19.2, 
the seven values for the Y variable become —51.3, —32.1, 
— 2.9, 6.3, 25.5, 44.7, and 63.9. 

The line for predicting Y values from X values, called the 
regression line in the textbooks, can be calculated directly 
from the correlation coefficient and can also be plotted as the 
data points are being plotted. The equation for a regression 
line is Y = bX + c, with b standing for the slope of the line 
and c representing where (on the Y scale) the line crosses the 
vertical at ZX=0. Since the PEARSONR program converts 
all raw scores to ZX or ZY standard scores, c will always be 
zero and b will equal the correlation coefficient. This means 
that the line will always pass through the point where the 
horizontal and vertical lines at ZX=0 and ZY =0 cross in the 
middle of the scatterplot. It also means that the slope value, 
b, can range from —1 to +1, just like a Pearson r value. 

In our example, the regression line tells us that for every 
unit change in ZX there is .55 of a unit change in ZY. From 
the standard deviations printed at the bottom of the graph, 
we can translate this to mean that, on the average, for every 
ten points in the direction of an old NFL team winning the 
Super Bow], there is a 6.1-point increase in the Standard & 
Poor's stock market average for the year. 

The PEARSONR program can handle up to 200 pairs of X 
and Y scores, and even more than that if you increase the 
subscripts (in parentheses) in the DIM statement near the 
beginning of the program. It can also plot two or more differ- 
ent data points in the scatterplot to represent different items 
in TAG$. These are advantages over some of the commercial 
software packages for scatterplots, which may limit you to 
one hundred pairs of scores and a single data point symbol. 
Figure 10-2 illustrates how pairs of scores for men may be 
distinguished from those for women by filled and unfilled 
circles, respectively. 

For both sexes, this second scatterplot shows the correla- 
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X VARIABLE: STRESS SCORE Y VARIABLE: ILLNESS SCORE 
=3 =Z =1 0 +1 +2 +3 
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-3 -2 -1 0 +1 +2 +3 
zx 
Pearson r= .637883 


Mean of Y = 250.689 SD of Y = 73.1783 (ILLNESS SCORE) 

Mean of X = 51.6954 SD of X = 18.054 (STRESS SCORE) 
FIGURE 10-2. A scatterplot showing the relationship between 
psychological stress and physical health (fictional data) for a 
combined group of men and women (PEARSONR program). 


tion between psychological stress and physical illness (the 
data are purely fictional). Stress is the X variable; the raw 
stress scores can range from 0 to 100. Illness is the Y variable, 
on a scale running from 100 to 400. When the men’s and 
women's pairs of scores are combined into a single set of 
data, the correlation coefficient comes out +.64 (see the un- 
rounded r value at the bottom of figure 10-2). 

The DATA listings in this example will, of course, be dif- 
ferent from those in our football example, but the format can 


X VARIABLES STRESS SCORE VY VARIABLEt ILLNESS SCORE 
-3 -2 -3 i*) 1 


KX VARIABLE! STRESS SCORE Y VARIABLE! ILLNESS SCORE 
-3 -2 -1 0 +1 


-3 -2 -1 (a) o1 ez 03 


Pearson r= .302719 Pearson r= .819221 
Mean of Y = 239.58 SD of Y = 65.5702 (ILLNESS SCORE) Mean of Y = 268.837 SD of Y = 78.1921 (ILLNESS SCORE) 
Mean of X = 50.2464 SD of X = 15.9193 (STRESS SCORE) Mean of X = 52.9146 SD of X = 19.6865 (STRESS SCORE) 


FIGURE 10-3. Stress-and-illness relationships plotted separately for women (left) 
and men (right) by the PEARSONR program. 


be similar—label, X score, and Y score. Now, instead of year, 
point spread, and stock market change, we have M or F, 
stress score, and illness score. Using TAG$ (M or F) for iden- 
tifying males and females enables us to plot their data points 
in different ways and even in different scatterplots. 

If you look closely at the filled and open circles in figure 
10-2’s scatterplot, though, you’ll end up wondering how dif- 
ferent the relation between stress and illness may be for men 
than for women—the mens’ data points seem to show more 
of a distinct trend than the women’s. Perhaps that correlation 
of .64 is a deceiving kind of rough average of two things that 
shouldn't be combined. 

In situations like this, to get at the undistorted truth, we 
should look at separate scatterplots for the men and women 
and calculate separate r values as well. To do this for the 
men, simply change lines 95 and 235 in the PEARSONR 
program to 


95 IF TAGS="F" THEN GOTO 90 
235 IF TAGS="F" THEN GOTO 230 


and change line 470’s TAG$(I)=MID$(C$(I),b,2) to TAGS 
(I)=MID$(C$(I),5,1). For the women’s calculations and 
plotting, change “F” to “M”. 

Figure 10-3 gives us the separated results, and see how 
much clearer they have become! The correlation between 
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stress and illness turns out to be +.82 for the men and only 
+ .30 for the women. The scatterplots tell the story, by mak- 
ing it easy to see how much closer to a random dot pattern 
(i.e., zero correlation) the data points for the women are. 
PEARSONR may be a bit long, but it’s a handy program. 


Rank correlations. Fairly often we have to start with scores 
that come only in the form of ranks. For example, we are told 
that the states having the highest murder rates in 1982 were 
Alaska, Texas, Louisiana, Mississippi, Nevada, Florida, 
Georgia, New Mexico, New York, and California, in that 
order (these are actual rankings from the FBI’s Uniform 
Crime Reports, adjusted for population). In rates of auto 
theft, the same states ranked (among themselves and not all 
fifty states) 6th, 2nd, 5th, 9th, 7th, 10th, 4th, 8th, lst, and 3rd, 
respectively. 

If we wanted to find out what the correlation between mur- 
der and auto theft rates was for just these few states, we 
couldn't use the Pearson r because that is not designed to 
handle ranks. Another kind of correlation statistic, called the 
Spearman rank-order correlation coefficient (r; for short), will 
handle the job easily. You simply find the difference be- 
tween each state’s two ranks (i.e., rank in murder and rank in 
auto theft), square the differences, add these ten squares, and 
plug their sum (call it SSQ) into a formula. In BASIC that 
formula reads RS=1- (b*SSQ/(N*3-N)), N being the number 
of pairs of ranks. In our crime example the r; comes out to be 
—.10, which is too close to zero to be significant. 

There’s not much gained by plotting such small numbers 
of pairs, but when N is greater, say, over 20, a scatterplot can 
be very illuminating. Another program, called RANKPLOT 
(program 10-2), is designed to graph correlations when both 
X and Y are in the form of ranks. 

PROGRAM 10-2. RANKPLOT. Rank-order correlation scatter 
chart. 


10 "PROGRAM 10-2: "RANKPLOT" --— RANK-ORDER CORRELATION SCATTERPLOT 
12 ’Copyright (c) 1985 by John Warner Davenport 
15 *FOR TRS-GO MODEL III AND DMP-400 PRINTER 


26 CLEAR 1088 

3@ DIM YX$(50),CF(12) 

38 LPRINT CHRS (38) 3 CHRS(27) § CHRS(31) § "BOLD PRINTING 

335 GRS=CHR$ (18) +CHRS (27) +CHRE( 16) "FOR POSITIONING 

68 PBS=GRS+CHRS (BO) +CHRS(O) "CARRIAGE RETURN W/O LINE FEED 


78 BKS=CHRS (18) +STRINGS (30, 128) +CHRS (30) "BLANK SPACING 
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8@ INPUT “NAME OF X VARIABLE® 3VX$ 
85 INPUT “NAME OF Y VARIABLE®* 5 VY$ 


98 GOTO 120 

188 QAZ=FIX(A/256)! AAZ=FIX(A-256#QAZ): RETURN *CONVERSION SUBROUTINE 

120 GOSUB 5680 "TOP X AXIS, LABELING, NUMBERING 
158 GOSUB 2860: GOSUB 4082 "VERTICAL LINES & LINE FEED 

168 N=1 


18@ READ TAGS, Y,X 

198 IF TAG$="DONE" THEN GOTO 278 

208 Y=V+1G0: X=X+180 

218 YX$(1)=STRE(Y)+TAGS+STRS(X) *CONCATENATION OF X AND Y RANKS 

228 D=Y-X: DSQ=D*D: CUMDSQ=CUMDSQ+DSQ "SQUARE OF DIFF., CUMULATION OF SQUARES 

238 PRINT "N=°5N3" YXSC(T)=°SYXS(1)§ 

248 I=I+15 N=N+1 

268 GOTO 188 

270 SPEARMAN=1-(6*CUMDSQ/ (N43-N)): PRINT "SPEARMAN r="S§SPEARMAN ’°CORR. COEFF. 

280 #e#enHHHRHE PRINTING OF DATAPOINTS (ZIP CODES, YEARS, ETC.) s#uennneeneenee 

298 FOR M=5 TO 5@ STEP 5 

320 $GOSUB 2680: GOSUB 4880: GOSUB 2@8@@: GOSUB 4880 

310 FOR Q=1 TO 10: CF(Q)=0: NEXT Q ’*SET CELL FREQ’S TO ZERO 

312 Q=8 

315 GOSUB 7680 "Y-AXIS NUMBERING 

320 FOR I=@ TO N-1 

538 PRINT M-4,M, YX3(1) 

348 IF VAL(LEFTS(YX$(1),4))-100>(M-5) AND VAL(LEFTS(YX$(1),4))-100<M+1 THEN 
GOSUB 6880: GOTO 340 


350 NEXT I 

368 FOR R=1 TO 4-NL: GOSUB 2080: GOSUB 4000: NEXT R "VERTICAL LINES & LINE FE 
EDS 

378 NL=0 

388 GOSUB 3880: GOSUB 2000: GOSUB 4880 "HORIZONTAL LINE, LINE FEED 

390 NEXT M 


400 GOSUB 4800: GOSUB 4000 

418 LPRINT GRS§CHRS(@) § CHRS( 75) § CHRE( 30) 5 "SPEARMAN r ="$3P8$5 CHRS(@) § CHRS( 158) §SP 
EARMAN 

520 END 

ZOD ? RHKKKKHKRHHERER VERTICAL LINES 4444440 E HEHE EH 

2010 LPRINT GRS53CHRS$(@) § CHRE (460) § CHR$(255) § 

2015 FOR Z=1i1 TO 10: LPRINT STRING$(59, 128) 5 CHR$(255)5:2 NEXT Z 

2050 RETURN 

SOOO ° eee HKHHHH HORIZONTAL LINE 44H RHEE 

3010 LPRINT GRS3CHRS(@) §CHRS(60)$=2 FOR Z=1 TO 600: LPRINT CHRS(136)52 NEXT Z 

3820 RETURN 

4AGOQ " HeKHHRRHHHHE 6/72" LINE FEED ONLY 484228 ee HH HEHE 

4010 FOR C=1 TO 6: LPRINT CHRS(27) 5CHR$(5Q)5: NEXT C 

4020 RETURN 

5000 *HexeeHHHEH TOP X AXIS, LABELING, NUMBERING *#%4%44%4% 

3003 LPRINT GRS§CHRS(Q) § CHRS(4) § CHRS(3Q)5"RANK IN Y ("5VYS5")"5°3 

3010 LPRINT GRS§CHRS(1) §CHRS(45) 5 CHRS(30) 5"RANK IN X ("SVXB5")"S 

9815 GOSUB 4000: GOSUB 4880: GOSUB 4000 

5017 LPRINT GRS§3CHRS(@) § CHRS (75) § CHRS(3Q) 3“ 46-50" § BKS§ "41-45" § BKS§ "36-40" § BKS 5 “3 

1-35" 5 BKS5 "26-30" § BKS§ "21-25" 5 BKS5 "15-20" § BK$§ "11-15" § BKS§ CHRS (27) § CHRS(46) § 
"6-10" § BKS§ CHR$ (27) § CHRS(6)3" 1-5° 5 CHRS(13) 3 


38628 


5838 
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LPRINT GR; CHRE(@) 5 CHRS (30) 5 CHRS (30) § CHRS (27) § CHRS (18) § CHRS( 167) § CHRS(27) $C 
HRS (19) § CHRS(8) § CHRS (13) § CHRS( 208) § CHRS (27) § CHRS (30) § CHRS (245) § CHRS (27) 3 CHRS 
(28) §CHRS(19)5 

LPRINT PO$5GR$5 CHRS(O) § CHRS (46@) § CHRS (248) SSTRINGS (250, 136) sSTRINGS (258, 136) 
3 STRINGS (99, 136) 5 CHRS (248) § 

FOR A=120 TO 600 STEP 6@: GOSUB 180: LPRINT GRS5CHRS(QAZ) § CHRS(AAZ) § CHRS (24 
8)3=5 NEXT A 

GOSUB 4800 

RETURN 

*HEEHEHEHHE PRINTING OF DATAPOINTS 4444444 HEHEHE 

XX=VAL (RIGHTS(YX$(1),3))-100: Q=FIX(XX/5)+1: IF XX=5@ THEN Q=10 

PRINT "XX="§5XX,"Q=°5 

IF CF(Q)=1 OR CF(Q)=3 OR CF(Q)=5 OR CF(Q)=7 OR CF(Q)=9 OR CF(Q)=11 THEN CP= 
28 ELSE CP=0 

IF CF(Q)=2 OR CF(Q)=4 OR CF(Q)=6 OR CF(Q)=8 OR CF(Q)=18 OR CF(Q)=12 THEN NL 
=NL+2: GOSUB 2000: GOSUB 4080: GOSUB 2000: GOSUB 4800 

A=670-60%Q+CP: GOSUB 100: LPRINT GR5CHRS(QAZ) § CHRS(AAZ) § CHRS (38) § CHRS(27) § 
CHRS (18) sMIDS(YXS(1) 45,2) 5 CHRS(27) 5 CHRS(19) § 

CF (Q)=CF(Q)+1 

l=I+1 

RETURN 

> eee EHKERE Y-AXIS NUMBERING ete eee tees 

IF M=5 OR M=1@ THEN GPS=CHRS(18)+STRINGS(6, 128)+CHRE( 30) ELSE GPS=CHRS( 30) 
LPRINT CHRS(3Q) § CHRS (20) § CHRS (27) § CHRS( 30) § CHRS (27) § CHRS (30) § CHRS (19) § 
LPRINT P@$5CHRS( 38) §GP$5 CHRS (27) § CHRS(18) §M—-45 °-" §M§ CHRS(27) § CHRS(19)5: RET 
URN 


10000 *xxexxex DATA (STATE, PROPERTY CRIME, VIOLENT CRIME) 


10010 
18028 
10030 
10846 
18850 
18060 


105008 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 


NV,1,6 
AZ,2,15 
CO, 3,17 
FL, 4,3 
CAs5599 
HI, 6,39 


KY, 46, 32 
PA, 47,29 
ND, 48,58 
SD, 49,49 
WV, 50,44 
DONE, 99,99 


Figure 10-4 shows one of the printouts from RANKPLOT. 
In this example the rankings of all fifty states in two more 
general types of crime—property crime (X) and violent crime 
(Y)—are correlated. The fifty ranks for each type of crime are 
divided into groups of five to make it handy for locating the 
data points (states’ U.S. Postal Service abbreviations) in a 
ten-by-ten grid. The RANKPLOT program also calculates the 
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RANK IN Y (VIOLENT CRIME RATE) 
RANK IN X (PROPERTY CRIME RATE) 


46-50 41-43 36-40 31-35 26-30 21-25 13-20 11-153 6-10 i-3 


FIGURE 10-4. A rank-order correlation scatterplot (RANKPLOT program). 
U.S. Postal Service abbreviations are used to indicate each state’s standings 
in both crimes of violence and property crimes. 


Spearman correlation coefficient; in this case the rs turns out 
to be +.70 on the scale from —1 to +1. 

As in the PEARSONR program, X and Y measures are con- 
catenated into a string array called YX$(I), consisting of a Y 
rank on the left end, its paired X rank on the right end, and 
the state’s abbreviation in the middle (line 210). But unlike 
the PEARSONR program, RANKPLOT uses a search rather 
than sort routine. In line 290 (FOR M=S TO SO STEP S) the. 
search begins, with M representing the intervals (1-6, 6-10, 
..., 46—50) of the Y ranks. At each value of M, the program 
scans the whole list of YX$(I) strings, finds the rank values of 
Y(I) that fall within M’s interval, and prints the state abbre- 
viation that goes with each Y(I) value that is found. The value 
of X(I) that is stored in the same YX$(I) value with these Y(I) 
and state-abbreviation items determines the location (cell in 
the row) in which the printing is done. 

There’s a special feature in the program that requires an- 
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other array called CF(Q), for “cell frequency.” In order to 
avoid printing one state abbreviation data point right on top 
of another within a cell, each cell in a row has to have a 
memory device that keeps track of how many prints there 
have already been in that cell. If the cell frequency is an 
even number, the printing is in the left half of the cell; if the 
frequency is odd, the data point is placed in the right half 
and a line feed with vertical lines follows. The cells are big 
enough to accomodate up to twelve prints, in case the num- 
ber of pairs of X and Y ranks in another set of data is as high 
as 120. 

There is a variation of the RANKPLOT program that plots 
data points of large numbers of pairs of ranks, but deals with 


FIGURE 10-5. Correlation of ranks in two different baseball measures 
(winning and batting) for one team (Boston Red Sox) over 83 years (modified 
RANKPLOT program). 


RANK IN TEAM BATTING AVERAGE 


20 
37 


19 
19 


POSITION IN STANDINGS 
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a situation in which the different pairs don’t come from dif- 
ferent subjects (states, people, etc.). The typical situation is 
one in which you have two sets of ranks for a single subject 
(person, team, company, etc.) for each year over many years. 

In figure 10-5 we can see how a major-league baseball 
team’s position in the final standings from 1901 to 1983 has 
correlated with its rank in team batting average. This time 
four-digit years serve as data points and thereby provide a lot 
of extra information that geometric symbols wouldn’t (e.g., in 
which years did the team finish first in the standings without 
being the best team in batting?). A ten-by-ten grid is used 
again, but the numbering of the rows and columns is in 
whole numbers from 1 to 10 instead of intervals from 1-5 to 
46-50. 

When we have a lot of scatterplots like the one in figure 
10-5, we can see at a glance how close each one is to having 
all of its year prints lining up along a diagonal row of cells 
(from one corner of the grid to its opposite corner), as op- 
posed to a random pattern of data points. We can also com- 
pare their Spearman r, values to get a more precise estimate 
of the strengths of correlations. 

The main changes in RANKPLOT to fit this baseball ex- 
ample were, besides the renumbering of the axes, narrowing 
the all-important search statement (line 340) from a five-rank 
range to a single rank at a time, and expanding the size of the 
scatterplot to allow room for up to a dozen four-digit prints 
in each cell. The enlargement requires a fifteen-inch printer, 
but although the figure on crime rates was printed by RANK- 
PLOT on one of that size, that program could easily be re- 
vised to fit on eight-inch paper. 


Ladder Graphs 


A ladder graph is not a common type of graph with a standard 
name. In fact, other names, such as linear graph, thermome- 
ter graph, and even totem-pole graph, have been proposed 
for this graphic form. Whatever you want to call them, ladder 
graphs have a vertical scale along which the names of items 
(people, companies, countries, etc.) are located according to 
their value on the scale. 

In figure 10-6 we have an example of a ladder graph. Pro- 
gram 10-3, called TOTMPOLE, produced it. 


HITS 


240 
eres 


KELL, -DET 


RIZZUTO,NYY- 
BERRA, NYY- —-D. DIMAGGIO, -BOS 


-STEPHENS, ~BOS 


DROPO, BOS- 

-LIPON, ~DET 

DOERR, BOS GROTH, DET- —WERTZ,—-DET 

Pane EVERS, DET- -PRIDDY, -DET 
-DOBY, -CLE 
J.DIMACETO NYY ROSEN, —CL 
*é MeHeLC! Cee — Rea tee 

P oSs- -ZJARILLA,-BOS -ZERNIAL.-CH 
PHILLEY, CHI carnGe ster: shee ~AOREGKA: BOS — ERA AK? —50 

: —FAIN, -PHI 


DENTE, WAS- 


CHAPMAN, —PHI 


OWAY , a 
Robeson: PAI- feNpabo regyt 
wooSO8: STE a 
’ -VALO, -PHI 
MELE, WAS- -VERNON, -WAS 
FOX» CHI~ -JOOST, -PHI 
WILLIAMS, BOS- 


_ 
~ 
So 


—-HEGAN, -CLE 
90 


FIGURE 10-6. A ladder graph produced by the TOTMPOLE 
program for the DMP-400. 


PROGRAM 10-3. TOTMPOLE. Ladder graph. 


1@ "PROGRAM 10-3: *“TOTMPOLE" -- LADDER GRAPH 

15 ’Copyright (c) 1985 by John Warner Davenport 

2@ *FOR TRS-80 MODEL III OR 4, TRS-80 PRINTERS 

30 DIM A$(1@Q) 

40 LPRINT CHRS$(30) § CHRS(27) 5 CHRE(19) § "STANDARD DENSITY 

50 LFT=4: CNTR=6: RGT=10 

60 V=7: STATS="HITS": HI=240: LO=46@: STEPSIZE=-2 

78 OPEN °I",1,"ALS@BATG" "OPEN DATA FILE (1950 AMERICAN LEAGUE BATTING) 
8@ INPUT #1, YEARS, PLYRS, TEAMS, AB, RH, HR, RBI, BB, SB, BA, SA 
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90 IF YEARS="-1" THEN GOTO 8@ 


108 


IF EQF(1) THEN CLOSE 1: PRINT “FILE CLOSED": GOTO 169 
N=N+1 
PRINT N3" "3YEARS3" "SPLYRS3", "S$TEAMS$" "SABSRSHSHRSRBI 3 BB;SB;BA3SA 
C=100: AS(N)=STRS(H+C)+"-"+TEAMS+"-"+PLYRS: USGS="##8° FILL STRING ARRAY 
GOTO 88 > (FOR SORTING) 
REM -- LINES 15@-21@ PERFORM BUBBLE SORT OF PLAYERS ON THE STATISTIC (HITS) 
PRINT "NOW SORTING THE PLAYERS BY ";STATS 
SWITCH=0 
FOR I=@ TO N 

IF AS(I)<A$(I41) THEN SWAP AS(I),AS(I+1)2 SWITCH=SWITCH+1 
NEXT I 
P=P+1: PRINT “PASS="3P 
IF SWITCH>@ THEN GOTO 170 ELSE PRINT TAB(®)$ "SORTED" 


LPRINT CHR$(13)5 LPRINT CHRS( 30) 5STATS5 "PRINT LADDER HEADING 
LPRINT CHRS(13) 
FOR I=@ TO N-1 *LINES 250-298 DISPLAY SORTED ARRAY ON SCREEN & PRINTER 


PRINT A(T) 
SCORE=VAL (LEFT$(AS(I),LFT))-C 
LPRINT CHRS(30) sMIDS(AS$(1),RGT)§5 SMIDS(AS(1),CNTR,3)§"° “$SCORES* 


NEXT I 

LPRINT CHR$(13) 

BSS=CHRS ( 38) +CHRS (8) +CHRS (4) +CHRS (18) *BACKSPACE (2 DOTS) 
BNS=CHR$ (30) +CHRS (8) +CHRS (1) *BACKSPACE (1/2 DOT) 
PNS=CHRS (27 ) +CHRS (16) +CHRS(1)+CHRS (10) "266th DOT-COLUMN POSITION 
PX$=CHRS$ (27) +CHRS (16) +CHRS(@) +CHRS (254) "254th ° zs : 


TC=269-6#LEN(STATS)® TIZ=FIX(TC/256):3 T2Z=FIX(TC-256*T12) 
LPRINT CHRS(27) $CHRS(16) § CHRS(T12%) § CHRS(T2Z) § CHRS(3Q) § CHRS (27) § CHRS(14) STAT 
$5 CHRS (27) § CHRS (15) § CHRS(13) § CHRS(13) § 
FOR I=@ TO N-1: SCORE=VAL(LEFTS(A$(I),LFT))-C: IF SCORE>HI OR SCORE<LO THEN 
LPRINT MID$(AS(1),RGT)§", * SMIDS(AS(I), CNTR, 3) SUSING USGS3SCORE$: LPRINT CHRS 
(13) 5 

IF SCORE>HI OR SCORE<LO THEN LPRINT MIDS(AS(1),RGT) 5", " $MIDS(AS(T), CNTR, 3) 
sUSING USGS;SCORE$: LPRINT CHRS(13) 5 
NEXT I 
I=0: FOR J=HI TO LO STEP STEPSIZE 
IF VAL(LEFTS(A$(1I),LFT))-COHI THEN I=I+1: GOTO 418 
U=6 
PRINT Jy AS( 1), J+(STEPSIZE) 
IF SCORE<=J AND SCORE>=J+(STEPSIZE) THEN U=U+1: PRINT “SCORE=";SCORE,J: GOSU 
B 548: GOTO 440 
IF J<10@ THEN SP=5 ELSE SP=2 
J$=STR$(J)2 IF RIGHTS(J$,1)="@O" THEN LPRINT CHRS$(18) §3PX$5STRINGS(SP, 128) 5 BNS 
3 CHR$(3O) § CHR$(27) CHRS(18) § INT(J) § CHRS(27) §CHRS(19) 52 LPRINT CHRS(18) sPXS5B 
S$3STRINGS (6, 136) §STRINGS (26, 128) STRINGS (6, 156) § 
IF RIGHT$(J$,1)="@" THEN DTC=128: CCD=128: ELSE DTC=136: CCD=156 
LPRINT PX$%3CHR$(18) ;STRING$(4, 255) sSTRINGS(11, DTC) SSTRINGS (3, CCD) SSTRINGS(11 
DTC) SSTRINGS (4, 255) § 
FOR LF=1 TO 6: LPRINT CHRS(27)§CHRS(50)52 NEXT LF 
LPRINT CHRS(18) sPX$5STRINGS(4, 131) SSTRINGS(25, 128) $STRINGS (4, 131) §CHRS(27)5C 
HRS (50) § CHRS$ (27) § CHRS (5B) § 
NEXT J 
PRINT "JOB DONE® 
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540 *##e4# PRINTING OF PLAYER AND TEAM #88 eHHHH 

550 IF U<3 THEN RP=32: LP=252: CL=45 

568 IF U=3 OR U=4 THEN RP=122: LP=162: CL=32 

570 IF U>4 THEN RP=212: LP=72: CL=32 

388 I1$=STRS$(1) 

598 IF RIGHT$(1$,1)="@° OR RIGHT$(1$,1)="2° OR RIGHTS(1$,1)="4" OR RIGHT$(1$,1)= 
"6" OR RIGHTS(1$,1)="8° THEN LPRINT CHRS(27) 5 CHRS(16) 5 CHRS(1) § CHRS(RP) § CHRS ( 
38) SMIDS(AS( 1)» RGT—-1)5°, "SMIDS(AS(1) CNTR-1,4)55 I=It+1: GOTO 618 

680 LPRINT CHRS$(27) 3 CHRS( 16) § CHRS(@) § CHRS (LP-G#LEN(MIDS(AS(1),CNTR-1)) ) §CHRS( 38) 
sMIDS(AS(1),RGT) 3%," §SMIDS(AS( 1), CNTR, 3) SCHRS(CL)§5 I=I+1 

618 RETURN 


In producing the printout, the TOTMPOLE program 
places the names of baseball players on both sides of a scale. 
The scale represents the number of hits by players over a 
whole season (1950), and all American League players in 
1950 having four hundred or more official times at bat have 
their names and team abbreviations in the graph. In line 80 
the program inputs these names and the players’ hit totals 
(along with much additional, unused information about other 
batting statistics) from a datafile. For the total hits measure 
(H), an array called A$(I) stores the pertinent data. The play- 
ers are then bubble-sorted (lines 150-220) so that they can 
be listed and read in order of their hit totals. 

After the sorting, TOTMPOLE lists the reordered array 
(line 250—290) and starts drawing the scale (at line 370) from 
top to bottom so that the length of the scale runs perpendic- 
ular to the printhead’s movement. As the program steps down 
to each new value (hit total) on the scale, it checks to see if 
that value is connected to any player’s name. When a match- 
ing value turns up, the name is printed to the left or right of 
the scale. The printer's built-in characters are used both for 
printing the names and for numbering the scale. 

The first matching name is printed on the left, the next on 
the right, and so forth. Using both sides of the scale this way 
allows room for ties, but if a three-, four-, five-, or six-way tie 
occurs, the names are printed progressively farther from the 
scale so as not to be on top of each other. Printers with eight- 
inch paper will probably have to use condensed (16.7-CPI) 
characters to fit in the names when five- or six-way ties occur. 
On the other hand, if you want to keep the whole graph sleek 
and trim, change the program so that the third to sixth names 
in a tie will be stored and printed in a group below the graph, 
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using the same print density as with the first and second 
names, and then cut and paste the names manually in loca- 
tions on the scale as space permits. 

If such a manual method seems too much like admitting 
defeat as a programmer, you could change the program so 
that the third and fourth names in a tie are printed directly 
above the first and second names, using reverse line feeds 
and after checking whether there is enough space left for this 
by names that have already been printed before the tie oc- 
curred. With forward line feeds, you can return the printhead 
to where it was before the reverse feeds and then temporarily 
drop down to the positions below the first and second names, 
in order to print the fifth and sixth names in the tie. Again, a 
check for space would be needed, but these space checks are 
made fairly easy to program by the fact that the names and 
their numerical values have been stored in an ordered string 
array. If space is not available for a given name-print, you 
still have the other two methods to fall back on, and those 
options could be built into the programming. Incidentally, 
only small changes in the TOTMPOLE program are needed 
to make it print all the names on the right (or left) of the 
scale. 

For another illustration of a ladder graph, see the final 
chapter (figure 12-4). 


Pie Charts 


If there is any kind of graph that usually comes out better 
using a screen dump instead of direct programming of the 
printer, it is the pie chart (also known as the circle graph). 
Programming the drawing of a pie chart on the computer's 
screen is not too difficult, and the labeling of the chart can 
also be done by part of the same program. Both matters can 
be handled by several different pie-chart programs that have 
appeared in microcomputer graphics books. And if the screen 
has the resolution that we find on the IBM PC, a fairly good 
quality can be achieved in the hard-copy version of the chart 
when it is dumped to a printer (or plotter). Do-it-yourself 
IBM users are advised to use Baenziger’s graphic screen 
dump (GRUMP) program (PC World, December, 1983, pp. 
176-191) in combination with the pie-chart screen-drawing 
program from the books or an IBM PC demonstration disk. 
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For direct programming of pie charts on a printer, consider 
the PIECHART/EPS program (program 10-4). This too can 
be viewed as a combination of two programs, the screen- 
drawing program for an exploded pie chart presented by 
Hearn and Baker (Microcomputer Graphics, Prentice-Hall, 
1983, pp. 245-47) and our printer-drawing program called 
POLARRAY (program 5-6). 


PROGRAM 10-4. PIECHART/EPS. Exploded-slice pie-chart 
program for bit-image drawing (for IBM-Epson printers). 


18 *PROGRAM 10-4: "PIECHART/EPS® -- EXPLODED PIE CHART FOR IBM-EPSON PRINTERS 

2@ "EXTENSION OF PROGRAM 12-1 IN D.HEARN & M.P. BAKER, "MICROCOMPUTER GRAPHICS’ 
BOOK, PRENTICE-HALL, 1983 

38 ’FOR THE EPSON FX-80 PRINTER AND TRS-80 MODEL III (USE BOOTHE’S DRIVER) 

40 LPRINT CHRS$(27)°A°§ 

38 CLEAR 4888 

68 DEFINT X,Y 

78 DIM XY$(588) , ¥(580) 

88 GOTO 198 | 

FO ° e4eeeeHEREE PRINTING OF DRAWING DOT 2XHREKHRHREREREEE 

100 Y(I)=.9#Y(1)2 G2Z=FIX(Y(1)/256)! GIZ=FIX(V(1)-256"G27) 

118 PRINT °G1="§G61%5 "G2=" 5627 

120 IF G2Z4=@ THEN Si=@: S2=@: S3=8 

138 IF 62%=1 THEN $1=255: S2=6: S3=0 

149 IF G2%=2 THEN $1=255: S2=255: S3=0 

150 IF G2%=3 THEN S1=255: §2=255: S3=255 

168 LPRINT CHR$(27)"Z°CHR$(G1%) CHR$(G2Z) SSTRINGS(S1,0) SSTRINGS(S2,@) SSTRINGS(S3, 
@) sSTRING$(G2Z, 8) SSTRINGS (617%, 8) SDPS5CRS5 

178 RETURN 


198 INPUT "NO. OF SLICES (2 TO 8)"5N 

288 INPUT “EXPLODE WHICH SLICE (1 TO 8)°5E 
218 R=250 

220 XN=1280: YN=330 

238 YA=.4 

248 FOR K=1 TO N 

250 READ N$(K),V(K) 

260 IF NS="END" THEN 298 

278 38 T=T+V(K) 


288 NEXT K 

298 CLS: B=@: S=0 

380 RE=360*3. 14159/180 >RADIAN EQUIV. 

310 FOR K=1 TO N 

326 XC=XN: YC=YN "NORMAL CENTER 

338 8 S=S+V(K) *CUMUL. SECTION VALUE 
340 A=RE*S/ "ANGLE IN RADIANS 

350 IF K<>E THEN 468 "EXPLODE? 

368 AC=B+(A-B)/2 "HALF -ANGLE 


378 XE=XC+R/5#COS(AC) 
J8O YVE=YC+R/S*#SIN(AC) #YA 
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390 XP=XE+R#CO0S(B) 

480 YP=YE+R*SIN(B)#YA 

410 GOSUB 788 

420 XP=XC+R*COS(A) 

430 YP=YC+R*ESIN(A)#YA 

440 GOSUB 598 

45@ XC=XE: YC=VYE 

460 FOR A1=B TO A STEP 10/R 

470 XP=XC+R#COS(A1) 

489 YP=YC+R#SIN(AL)#YA 

490 XY$(I)=STRSCINT(XP4+300) )+"A°+STRSCINTCYP)): I=I+! 
380 8 NEXT Ail 

510 GOSUB 598 

326 4 8=6B=A 

338 NV=] 

348 NEXT K 

358 GOSUB 840 "SORT OF XY$(I) VALUES 
368 GOSUB 1146 


39Q "HtteHHeeeeeeaee X-Y COORDINATES OF SECTION LINES ##eteee ee eeH HEH 
680 IF XC<>XP THEN 4678 

618 IF YC>YP THEN ST=1@ ELSE ST=-10 

620 FOR Y=YC TO YP STEP STs: XY$(1)=STRS(XC+3@0)+"A"+STRECINTC(Y) ) 

638 I=I+1 

6486 NEXT Y 


678 M=(YP-YC)/(XP-XC) 

688 IF ABS(M)>1 THEN ST=ABS(1@/M) ELSE ST=10 
698 IF XC>XP THEN ST=-ST 

788 FOR X=XC TO XP STEP ST 

71000 Y=M#(X-XC)F+YC 

720) = X¥YSCTD=STRSC INT (X+308) )+"A°+STRSCINT(Y) ) 
73@ LPRINT I§ 

746 = [=I +1 


78Q *tteeeeeee X-Y COORDS OF EXPLODED-SECTION LINES #2222234 
798 XC=XE3 YC=YE 

822 GOSUB 598 

81@ XC=XN: YC=YN 


B40 " eeeeeeeeeee SHELL-METZNER SORT OF XYS(1I) #ete eee 
850 SOUND 6,5: SOUND 4,1@: SOUND 2,8 

868 PRINT °SORT” 

870 P= 

880 Q=NV 

898 Q=INT(Q/2) 

960 IF Q=@ THEN 1098 

910 P=P+1 
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926 PRINT P 

938 FOR BL=8 TO Q-1 

940 I=BL 

958 J=BL+Q 

960 SW=0 

970 IF XY$(1I)<=XY$(J) THEN 1028 

988 SW=1 

998 BS=XY$(T) 

1088 XY$(1)=XYS(J) 

1018 XY$(J)=BS 

1020 I=J 

1038 J=J+Q 

1040 IF J<NV THEN GOTO 978 

1050 IF SW=@ THEN GOTO 1070 

1868 GOTO 948 

1070 NEXT BL 

1686 GOTO 890 

1098 PRINT "SORT DONE": SOUND 4,5: SOUND 5,8 
1108 GOTO 1120 

1110 FOR I=@ TO NV-1: LPRINT XY$(1I)55 NEXT I 


113Q '---------~----------------------------------------------------------- 
1140 ’##eeeRKEEEe PRINTOUT ON EPSON FX-80 sietexHHHe 

115@ LPRINT CHR$(27)"a" "MASTER RESET 

116@ LPRINT CHRS(27)"3"CHRS(4) "SET 4/216" LINE FEED 

1170 DP$=CHR$(27)+"Z"+CHR$(8)+CHR$(@)+STRINGS (8,28) | *QUADRUPLE-DENSITY DOT 
118@ CR&=CHR$ (13)+CHR$(27)+" j"+CHRS(4) "CARR. RET. W/ REVERSE LINE FEED 


1198 KL=115@: KH=1160 

1200 FOR I1=0 TO NV-1 

1210 PRINT I,KL,KH 

1220 IF VAL(LEFT$(XY$(I),5))>KH THEN LPRINT CHRS$(10)5° KL=KH: KH=KH+5: GOTO 12 
18 

1230 IF VAL(LEFTS(XY$(1),5))>KL AND VAL(LEFTS(XY$(1),5))=<KH THEN PRINT XYS(1) 
= Y¥(I)=8@0-VAL (RIGHTS(XY$(1),3))3 GOSUB 180 

1240 NEXT I 


1278 DATA A,20,B,24,C,18,D,10,E,17,F,22,END 


PROGRAM 10-5. PIECHART/TRS. Exploded-slice pie-chart 
program for TRS-80 printers. 


1@ *PROGRAM 10-5: "PIECHART/TRS® -- EXPLODED PIE CHART (TRS-80 MOD. 4 VERSION) 

15 "EXTENSION OF PROGRAM 12-1 IN D.HEARN & M.P.BAKER, "MICROCOMPUTER GRAPHICS’ B 
OOK, PRENTICE-HALL, 1983 

20 LPRINT CHRS(30) 3 CHRS(27) § CHRS (28) § "CONDENSED PRINTING DENSITY 

38 CLEAR 4886 

40 DEFINT X,Y 

50 DIM XY$(500), ¥(560) 

68 GOTO 148 


78 Y(I)=.375#V(1)2 GIZ=FIX(Y(I)/256)2 G2KZ=FIX(Y(1)-256#G617%) 
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G@ PRINT "G1="3G1%3"G2=" 5627 
98 IF G2%=9 THEN G2%=8: ASS=CHRS$(30)+CHRS(27) +CHRS(2)+CHRS(18): ELSE AS$="" 
1@@ "(LINE 42 IS A DETOUR AROUND TROUBLE-CODE 9, DROPPING IT TO 8 AND 


"ADDING A SINGLE-DOT SPACE WITH ASS BEFORE THE DATAPOINT PRINT. ) 
LPRINT CHRS(27) § CHRS(16) § CHRS(G1%) 5 CHRS(G2Z) sASS§DPS5 
RETURN 


INPUT "NO. OF SLICES (2 TO 8)"5N 
INPUT "EXPLODE WHICH SLICE (1 TO 8)"5E 
R=250 
XN=120@: YN=330 
YA=.5 
FOR K=1 TO N 
READ N$(K),V(K) 
IF N$="END" THEN 248 
=T+V(K) 
NEXT K 
CLS: B=@: S=0 
RE=360*3.14159/18@ *RADIAN EQUIV. 
FOR K=1 TO N 
XC=XN:i YC=YN "NORMAL CENTER 
S=S+V(K) *CUMUL. SECTION VALUE 
A=RE#S/T ’ANGLE IN RADIANS 
IF K<>E THEN 410 >EXPLODE? 
AC=B+(A-B)/2 > HALF-ANGLE 
XE=XC+R/5#COS( AC) 
YE=YC+R/5#SIN(AC)*YA 
XP=XE+R#C0S(B) 
YP=YE+R#SIN(B)#YA 
GOSUB 698 
XP=XC+R#COS(A) 
YP=YC+R#SIN(A)#YA 
GOSUB 530 
XC=XEs YC=YE 
FOR Al=B TO A STEP 10/R 
XP=XC+R*¥COS(A1 ) 
YP=YC+R#SIN(A1)#YA 
X¥$( I )=STRSCINT(XP+3QQ) )+°A*+STRSCINT(YP)): I=I+1 
NEXT Al 
GOSUB 530 
B=A 
NV=I 
NEXT K 
GOSUB 740 "SORT OF XY$(I) VALUES 
GOSUB 12039 
END 


"X-¥ COORDINATES OF SECTION LINES 

IF XC<>XP THEN 680 

IF YC>YP THEN ST=1@ ELSE ST=-108 

FOR Y=YC TO YP STEP ST: XY$(I)=STRS(XC+300)+"A"+STRS(INT(Y) ) 
I=I+1 

NEXT Y 

RETURN 
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680 M=(YP-YC)/(XP-XC) 

61@ IF ABS(M)>1 THEN ST=ABS(10/M) ELSE ST=10 
620 IF XC>XP THEN ST=-ST 

638 FOR X=XC TO XP STEP ST 

640 = Y=M#(X-XC)+YC 

650 XY$(1)=STRSCINT(X4+30Q) )+"A°+STRSCINTCY)) 


698 >X-Y COORDS OF EXPLODED-SECTION LINES 
708 XC=XEs YC=YE 

718 GOSUB 538 

728 XC=XN: YC=YN 


74@ *SHELL-METZNER SORT OF XYS$(T) 

758 SOUND 6,5: SOUND 4,10: SOUND 2,8 

768 PRINT "SORT" 

778 P=0 

788 Q=NV 

798 Q=INT(Q/2) 

800 IF Q=@ THEN 998 

810 P=P+1 

826 PRINT P 

830 FOR BL=6 TO Q-1 

848 I=BL 

850 J=BL+Q 

868 SW=0 

870 IF XY$(1)<=XY3(J) THEN 920 

880 SW=1 

890 BS=XY$(1) 

980 XV$(1)=XY$(J) 

910 XYS(J)=BS 

920 I=J 

938 J=J+Q 

949 IF J<NV THEN GOTO 8708 

950 IF SW=@ THEN GOTO 978 

968 GOTO 848 

978 NEXT BL 

988 GOTO 798 

999 PRINT "SORT DONE“: SOUND 4,5: SOUND 5,8 
1882 GOTO 1020 

101@ FOR I=@ TO NV-1: LPRINT XYS(1I)52 NEXT I 
18020 RETURN 

OQ mmm a a I 
1038 ’PRINTOUT ON TRS-8@ DMP-40@ PRINTER 
1048 LFS=CHRS (27) +CHRS (58) +CHRS (27) +CHRS (51) 
1850 DP$=CHR$(18)+STRINGS(4, 156) 

1068 KL=1150: KH=1162 

1070 FOR I=@ TO NV-1 

1088 PRINT I,KL,KH 

1990 IF VAL(LEFT$(XY$(1),5))>KH THEN LPRINT LFS$% KL=KH? KH=KH+5: GOTO 1080 
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1186) =F VAL(LEFTS(XV¥$(1),5))>KL AND VAL(LEFTS(XY$(1),5))=<KH THEN PRINT XY$(I) 
: ¥(1)=800-VAL (RIGHTS(XY$(1),3))2 GOSUB 70 

1110 NEXT I 

112@ RETURN 


1130 DATA A, 20,B,12,C,18,D,10,E,17,F,22,END 


Printouts from PIECHART/EPS, written for IBM-Epson 
printers, and from PIECHART/TRS (program 10-5) are 
shown in figure 10-7. The left and center examples, printed 
by the Epson FX-80, show that the same program can be used 
for both exploded and unexploded pie charts. To the right of 
these is an exploded pie chart printed by the DMP-400 using 
the TRS-80 version of the PIECHART program. 

At this point a major shortcoming becomes evident—un- 
like most screen dumps, these PIECHART programs don’t 
provide any labeling of the pie sections. There doesn’t seem 
to be any simple way to do this labeling on the printer, al- 
though there is the possibility that after the pie chart itself is 
drawn, the X-Y coordinates used in its drawing can also be 
used to position labels, which are printed with built-in char- 
acters. Even without labeling, direct-programmed pie charts 
may be very useful because of their high resolution, and you 
can nearly always get a better finished product by labeling 
them manually. Furthermore, in illustrations involving many 
pies in a group (see an example of this in chapter 12) the 
usual labels would only get in the way. 


FIGURE 10-7. Printouts from the PIECHART programs for the 
Epson FX-80 (left and center) and the DMP-400. (Adapted by 
permission of Prentice-Hall, Inc., from Microcomputer Graphics: 
Techniques and Applications by Donald Hearn and M. Pauline 
Baker.) 
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(EPSON FX-80 PRINTER) (TRS-80 DMP-400 PRINTER) 
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Still, it’s an unpleasant surprise to discover a labeling 
problem this difficult in printer graphics. On this somewhat 
sour note, we move from graphs to diagrams and tables, hop- 
ing for better luck (or skill). 


11 
Diagrams, Maps, Tables, and Grables 


THERE are lots of graphic creations that aren’t called graphs 
because they don’t have the main purpose of presenting nu- 
merical data. The clearest examples are electrical circuit 
diagrams, organization charts, flow sheets, architectural 
drawings, and maps. When it comes to programming these 
for a dot-matrix printer, we often have a choice between the 
bit-image approach and using the printer’s built-in block 
graphics. 


Diagrams with Block and Line-Graphic Characters 


Some diagrams—not very complex ones—can be drawn by 
printers without ever entering the graphic mode. Many print- 
ers, including all the recent TRS-80s, the IBM Matrix and 
Graphic printers, and the NEC 8023A have ready-made 
graphic characters that can be used in the ordinary text mode. 
The IBM and NEC characters are shown in figure 11-1, and 
the TRS-80 characters are shown in figure 11-2 (left side). 

With a little study, you can see that most of these charac- 
ters are designed to be fitted together to make diagrams of 
many types. They can also be used for bar graphs, but are 
probably useless for other types of graphs or for maps. Ac- 
tually, it isn’t very easy to find or dream up illustrations of 
their use even in diagrams—few have appeared in the micro 
publications and almost none in manuals for printers having 
these built-in characters. It is even harder to come up with 
examples in which all the drawing is done with them, as 
opposed to being mixed with bit-image drawing. 
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IBM GRAPHICS PRINTER 


180 181 182 183 184 185 186 187 188 189 


190 191 192 193 194 195 196 197 198 199 


200 201 202 203 204 206 206 207 208 209 


FIGURE I1-l. Raw 
materials for drawing 
diagrams in text mode: built- 
in graphic characters available 
| cee | on the IBM Graphics and 


slit NEC 8023A printers. 


NEC PC-8023A-C PRINTER 


210 211 +212 «+213 214 #218 216 217 218 219 


The NEC and IBM graphic symbols require 72-inch line 
feeds for fitting the characters together vertically, while the 
DMP-400’s six-by-six symbols call for %2-inch spacing. Hor- 
izontal fitting is usually assured by the standard six-dot 
movement of the printhead after printing any text-mode char- 
acter. 

Printers that don’t have these built-in graphic characters 
can easily make them out of dots in the graphic mode. As 
with homemade alphabetic characters, block and line sym- 
bols that are identical to Radio Shack’s six-by-six ready- 
mades can be defined in strings and referred to later in a 
program by the string names. Better yet, you can make seven- 


7X7 


: 


CHRS( 225): * = §§ STRINGS(3, 128) sSTRINGS(4, 143) 
CHRS( 226 )8 ° 8 8 — STRINGS (4, 143) SSTRINGS(1, 128) 
CHR6( 227 )8 «© = @ STRINGS(4,248) STRINGS(3, 128) 
CHRS( 228 )8 » =  e  STRINGS(3, 128) sSTRINGS(4,248) 
CHRS( 229) 8% ==) =— STRINGS (4, 143) SSTRINGS (4, 248) 
CHRS( 238): #& = @® STRINGS(4,248) SSTRINGS(4, 143) 
CHRS( 231): © = @ STRINGS(7,143) 
CHR$( 232) «= = wm STRINGS(7,248) 
CHRS( 233) 8 = § STRINGS(4, 255) sSTRINGS(3, 128) 
CHRS( 234 )t 6 = 8 = STRINGS(3, 128) sSTRINGS(4, 255) 
CHRS( 2335): FP = $F STRINGS(4, 255) SSTRINGS(3, 143) 
CHRS( 236): B= WH STRINGS(3, 143) SSTRINGS(4, 255) 
CHRS( 237 )s) & = fh STRINGS(4, 255) sSTRINGS(3, 248) 
CHRS( 238): # = gf STRINGS(3, 248) sSTRINGS(4, 255) 
CHR$( 239): @ = 8 STRINGS(7,255) 
CHRS( 248 )t 2 =e = STRINGS (3, 128) $CHRS (248) § CHRS (136) 
CHRS( 241): - = — STRINGS(7,136) 
CHR$( 242 8 25 = 4) STRINGS(3, 136) §CHRS (248) STRINGS (3, 128) 
CHRS( 243 8 + = + STRINGS(3, 136) §CHRS(248) SSTRINGS(3, 136) 
CHRS( 244 ): F = =F — STRINGS(3, 128) } CHRE (255) § CHRO(3, 136) 
CHRS( 245 )8 1 = — f-— STRINGS(3, 128) § CHRS (255) § CHRS(3, 128) 
CHRS( 246 )3 + = © — STRINGS(3, 128) 3CHRS (143) sSTRINGS(3, 136) 
CHRS( 247 )8 4 = 4 STRINGS (3, 136) §CHRS( 143) sSSTRINGS(3, 128) 
CHR$( 248 )t 4 es STRINGS (3, 136) § CHRS( 143) STRINGS (3, 136) 
CHRS( 249 )t 4 2 4 STRINGS(3, 136) § CHRS (255) sSTRINGS(3, 128) 
CHRO( 238): + s+ STRINGS (3, 136) § CHRS (255) SSTRINGS(3, 136) 
CHR$( 251): VF cs wp CHRS (255) § CHRS (191) § CHRS( 159) § CHRS( 143) § CHRS(135) § CHRO (131) §CHRE(129) 
CHR$( 252): 4 = @ CHRS (192) | CHRS (224) § CHRE(248) § CHRS (248) § CHRS (252) § CHRS (254) § CHRS (255) 
CHRS( 253): VY sa CHRS (129) § CHRO (131) §CHRS (135) § CHRS (143) § CHR (159) §CHRS( 191) §CHRS(255) 
CHRS( 254): & = fb CHRS (255) § CHRS (254 ) § CHRS (252) § CHRO (248) § CHRS (248) § CHRO (224) § CHRE( 129) 
(NO CHARACTER) 7 CHR (168) § CHRO (144) § CHRO (136) $CHRO( 132) § CHRS( 138) §CHRO(129) 
(NO CHARACTER) \  GHRS (129) § CHRO (138) § CHRS (132) § CHRO( 136) § CHRS (144) § CHRO (148) 
(NO CHARACTER) % — CHRO( 161) § CHRO (146) § CHRS (148) § CHRO (148) § CHRS( 146) §CHRS (161) 
(NO CHARACTER) I CHRS (255) SSTRINGS (6, 128) 
(NO CHARACTER) | STRINGS (6, 1268) sCHRS (255) 


FIGURE 11-2. Homemade seven-by-seven graphic characters using bit-image 
programming (right), compared with the DMP-400’s built-in characters (left). 


by-seven characters that are similar to these and gain the 
advantage of an odd number of dots—the middle dot of an 
odd number gives you a true center. That is, with eight-dot- 
high symbols the nearest you can get to the vertical center 
point is the fourth or fifth dot, and with six-dot-high symbols, 
the third or fourth dot. This can cause problems that you 
would avoid with seven-by-seven characters when it comes 
to fitting the symbols together in a diagram. 

In addition to the DMP-400’s six-by-six built-in characters, 
figure 11-2 shows a seven-by-seven bit-image version of each 
character and a few other symbols as well. You can see that 
it doesn’t take very much typing to define each of the bit- 
image characters, and in the case of line symbols the seven- 
by-sevens are more perfectly symmetrical or better centered 
than the six-by-sixes. 
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A line-graphic diagram. For an example of the line-graphic 
characters in use, we have the tournament diagram in figure 
11-3. Program 11-1 (TRNYGRAM) shows what it takes to 
draw the annual NCAA college basketball tourney. 
Throughout the TRNYGRAM program the only graphic 
characters used are the DMP-400’s straight horizontals and 
verticals, CHR$(241) and CHR$(245); two of the corners, 


FIGURE 11-3. Using built-in line-graphic characters: a tournament diagram 
(TRNYGRAM program). 


FIRST 
ROUND 


SW LOUISIANA 
RUTGERS 

VIRGINIA COMMONW. 
LASALLE 
SYRACUSE 
MOREHEAD STATE 
WEST VIRGINIA 


JAMES MADISON 


WASHINGTON STATE 
WEBER STATE 
OKLAHOMA STATE 
PRINCETON 

N. CAROLINA STATE 
PEPPERDINE 


ILLINOIS 


SECOND 
ROUND 


REGIONAL 
QUARTERFINALS 


REGIONAL 
SEMIFINALS 


NAT TIONAL 


FINAL FOUR FINALS 


RUTGERS (60-53) 
ST. JOHN'S (66-55) 
ST. JOHN'S 
GEORGIA (70-67) 
VIRG.-COMM. (76-67) 
GEORGIA (56-54) 
GEORGIA 
EAST REGIONAL. GEORGIA (82-77) 


GHIO STATE (79-74) 


SYRACUSE (74-59) 


OHIO STATE 
N. CAROLINA (64-51) 
J. MADISON (57-50) 
N. CAROLINA (68-49) 
NORTH CAROLINA 


N.C. STATE (67-60) 


WASH. ST. (62-52) 
VIRGINIA (54-49) 
VIRGINIA 
VIRGINIA (95-92) 
PRINCETON (36-353) 
BOSTON COLL.(51-42) 
BOSTON COLLEGE 
WEST REGIONAL. N.C. STATE (63-62) 
N.C. STATE (69-67 20T) 
N.C. STATE (71-70) 
NEVADA-LAS VEGAS 
N.C. STATE (75-56) 


UTAH (52-49) 
UTAH UTAH (67-61) 
UCLA 


TENNESSEE 
MARQUETTE 
PUROUE 

ROSERT MORRIS 
ILLINOIS STATE 
OHIO U. 


OKLAHOMA 


ALABAMA-BIRMINGHAM 


MARYLAND 
TENNESSEE-CHAT. 
GEORGETOWN 
ALCORN STATE 
ALASAMA 

LAMAR 

IOWA 


UTAH STATE 


TENNESSEE (37-36) 
LOUISVILLE (70-57) 


LOUISVILLE 
LOUISVILLE (65-63) 

PUROUE (55-53) 

ARKANSAS (78-68) 
ARKANSAS 

MIDEAST REGIONAL LOVISVILLE (80-68) 

OHIO U. (51-49) 

KENTUCKY (57-40) 
KENTUCKY 


KENTUCKY (64-39) 
OKLAHOMA (71-63) 
INOIANA (63-49) 
INDIANA 


HOUSTON (94-81) 


MARYLAND (32-51) 
HOUSTON (60-50) 
HOUSTON 
HOUSTON (70-63) 
GEORGE TOWN (68-63) 
MEMPHIS ST. (66-57) 


MIDWEST REGIONAL 
VILLANOVA (60-38) 


MEMPHIS STATE 
HOUSTON (89-71) 
LAMAR (73-50) 


VILLANOVA 
VILLANOVA (35-54) 
IOWA (64-59) 
IOWA (77-63) 
MISSOURI 


NATIONAL 
CHAMP TON 


N.C. STATE (34-52) 
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CHR$(242) and CHR§$(247); and a reclining T-shaped char- 
acter, CHR$(244). Subroutine 2000 does all the drawing, and 
is reused for each of the four regions of the country. This 
requires that all East teams (eight first-round, eight winners 
of that round, four quarterfinalists, two semifinalists, and one 
of the Final Four teams) be listed in the DATA statements in 
that order. The same order has to be followed for the succes- 
sive readings of the teams in the West, Mideast, and Midwest 
regions. 

The more difficult part of the programming is intercon- 
necting these regions (two at a time) to display the winners 
of the Final Four matches and the emergence of one of these 
national finalists as the national champion. That is the job of 
subroutines 3000-6000, and it involves several FOR-NEXT 
statements. 


PROGRAM 11-1. TRNYGRAM. Tournament diagram using 

built-in line-graphic characters. 

10 "PROGRAM 11-1: “TRNYGRAM® -- TOURNAMENT DIAGRAM WITH LINE-GRAPHIC CHARACTERS 
12 Copyright (c) 1985 by John Warner Davenport 

15 "FOR TRS-80 COMPUTERS AND WIDEBODY PRINTERS 

20 CLEAR 2000 


3Q PFS=CHRS( 27) +CHRS( 17) "PROPORTIONAL FONT 

4@ NMS=CHRS (27) +CHRS(19) "NORMAL (10-CPI) DENSITY 
JO HLS=CHRS (27) +CHRS (32) +CHRS (27) +CHRS (14) "ELONGATED ON 

68 HES=CHR$ (27) +CHRS (15) +CHRS (27) +CHR$(31) "ELONGATED OFF 

70 SPS=CHR$ (224) *BLANK SPACE 

80 LFS=CHR$ (28) +CHRS$ (27) +CHRS (28) +CHRS(19) 71/12" LINE FEED 


FO * HHKEREREKEEREHED POSITIONING STRINGS #4 322-244444% 

188 POS=CHRS(27)+CHR$( 16) +CHRS(O)+CHRS(O)+SPS 

118 P1$=CHR$(27)+CHR$(16)+CHRS(Q)+CHRS( 108) 

120 P2$=CHRS (27) +CHRS( 16) +CHRS(O) +CHRS(216) 

13@ P3S=CHR$ (27 )+CHRS(16)+CHRS(1)+CHRS(68) 

140 P4$=CHR$(27)+CHRS(16)+CHRS( 1) +CHR$(176) 

158 P5$=CHRS (27) +CHR$( 16) +CHRS(2)+CHR$ (28) 

168 P&S=CHRS (27) +CHR$( 16) +CHR$(2) +CHRS( 136) 

170 LPRINT CHR$(3Q) 5NM$3 ” RESET 

LED 7 66H DATA INPUT  236-363646-3-26-56-3636-26-26-6-26-6 040% 

190 DIM R1$(32),W1S(16),R2$(16) ,QF$(16),SFS(8) , REGS(4) FFS(4) NC$(2) 
28@ READ REG$(1): FOR N=1 TO 8: READ R1$(N): NEXT N ’ROUND 1 

210 READ REG$(2): FOR N=9 TO 16: READ R1$(N): NEXT N 

220 READ REG$(3): FOR N=17 TO 24: READ R1$(N): NEXT N 

230 READ REG$(4): FOR N=25 TO 32: READ R1$(N)! NEXT N 

240 FOR N=1 TO 16: READ W1$(N): NEXT N "WINNERS OF ROUND 1 

250 FOR N=1 TO 162 READ R2%(N): NEXT N "SECOND ROUND TEAMS 

268 FOR N=1 TO 16: READ QF$(N): NEXT N "REGIONAL QUARTERFINALS 


270 FOR N=1 TO 8: READ SFS(N): NEXT N "REGIONAL SEMIFINALS 
288 FOR N=1 TO 4: READ FFS(N): NEXT N "FINAL FOUR 
278 FOR N=1 TO 2: READ NFS(N): NEXT N "NATIONAL FINALS 
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38@ READ NCS "NATIONAL CHAMPION 

JQ > eexnxexeeeeeee PRINTING OF CHART HEADINGS ##2eHHHHHREEHE RE 

32@ LPRINT CHR$(27) 5 CHRS(31) 5 "BOLDFACE PRINTING 

338 LPRINT PO$;” FIRST" 5P1$5° SECOND" 5P2$3" REGIONAL" 5 P35 ° REG 
TONAL" 5 P53" NATIONAL * 5 P6$5° NATIONAL” 5 CHRS (13) § 

340 LPRINT * ROUND® 5P1%5° ROUND" $P2%3" QUARTERFINALS" 5 P3$5° SEMIF I 
NALS" 5 P4535" FINAL FOUR" 5;P5$5° FINALS" 3 P6$5° CHAMPION" § CHRS (13) § 


35@ GOTO 28080 

1002 ’xxxxxeexxeee DATA: TEAM LISTINGS, SCORES ###eRREEEERES 

1018 DATA EAST, SW LOUISIANA, RUTGERS, VIRGINIA COMMONW. » LASALLE, SYRACUSE, MOREHEAD 

STATE, WEST VIRGINIA, JAMES MADISON 

102@ DATA WEST, WASHINGTON STATE,WEBER STATE, OKLAHOMA STATE, PRINCETON,N. CAROLIN 
A STATE, PEPPERDINE, ILLINOIS, UTAH 

1@30 DATA MIDEAST, TENNESSEE, MARQUETTE, PURDUE, ROBERT MORRIS, ILLINOIS STATE, OHIO 
U. y OKLAHOMA, ALABAMA-BI RMINGHAM 

1048 DATA MIDWEST, MARYLAND, TENNESSEE-CHAT. »GEORGETOWN, ALCORN STATE, ALABAMA, LAMA 
R, IOWA, UTAH STATE 

1@5@ DATA RUTGERS (46@-53),VIRG.-COMM. (76-67),SYRACUSE (74-59),J. MADISON (57-58 
) WASH. ST. (62-52) PRINCETON (56-53),N.C. STATE (69-67 20T), UTAH (52-49) 

1068 DATA TENNESSEE (57-56), PURDUE (55-53),0HIO U. (51-49),QKLAHOMA (71-63) yMARY 
LAND (52-51),GEORGETOWN (468-63),LAMAR (73-50), IOWA (64-59) 

1070 DATA ST. JOHN’S, GEORGIA, OHIO STATE,NORTH CAROLINA, VIRGINIA, BOSTON COLLEGE ,N 
EVADA-LAS VEGAS, UCLA, LOUISVILLE, ARKANSAS, KENTUCKY, INDIANA, HOUSTON, MEMPHIS 5S 
TATE, VILLANOVA, MISSOURI 

1@8@ DATA ST. JOHN’S (66-55) ,GEORGIA (56-54),0HIO STATE (79-74),N. CAROLINA (68- 
49) VIRGINIA (54-49) ,BOSTON COLL. (51-42),N.C. STATE (71-70) ,UTAH (67-61) 

1092 DATA LOUISVILLE (70-57),ARKANSAS (78-68), KENTUCKY (57-48), INDIANA (63-49),H 
QOUSTON (68-50), MEMPHIS ST. (46-57),VILLANOVA (68-58), IOWA (77-63) 

11@@ DATA GEORGIA (70-67),N. CAROLINA (64-51),VIRGINIA (95-92),N.C. STATE (75-56 
)sLOVISVILLE (65-63), KENTUCKY (64-59), HOUSTON (78-63) VILLANOVA (55-54) 

111@ DATA GEORGIA (82-77),N.C. STATE (63-62),LOUISVILLE (80-68), HOUSTON (89-71) 

1128 DATA N.C. STATE (67-68),HOUSTON (94-81) 

113@ DATA N.C. STATE (54-52) 

2OGO ’ xxexeeeexeeeH REGIONAL PRINTING ROUTINE ##2#eHHHEHEEE 

2018 FOR Z=1 TO 4 

2020 ON Z GOSUB 3080 , 40080 , 5020 , 6800 

2038 FOR X=1 TO 2: LPRINT VUS$LUS5LF%32 NEXT X 

2040 LPRINT POS3PFS3R1$(1) 5NMS§VUS5LUS5LFS$§ 

2058 LPRINT POS;STRINGS( 17, 241) § CHRS(242) 5 VUSSLUSSLFS 5 

2060 LPRINT P1$3CHRS(245) sSP$3PFSjW1S (1) §NMS§ VUSSLUSSLFS§ 

2870 LPRINT P1%3;CHR$(244) sSTRINGS (17,241) § CHRS(242) 5 VUS§LUS5LFS 5 

2088 LPRINT POS PFS3R1$(2) |NM$$P1$3 CHRS (245) 5 P28 5 CHRS( 245) 3 SPS§PFS5QFS( 1) INMS§VU 
$5LUS5LFS5 

2090 LPRINT POS STRINGS (175 241) § CHRS( 247) §P2%3 CHRS (244) §STRINGS (17,241) 3 CHRE (242 
) ;VUS 5LUS5LFS5 

2188 LPRINT P1$SSP$;SP$;PFS3R2$ (1) $NMS$P2S5 CHRS (245) § P3995 CHRS (245) § VUSSLUSSLFS5 

2118 LPRINT P1S3STRINGS(18, 241) 3 CHRS (247) 3 P3%5 CHRS (245) 5 VUS§LUS SLFS5§ 

2120 LPRINT POS: PFS5R1$(3) 3NMS3PSS$ CHRS (245) §SPS§PFSESFS( 1) SNMS§VUSSLUSSLFS5 

2138 LPRINT POSSSTRINGS (17,241) §CHRS(242) §P3$5 CHRS (244) SSTRINGS (17,241) § CHRS (242 
) sVUS§LUS 5LFS$$ 

2140 LPRINT P1$3CHRS(245) $SPS$PFS3W1S(2) §NMS$P3S5 CHRS (245) §P4$5 CHRS (245) §VUSSLUS 
sLFS§ 

2150 LPRINT P1$3CHRS (244) sSTRINGS (17, 241) § CHRS(242) §P3%3 CHRS (245) § P4S5 CHRS (245) § 
VUS5LUSSLFS5 


2168 
2178 
2180 
2198 
2200 
2210 
2228 
2238 
2248 
2250 
2268 
2278 


2288 
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LPRINT POS 5 PFS3R1$(4) INMS5P1$§ CHRS( 245) §P2%5 CHRS (245) 3SP$5PFS30F$(2) SNMSSPS 
$3 CHRS (245) §P4$5 CHRS (245) SVUSSLUSSLFS; 

LPRINT POS SSTRINGS (17,241) § CHRS(247) § P2$5 CHRS( 244) STRINGS (17, 241) § CHRS$ (247 
)3P4$5 CHRS(245) 5 VUSSLUSSLF$; 

LPRINT P1S55P$ 5 SPS 5 PFS§R2$(2) §NMS§P2S53 CHRS (245) §$ P4935 CHRS(245) SVUSSLUSSLFS3 
LPRINT P1$$STRINGS (18,241 ) § CHRS(247) 3P4%5 CHRS(245) SVUSSLUSSLFS3 

LPRINT POS 3PFS§R1$(5) §NMS5P2$5STRINGS( 1,224) § CHRS(15) SHLS$PFS$REGS(Z) 3° REG 
TONAL * HES § CHR$ (14) §NM$§P4%5 CHRS (245) $SPS5PFSSFFS(1) SNMSSVUSSLUSSLES3 
LPRINT POS 3STRINGS (17,241) § CHRS(242) §P4%5 CHRS (244) SSTRING$(17, 241) $CHRS(E) 3 
LLS$LFS5 

LPRINT P1$§ CHRS (245 ) §SPS5PFS5W1$(3) 5NM$$P4$5 CHRS(245) SVLSSLLS3LFS3 

LPRINT P1$5CHR$(244) §STRINGS(17, 241) } CHRS(242) §$P4%3 CHRS (245) SVL$SLLS3LFS: 
LPRINT POS§PFS5R1S(6) NMS 5P1S5 CHRS (245) 5 P2$5 CHRS (245) ;SPS$3PFSS0F$(3) SNMSSP4 
$5 CHRS (245) SVLS5LLS5LF$3 

LPRINT POS$STRINGS (17,241) § CHRS (247) 3P2$5 CHRS(244) STRINGS (17, 241) §CHRS(242 
)5P4S5 CHRS(245) sVL$5LLS5LF$3 

LPRINT P1$§SP$ 3 SP$5PFS5 R28 (3) §NMS3P2S5 CHRS (245) §P3S3 CHRS (245) 5P4$5 CHRS (245) 
3VL$5LL$5LF$3 

LPRINT P1S§STRINGS (18,241) § CHR$(247) §P3$3 CHRS (245) $P4$3 CHR$(245) SVL$SLL$3LF 
$5 

LPRINT POS § PF$§R1$(7) 5NMS§P3%5 CHRS (245) 5SP$5PFS3SFS(2) 3NM$$P4$5 CHRS(245) SVL 
$5LLS5LFS;5 

LPRINT POS§ STRINGS (17,241) § CHRS(242) 3 P3$5 CHRS(244) SSTRINGS( 17, 241) § CHRS(247 
)SVLSSLLS5LFS;5 

LPRINT P1$5 CHRS (245 ) §SPS5PFS3W1$(4) §NMS5P3S3CHRS(245) SVLSSLLSSLFS3 

LPRINT P1$5CHRS (244) STRINGS (17,241) § CHRS(242) §P3$5 CHRS(245) $VLSSLLS5LFS3 
LPRINT PQS§PFS3R1$(8) §NMS§P1S5 CHRS( 245) 5 P2$5 CHRS (245) SSPS3PFSSQFS(4) SNMSEPS 
$3 CHRS (245) SVLS3LLS5LFS3 

LPRINT POS SSTRINGS (17,241) § CHRS (247) § P2$5 CHRS (244) $STRING$(17, 241) 3 CHR$(247 
)sVLS5LLS5LFS; 

LPRINT P135SP$53SP$ 5 PFS}R29(4) $NM$3P2$5 CHR$(245) SVLSSLLS5LF$3 

LPRINT PIS§STRINGS (18,241) § CHRS(247) SVLS3LLS3LF$3 

FOR X=1 TO 2: LPRINT P5SS$SVLSSLLSSLF$3: NEXT X 

LPRINT VL®3SP$5PFS5NFS(1) SNMSSLL93LF3; 

LPRINT P5%5CHRS$(J) $STRINGS(17,K) §CHRS(L) SCSSLFS3 

NEXT Z 

PRINT "JOB COMPLETED": END 

"HRHEHHEERHEHEREEH EAST REGION CONTENTS 44255-45224 

FOR Y=1 TO 8: R1S$(Y)=R1S(Y): NEXT Y 

FOR X=1 TO 42 W1S(X)=W1S(X)2 R2S(X)=R2G(X)2 OFS(X)=QF$(X)!2 NEXT X 

FOR W=1 TO 2: SFS(W)=SFS$(W): NEXT W 

FFS(1)=FFS(1)2 NFS(1)=NFS$(1) 

VUS=""s LUS="" VL$=P5$+CHR$(245): LLS="" 

T=72 E=242: J=244: K=241: L=242: C$="" 

RETURN 

HHEHEEHEKHEEKERE WEST REGION CONTENTS 444444044 H HERE 

FOR Y=1 TO 8: R1$(Y)=R1$(Y+8): NEXT Y 

FOR X=1 TO 42 W1IS(X)=W1$(X44) 8 R2S(X)=R2S(X+4)3 QFS(X)=QFS(X+4)5 NEXT X 

FOR W=1 TO 2: SF$(W)=SFS(W+2): NEXT W 

FFS(1)=FFS(2)3 NFS(1)="°" 

VUS=P5$+CHRS (245): LUS=P6$+CHRS(245)! VLS=""s LLS=P4$+CHRS(245) 

T=72 E=247: J=224: K=224: L=224: C$=P6$+CHRS (244) +CHRS (20) +CHRS (27) +CHRS( 30 
)+CHRS (27) +CHRS (30) +SPS+PFS+NCS+NMS+LFS+LFS+P46$4+STRINGS (17,241) 

RETURN 
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SOOO ’ exxexenxexxnxe MIDEAST REGION CONTENTS 4XR HEHEHE REE 

5019 FOR Y=1 TO 8: R1S(Y)=R1$(Y+16):2 NEXT Y 

5020 FOR X=1 TO 4: WiS(X)=W1S(X+B8) = R2$(X)=R2Z2$(X4+B)2 QFS(X)=QFS(X+8):2 NEXT X 
5@30 FOR W=1 TO 2: SFS(W)=SFS(W+4): NEXT W 

5Q@40 FFS(1)=FFS(3): NFS(1)=NFS(2) 

5050 VUS=""s LUS=P46$+CHR$( 245)? VLS=P5$+CHRS( 245): LL$=P6$+CHRS$ (245 ) 

5060 1=5: €=242: J=244: K=241: L=247: C$="" 

5870 RETURN 

GOOD ° exeeeeexeeeeeee MIDWEST REGION CONTENTS 444 HHHHHEHEEER 

6910 FOR Y=1i TO 8: R1IS(Y)=R1$(Y+24): NEXT Y 

6020 FOR X=1 TO 4: W1IS(X)=W1S(X+12)5 R2$(X)=R2$(X412)8 QFS(X)=QFS(X+12)= NEXT X 
6030 FOR W=1 TO 2: SFS(W)=SFS(W+4)? NEXT W 

6040 FFS$(1)=FFS$(4): NFS(1)="" 

6052 VUS=P5$+CHR$(245)5 LUS=""s VLS=""s LLS="" 

6068 I=5: E=247: J=224: K=224: L=224: C$="" 

6070 RETURN 


At no point does the TRNYGRAM program enter the bit- 
image graphic mode, but our next illustration mixes the built- 
in block graphic characters with many elements drawn in bit 
graphics. This seems to be necessary in architectural draw- 
ing, in order to provide enough detail and accuracy. 

Figure 11-4 shows the printout of an architectural plan of a 
house in Madison, Wisconsin. The program for it, called 
MADHOUSE (which is entirely appropriate as deadlines 
near), is listed only partially (program 11-2). 

This program uses three of the ready-made rectangular 
block characters (codes 239, 231, and 232) on the DMP-400 
for the walls and door frames of the plan and triangular char- 
acters (252 and 254) for part of the fireplace. It also makes a 
great deal of use of the six-dot-wide blank, CHR$(224), for 
the many empty spaces in the drawing. 

These characters and %-inch (or Yi2-inch) line feeds in 
text mode are continually intermixed with nearly two dozen 
bit-image strings for such features as patio doors (line 150), 
different sizes of windows (lines 160, 170, 420, and 430), and 
single-dot lines (used for the stairway, deck, kitchen 
counters, and a built-in desk). Curved lines in the bathroom 
fixtures and dotted lines for closets are also drawn in the bit- 
image mode. 

The orientation of the drawing has the longest dimension 
of the house parallel to the printhead movement, so that 
built-in alphabets can be used for the labeling. Carriage re- 
turns are handled by the direct-positioning sequence 
(27+16+0+0) defining CR$ in line 30, to guarantee that 
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ELIZABETH . RANNEY, ARCHITECT 


DRAWING ON TRS-8O MODEL III MICROCOMPUTER 
AND DMP-400 DOT-MATRIX PRINTER 


FIGURE 11-4. Using a mixture of block-graphic characters and 
bit-image drawing: an architectural plan (MADHOUSE program). 


each print line starts at the left margin and that carriage re- 
turns are independent of line feeds. 

In the programming it is essential to have an accurate 
drawing or tracing of the building. If a standard plan having 
a scale of Y%4-inch per foot is traced with eight-squares-per- 
inch, see-through graph paper, each square will represent six 
inches by six inches of the real building, and each dot in the 
six-by-six matrix of a block graphic character will represent 
exactly one inch. This makes it easier to figure out the coding 
for in-between sizes and distances that are not even multi- 
ples of six. All this assumes another essential procedure— 
using elite (12-CPI) rather than pica (10-CPI) dot density for 
the whole drawing, so that horizontal distances will equal 
vertical distances. 


PROGRAM 11-2. MADHOUSE. Architectural drawing 
combining the block-graphic and bit-image approaches. 


1@ *PROGRAM 11-2: "MADHOUSE" -- ARCHITECTURAL DRAWING 

13 "Residential architectural plan: Elizabeth M. Ranney, Architect, Madison, WI 
15 ’FOR TRS-8O COMPUTERS AND WIDEBODY PRINTERS 

20 CLEAR 1@00 

30 CRS=CHRS (27 )+CHRS (16) +CHRS (BO) +CHRS(O) *CARRIAGE RETURN 
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40 PNS=CHRS(27)+CHRS(16) "POSITIONING STRING 
50 POS=CHRS$ (27) +CHRS$ (16) +CHRS(Q) ? " 2 


60 P1$=CHR$ (27) +CHR$(16)+CHRS(1) 
78 P2$=CHRS$ (27) +CHRS( 146) +CHRS (2) 


? a 6 


80 CFS=CHRS(27)+CHRS(18) "CORRESPONDENCE FONT 

90 NM$=CHRS (27) +CHRS$ (23) "NORMAL 12-CPI DENSITY 

95 CPS=CHRS (27) +CHRS (20) "CONDENSED 16.7-CPI DENSITY 

100 LFS=CHR$ (30) +CHRS (28) +CHRS (27) +CHRS (28) +CHRS (19) "1/12" LF 

110 RLFS=CHR$ (30) +CHRS (20) +CHRS (27) +CHRS (30) +CHRS (19) "REVERSE LF 

128 LPRINT CHRS(3Q) 3NM$5 CHRS (27) § CHRS(31) § "BOLD PRINTING 

138 LBS=CHRS (3@)+CHRS$ (27 ) +CHRS (32) +CHRS (15) +CHRS (27) +CHRS(14)+CFS "ELONGATED 
PRINTING W/ UNDERLINE 

148 ULS=CHR$(14)+CHR$ (27) +CHRS (15 ) +NM$+CHRS (27) +CHRS (31) "END ELONGATED 


145 
150 


480 


490 
500 


& UNDERLINE 
> EHKREREHREREREEEHHEREEHEEH BUILDING BLOCKS 44H HEHEHE RERHERERERERERHERER ERS 


PDS=CHRS$(18)+STRINGS (47, 165) +STRINGS (2, 191) +STRINGS (47, 169) +CHRS (30) 
*PATIO DOOR 
WS=CHRS (18) +STRINGS (23, 169) STRINGS (2, 191) +STRINGS (23, 169) +CHRS (3) 


"DOUBLE WINDOW 
PWS$=CHRS (18) +STRINGS (44, 169) +STRINGS(4, 191) +STRINGS (46, 169)+ CHRS (30) 
"PATIO WINDOW 
SL$=CHR$ (18) +CHRS(191)+STRINGS(5, 128) +CHRS (30) "SOLID LINE (+5 BLANK DOT-P 


OSITIONS) 
DL$=CHR$ (18)+CHRS(156)+STRINGS(5, 128)+CHRS (38) *>DASHED LINE (+ 5 BLANK DOT 


-POSITIONS) 

LD$=CHRS(18)+STRINGS(4, 128) +CHRS (156) +CHRS (128) +CHRS (38) * DASHED 
LINE (W/ 4 BLANKS BEFORE, 1 AFTER) 

LS$=CHR$ (18) +STRINGS(5, 128) +CHR$ (255 ) +CHRS (38) "SOLID LINE (PRECEDED BY 
5 BLANK DOT POSITIONS) 

EWS=CHR$ ( 30) +CHR$ (27) +CHRS(16)+CHRS(Q)+CHRS(36)+CHRS(239) "EAST WALL POS. 


TS$=CHRS (18) +CHRS (191) +STRINGS (3, 128) +CHRS (191 )+CHRS (1268) +CHRS (38) 


"TUB SIDE (EAST) 
TWS=CHR$ (18) +CHRS( 128) +CHRS (191 )+STRINGS(3, 128) +CHRS (191 )+CHRS(3Q) 


"TUB SIDE (WEST,WALL) 
TT$=CHRS (18) +STRINGS (4, 136)+CHRS (30) >TUB TOP 
LL$=EWS+CHR$ (27) +CHRS(15)+CHRS(Q)+CHRS( 180) +CHRS (239) "NORTHEAST BE 
DROOM WALLS 
KWS=CHR$ (18) +STRINGS (48, 165) +CHRS (38) "KITCHEN WINDOW 
NWS=CHRS (18)+STRINGS (20, 165) +STRINGS(2, 191) +STRINGS (28, 165) +CHRS (3) 


"OTHER NORTH WINDOWS 
DDS=CHRS$ (27 ) +CHRS (16) +CHRS (2) +CHRS (5) +CHRS (18) +CHRS (191) +CHRS (30) 

*DECK, WEST EDGE, NEXT TO DINING ROOM DOOR 
DWS$=DD$+LS$+CHRS (224) +LSS "MAIN WEST DECK EDGE 
DES=CHR$ (27 ) +CHR$ (16) +CHRS(1)+CHRS(104)+SL$+BS$ "MAIN EAST DECK EDGE 
ROS=CHR$ (27 ) +CHRS (16) +CHRS (2) +CHRS (85 ) +CHRS (18) +CHRS$ (156) +CHRS (30) ” DASHE 
D LINE BETWEEN REFRIG. & OVEN 
SV$=CHR$ (27) +CHRS (16) +CHRS (2) +CHRS (38) +CHRS (18) +CHRS (156) +CHRS (38) ” DASHE 
D LINE BETWEEN STOVE & DISHWASHER 
7 REKEKEHEERERERHERE START OF DRAWING HEHEHE EEEREREH 
LPRINT P1%3CHRS( 110) SSTRINGS(5, 239) § PD$§ CHRS (239) § PDS 5 STRINGS (4, 239) 5LFS5 

*SOUTH LIVING ROOM WALL 
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FOR N=2 TO 24: LPRINT P1$$CHRS(11@) § CHRS (239) 5 P25 CHRS( 188) 5 CHRS(239) 5: LPRI 
NT CHRS$(224)5LFS$3 5 NEXT N "EAST & WEST LIVING ROOM WALLS 

FOR N=1 TO 12: LPRINT RLFS§: NEXT Ni LPRINT P1$3CHRS$(198) 5LBS§"LIVING® 5UL$5 
FOR N=1 TO 15: LPRINT LFS$: NEXT Ni LPRINT P1$§3CHRS(19@) §CFS5 "HEARTH® 5NMS5 
FOR N=1 TO 3: LPRINT RLFS$: NEXT N 

FOR N=1 TO 3: LPRINT CHRS(27) §CHRS(5@)3: NEXT N  °’3/72" SPACE 

LPRINT CRSSSTRINGS( 4, 224) SSTRINGS(8, 239) §WS5 STRINGS (16, 239) § PWS § CHRS (233) §CH 
R$(B) 5 CHRS (6) § CHRS (18) SSTRINGS (33, 128) 5 CHRS (3B) § CHRS (239) 3 CHRS (239) SSTRINGS ( 
375224) STRINGS (7, 239) §WS5 CHRS (233) § CHRS(8) § CHRS (46) sSWSSSTRINGS (3, 239) § CHRS(2 
33) 5LFS5 

FOR N=1 TO 3:3 LPRINT CRSSEWS3STRINGS (22, 224) sDL$SSTRINGS (3, 224) § CHRS (239) 5ST 
RINGS (27,224) § CHRS (239) sDKSSSTRINGS (3,224) § CHRS (239) SWHSSLFS§ 2 NEXT N 

LPRINT PO$5CHR$(188) §CFS5"CL." §NM$$P2$§5 CHRS(92) 5CPS3"°DESK"SNMS5 

LPRINT EWSSSTRINGS (22, 224) sDL$3 STRINGS (3, 224) § CHR$ (239) SSTRINGS(27, 224) § CHRS 
(239) SSTRINGS(9, 224) 5 CHRS (18) § CHRS$ (255) SSTRINGS (188, 129) § CHR$(255) § 

LPRINT DK&3STRINGS(3, 224) § CHRS(239) SWWSSLFS5 

LPRINT EWSSSTRINGS (22, 224) §DLS;STRINGS(3, 224) § CHR$ (239) SSTRINGS (27,224) § CHRS 
(239) §STRINGS(9, 224) § CHRS (18) § CHRS (255) sSTRINGS( 180, 148) § CHR$( 255) § CHRS (30) § 
LPRINT DK$3STRING$(3, 224) 5 CHRS(239) SWWSSLFS5 

LPRINT EWS$STRINGS (22, 224) SDLSSSTRINGS( 3, 224) § CHRS (239) STRINGS (27, 224) § CHRS 
(239) STRINGS (8, 224) STRINGS (2, 232) § BSS §SLS§ CHRS (227) SSTRINGS( 7, 224) STRINGS 
(2,252) § CHRS (227) STRINGS (3,224) § CHRS (228) § 

LPRINT CHR (232) § CHRS (232) 5 BSS § CHRS(8) § CHRS(3) §SL$§ DKS 5 STRINGS (3, 224) § CHR$(2 
59) SWWS SLFS 5 

LPRINT EWS SSTRINGS (22, 224) §DL$3STRINGS(3, 224) § CHRS( 239) s5STRINGS (27,224) § CHRS 
(239) STRINGS (8, 224) STRINGS (2, 239) § CHRS (233) SSTRINGS (7,224) SSTRINGS (2, 239) § 
CHR$ (233) SSTRINGS (3, 224) § CHRS (234) SSTRINGS (2, 239) § 

LPRINT DKS$STRINGS (3,224) 5 CHRS (239) SWWS5LFS5 

LPRINT P@$5CHRS$(75) SLBS§ "STUDY" SUL93 


FOR N=1 TO 2: LPRINT DES$LS$5LS$5DWS5LFS53:2 NEXT N 

LPRINT DE$§CHRS$(224) 5 CHRS(8) § CHRS(2) 5 CHRS( 18) § CHRS (255) SSTRINGS (6, 192) §STRI 
NG$ (146, 193) SSTRINGS (5, 192) § CHR$(255) SSTRINGS (11,128) § CHRS(191) 5LFS5 

LPRINT DES$CHRS$(18) §P2%5 CHRS (23) 5 CHRS(191) SLFS§ 

LPRINT P1%53CHRS$( 104) § CHRS (30) § CHRS (8) § CHRS (4) § CHRS (246) SSTRINGS (28, 241) § CHR 
$(27) 5 CHRS(2) 5 CHRS (247) 5LFS3 

FOR N=1 TO 16: LPRINT RLFS$: NEXT Ni LPRINT P1$3CHRS(164) §LBS§3 "DECK" SUL$5 
FOR N=1 TO 112 LPRINT RLFS$: NEXT N 

LPRINT CRESSTRINGS(7, 224) § CHRS(246) STRINGS (9, 241) § CHRS (224) §CFS5" (GARAGE U 
NDER) " 5NMS 5 CHRS (224) STRINGS (8, 241) § CHRS(8) 5 CHRS(1) 5 CHRS (247) § 

LPRINT CHRS(246) 5"°(ENTRY UNDER)" 5 CHRS(27) 3 CHRS (4) § CHRS (247) SLFS5 

FOR N=1 TO 14: LPRINT LFS3: NEXT N 

LFS=CHRS$ (13) 

LPRINT CHRS(27) §CHR$(31) 3 P@$3 CHRS(460) § CHRS(15)$"°RESIDENCE IN MADISON, WISCO 
NSIN" 5 CHRS(14) SLFSS5LFS5 

LPRINT STRINGS(9, 224) § CHRS(27)§CHR$(31)5" ELIZABETH M. RANNEY, ARCHITECT" $ 
LFS$LFS$5 

LPRINT STRINGS(5,224)  s"DRAWING ON TRS-80 MODEL III MICROCOMPUTER" 5LF$5 
LPRINT STRING$(11,224) 5 "AND DMP-400 DOT-MATRIX PRINTER® 5LFS5 


DIAGRAMS, MAPS, TABLES, AND GRABLES 379 


Once the strings have been defined, the MADHOUSE pro- 
gram just goes right ahead with the drawing, starting with 
the living room’s outside wall with patio doors. Occasionally 
reverse line feeds and backspaces make the drawing more 
convenient, especially the labeling. (Those wanting to do 
architectural drawings on the MX- or FX-100 printers, which 
have no reverse line feed, can get around the problem by 
interrupting the drawing of lines wherever a label needs to 
be printed.) From the start of the study and studio sections, 
the program usually takes one line of instructions for each 
line that it prints. About 105 sweeps of the printhead, taking 
around eight minutes, are needed for printing the entire 
drawing. 

Unfortunately, there are no READ-and-DATA or datafile 
inputs in this type of program—it just draws what the pro- 
gram statements tell it to, line by line. Considering the huge 
differences among houses, it’s hard to imagine what form a 
more general program would take, in residential architecture 
at least. Still, there may be good reasons for having these 
computer-drawn plans like the one drawn by MADHOUSE. 
Besides providing as many copies as you may need of a fin- 
ished plan, there is plenty of room for making changes in a 
plan that is only in the rough-draft stage. 

There may be more use for microcomputer-drawn plans 
outside of residential architecture. If a building is, say, a 
multistory commercial structure with many floors having 
similar plans, then one basic plan worked out on the com- 
puter could, with minor changes as needed, serve for all 
floors of the building. Furthermore, as dot-matrix printers 
improve in their printing quality in the near future, it’s pos- 
sible that even a skilled draftsman can arrive at a neater and 
more accurate drawing using a microcomputer than doing it 
by hand. And after some practice involving the same graphic 
codes over and over, draftsmen and draftswomen might find 
that it’s faster than by hand. (But plan on ten to twenty hours 
for a single drawing the first time you try it!) 

Let’s keep our perspective, though. What we're doing here 
with a microcomputer is a far cry from the fifty-thousand- 
dollar-and-up CAD/CAM systems used by large architectural 
and engineering firms. It’s also a country mile from the 
five-hundred-dollar software packages for computer-aided 
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design that have recently come into the microcomputer mar- 


ketplace. 


Bit-Image Diagrams and Maps 


The block and line-graphic characters in the printer’s ROM 
are basically low-resolution tools. When we move on to 
drawings that are done entirely in the bit-graphic mode, 
we Il find a host of better possibilities. 


Maps. Figure 11-5 provides our first example—a map of 
the Lower 48 United States, drawn by a program called 
USAMAP. 

Actually, the program that drew this map is none other than 
our old friend, LINEDRAW (see chapters 5 and 6). In fact it 
is identical to the LINEDRAW type of program used in the 
drawing of Dennis the Menace (figure 1-2), apart from DATA 
content. 

But it was certainly a bigger project. After placing a grid 


FIGURE 11-5. A map created by a LINEDRAW-type program called USAMAP (DMP-400). 


S41 ts 
TV ap ey 


DIAGRAMS, MAPS, TABLES, AND GRABLES 38] 


(again, thin graph paper) over an eleven-by-fourteen-inch 
map of the United States from a road atlas, a coding sheet 
running forty-four by eighteen inches was prepared by 
gluing together several sheets of ten-squares-per-centimeter 
opaque graph paper. Using the ratio of ten horizontal squares 
for every seven vertical squares for condensed printing on 
the DMP-400, the state boundaries and coastlines were 
drawn on the coding sheet by hand and eye from the grid 
over the atlas map. Then the printing passes and DATA lines 
were defined by inked horizontal lines drawn on every sev- 
enth line of the coding sheet, creating ninety rectangular 
minigrids (each seven squares high and ten squares wide) in 
each of fifty-two rows. The dot patterns for the ten columns 
in each of these 4,680 minigrids then had to be figured out 
and entered into the DATA lines of the computer program. 
So as to increase the chances of these extended efforts doing 
somebody some good, all 46,800 codes are provided in ap- 
pendix A (program A-2, USAMAP). 

Some words of caution to anyone thinking of tackling a 
coding task of this size. Don’t use ten-squares-per-centimeter 
graph paper—that’s about twenty-five squares per inch. 
Even with the most perfect vision and a magnifying glass, 
it’s just too difficult to distinguish the dot columns. Be ad- 
vised not to try anything smaller than ten-squares-per-inch 
graph paper, in fact. Although your coding sheet may have to 
be eight feet long, you can save hours—perhaps half a week 
—by making fewer mistakes in the coding. With ten squares 
to the inch, you have room enough in each column of a mini- 
grid to write the dot code for that column with a sharp pencil, 
and this can be a godsend in difficult code sequences such as 
those for the Texas coastline. 

Other tips: Use thin vertical lines on both sides of the 
drawing, or at the very least on the right-hand side, so that 
you can keep checking whether the number of codes in any 
row is correct without having to count them. Better yet, put a 
byte counter into the program like those in the LINEDRAW, 
FOTOGRAF, or PICTOGRM programs. And when you find 
that the state boundary lines in one row are not lining up the 
way they should with lines in the row just above or below, 
explode the map in a black-white reversal, that is, add a few 
Yeie-inch line feeds to the standard 72-inch feed to separate 
the rows, and then print the map white-on-black in standard 
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or elite density (as space on the paper permits). This will 
usually reveal rather quickly where (within a row) you’ve 
made a coding error. 

A further suggestion: Divide each row into small, equal 
sections, say, of thirty dot columns apiece, and check your 
count of codes for each section that has been keyed into the 
program’s DATA lines, especially if you’re using an IBM- 
Epson printer, to increase the chances of coming out with 
exactly the right total at the end of each whole print line. 
Also, divide the whole project into several segments, num- 
bering your DATA statements accordingly, as we did with 
WHITECAT (see figure 5-21 and its explanation in the text). 
You ll find it easier to do the coding in binary sums ranging 
from 0 to 127 no matter what kind of printer you have (unless 
it has fewer than seven addressable pins). And if it’s a TRS- 
80 requiring dot codes in the 128 to 255 range, leave it to 
your LINEDRAW program to add 128 to binary-sum codes 
(or for black-white reversal, to subtract the codes from 255) 
just before the LPRINT command is executed. Also, if you’re 
tempted to use rows that are eight dots high on the IBM or 
Epson, remember how much harder it is to add the binaries 
in your head when you have to cope with the whole range of 
0 to 255; the number of rows you have to code is somewhat 
smaller, but the price you pay for that advantage could be 
that it takes three times longer to do the adding and that there 
are five times as many errors in the coding. 


Complex bit-image diagrams. A more challenging task is to 
duplicate the kind of hand-drawn diagram that the author 
introduced in Baseball Graphics (First Impressions, 1979)— 
a diagram of a baseball game, called a “gamegram.” Figure 
11-6 shows a gamegram drawn by a Radio Shack LPVIII 
printer that is virtually identical to the original hand-drawn 
diagrams in that book. 

The lesson learned with this project was that even some 
diagrams you don’t think can be done with a microcomputer 
and printer usually can be. To simulate the by-hand game- 
gram, it was necessary to write a bunch of subroutines that 
print only one symbol apiece—a black square for an out, an 
open square for a single, a double-sized rectangle for a two- 
base hit, a quadruple-sized rectangle for a home run (which 


as 

FIGURE 11-6. Diagram of a baseball game (the 1978 American League 
East playoff game) drawn by the GAMEGRAM program. Abbreviations: 
black square = an out; white square = single; white rectangle = two-base 
hit; larger rectangle containing name = home run; W = walk; SH = 
sacrifice hit; FC = fielder’s choice. Read action sequence left to right for 
Boston and right to left for New York. 


is big enough to enclose the name of the slugger who hit it), 
and so forth. The sequence of action within an inning (which 
should be read left to right for the team on the right and right 
to left for the team on the left) can be coded with abbrevia- 
tions such as SOODWO for the sequence single-out-out- 
double-walk-out, using reversed order for the visiting team 
on the left. Then, for each sequence, an IF-(action code)- 
THEN statement can direct the program to the appropriate 
sequence of subroutines to print each inning’s action se- 
quence in a series of symbols. The length of each series 
varies roughly with the total-bases statistic, so the overall 
diagram turns out to be much like a two-way horizontal bar 
graph. 

The inning-by-inning score of the game is printed in the 
center of the diagram, like the original hand-drawn version, 
except for omitting the connecting lines between the data 
points. 

The program, called GAMEGRAM, which draws figure 11- 
6 will be presented fully elsewhere. The game itself will be 
remembered by Boston Red Sox fans as the worst outcome of 
a season in that team’s history—the 1978 playoff game 
against the New York Yankees in which the Red Sox were 
beaten by their famous Green Monster, Fenway Park’s left- 
field wall (more specifically, by Bucky Dent’s fly ball that 
went over that wall). GAMEGRAM is designed to be a pro- 
gram that will draw any baseball game, even a twenty-five 
inning one, depending on what is put into the DATA lines. 
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Program 11-3 shows the set of DATA statements for this play- 
off game. 

The number of subroutine sequences needed to cover the 
dozens of different action sequences that can occur in an 
inning can get to be pretty substantial in this kind of pro- 
gram. In any nine-inning game, there won’t be more than 
eighteen different sequences needed (nine for each team), 
and it usually runs closer to a dozen because “out 1-2-3” 
innings are common. But as an example of what’s needed 
over many games, consider the seven-game World Series in 
1982 (see figure 12-6, last chapter): Forty-nine different sub- 
routine sequences were needed to cover the inning-by-in- 
ning offensive output by the St. Louis Cardinals, and fifty-six 
were needed for the Milwaukee Brewers. In the further de- 
velopment of this program, some sort of sequence-assembly 
routine might replace all of these subroutines, even for se- 
quences such as the Cardinals’ OESODWSSWDWO in 
Game 4's sixth inning. Programmers who love to say “there’s 
always a way, or better way” could have fun with this prob- 
lem. 


PROGRAM 11-3. GAMEGRAM/DAT. Bit-image diagram of a 
baseball game (DATA statements only). 


10 "PROGRAM 11-3: "“GAMEGRAM/DAT* -- DATA FOR BASEBALL GAME DIAGRAM (’GAMEGRAM’ ) 

1808 REM YANKEES 5, RED SOX 4 (OCT. 2,1978)3 DATA ARE INNING, VISTM RUNS,VISTM PL 
AYS,HOMETM RUNS, HOMETM PLAYS 

1018 DATA 1,8,W000, 8,000 

1820 DATA 2,8,000, 1,HO00 

1838 DATA 3,8, 00D0, 8, DBOO 

1048 DATA 4,8,S000,@, 000 

1056 DATA 5,0,W000,8, 0500 

1860 DATA 6,8, 000, 1,DBSOW0 

18078 DATA 7,4, 0SSOHWDO, @, 0S00 

1088 DATA 8, 1,HO00, 2, DOSSSO0 

1898 DATA 9,0, OOSF,@, OWSO00 


Tables 


We usually think of tables as being dull columns of numbers, 
devoid of any visual interest. But it’s possible that by inject- 
ing some graphic features in the construction of tables we 
can perk them up visually and make them more informative, 
too. This is the topic of exploration in the rest of this chapter. 

Both typewriters and dot-matrix printers can be used for 
producing unlined tables that consist merely of columns of 
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numbers under column headings and a general title. Any 
typist will tell you that this is more bother than typing regu- 
lar text with a typewriter—some fussing around is needed to 
space the columns neatly, line up the decimal points verti- 
cally, and so forth. But that probably can be done more 
quickly than programming a table from scratch with the com- 
puter and printer, even with such conveniences of the latter 
as TAB(), vertical tab-sets, print punctuation (using commas 
instead of semicolons) for formatting the table, and that won- 
derful LPRINT USING command for lining up decimal 
points. 

If you want a table that is lined horizontally and vertically, 
however, the way they often come out in the published prod- 
uct, the computer and printer have a clear advantage over the 
typewriter or even drawing inked lines by hand. And if you 
have several dozen or several hundred lined tables of the 
same type to do, there’s no contest. 


Lined tables. Programming thin horizontal lines in a table 
is no problem. Without even going into graphic mode, you 
can repeat the horizontal line-graphic character (code 241) 
on Radio Shack printers and the corresponding characters 
(code 196 or 205) on IBM printers. For dashed lines, the 
simplest way is to repeat the hyphen (ASCII code 45) itself. 
Among many options you have in graphic mode are printing 
thicker lines (repeating dot code 28 or 56), double lines (re- 
peating dot code 24), and dotted lines (repeating sequences 
of dot printing and blank codes). 

For vertical lines, the TRS-80’s line-graphic code 245 com- 
bined with Yi2-inch line feeds will handle things in text 
mode. And in graphic mode the top six dots on the Tandy or 
Apple printers (dot code 191) or the middle six dots on IBM- 
Epson printers (dot code 63) will give you continuous verti- 
cal lines if the same line-feed size is used. Thicker, double, 
and dotted vertical lines are just as easy to program (see fig- 
ure 5-3). 

The accounting table in figure 11-7, from a program called 
ACCTABLE (program 11-4), uses the DMP-400’s built-in 
characters 241] and - for horizontal lines and the bit-graphic 
sequence CHR$(201);CHR$(128);CHR$(201) for double- 
dotted verticals. The program is arranged to read various as- 
sortments of account names, titles, column headings, line 


PAST-PRESENT-FUTURE INCOME SUMMARY (19681-1984) AS OF 5/4/83 


RECEIVED 
781-8: 


A 


= Pa 2 ri =f. 


nl, 


IN HAND PENDING PR ING 


$8 


833528533 3888 


$333 


ERIE EI 


Grant NIH-33982-03 = 13,807 2 8,000: ------ # 13,900: ------ 
Grant NSF-00235-01 fo eeeeee = 22,500: ------ = 25,500: ------ 
Grant MOD-9458X-03 = 17,2002 1,400: ------ = 81,600: ------ 
UNIT 2 3 3 : 3 : 
Grant DOD-10345-01 Bo econ e = 29,000: ------ = 33,000: ------ 
Grant VAA-87654-02 = 8,500 2 9,000: ------ = 9,500: ------ 
UNIT 3 i i i 
Grant ACS-97531-01 oo wee ne = 9,400: ------ = 4,000: ------ 
Univ. support grant =: (=ase<< = 14950; <<<s<<5. S<<=== .. Saeee 
UN i z 
NIH-98764-03 = 13,000 2 ------ i 0 ee---- Boo eeene- i ------ 
NIMH-23456 fo eeeenn = enenn- : 22,000 = ------ : 24,000 
NSF-00167 Zo aee--- Go eee n ne : §©21,000 = ------ : 23,500 
DOD-98897 Go eeeeee $0 eae nn- : 617,500 = ------ : 20,000 
OTHER INCOME z i : i 
Equipment Sales = 33900 = 4,300 : 1,200 = 3,000: ------ 
Animal Sales = 9,856 = 3,305: 4,000: ------ : = «74200 
Miscell. Per Diems ca 2,300 :: 3,800 : 1,000 = 3,000 : 3,000 
TOTALS: $ 54,163 $ 86,255 $ 66,700 $ 97,100 % 77,700 
FIGURE 11-7. A line table (ACCTABLE program). 
identifications, dollar amounts, and blanks (zeros printed as 
---) for DATA statements. 
It also adds up the figures in each column to provide 
printed totals. Most of the positioning of names or numbers 
is accomplished by the TAB() and LPRINT USING com- 
mands. So that zeros will be printed unslashed, the DMP- 
400’s correspondence font is used for any printing of 
numbers. 
PROGRAM 11-4. ACCTABLE. A lined table for accounting. 
10 ’PROGRAM 11-4: "ACCTABLE® -- ACCOUNTING TABLE 
15 *Copyright (c) 1985 by John Warner Davenport 
2@ ’FOR TRS-80 III OR 4 AND 8- OR 15-INCH TRS-80 PRINTERS 
3@ CLEAR 1000 - *(MODEL III ONLY) 
4Q INPUT "NAME OF ACCOUNT" SACCTS 
5@ Y=240-6#LEN(ACCTS$) >CENTERING FORMULA FOR ACCOUNT NAME 
100 FOR N=1 TO 2: LPRINT CHRS$(27) 3 CHRS(146) 5 CHRS(@) § CHRS(Y) § CHRS (27) § CHRS(14) $3 CHR 


118 
120 


138 


148 


$(15) SACCTS$§ CHRS (14) § CHRS(27) 5 CHRS(15)52 NEXT N "PRINT TITLE (ACC’T NAME) 
LPRINT STRINGS (2, 13) §CHRS(27) § CHRS(31) § 

LPRINT TAB(17)5°PAST-PRESENT-FUTURE INCOME SUMMARY (1981-1984)°5" °5SCHRS(15 
)3"AS OF 5/4/83" § CHRS (14) 5 CHRS(18) 

LPRINT TAB(29) 5 "RECEIVED" § TAB(4@) §"IN HAND" 5 TAB(5@) § "PENDING" 5 TAB(59) § “PROBA 
BLE* § TAB( 78) 5 "PENDING" 

LPRINT CHRS(3@) 5 CHRS (20) § CHRS (27) § CHR ( 3B) § CHRS (27) § CHRS ( 38) § CHRS (27) § CHRS (3 
@) § CHRS (27) § CHRS(3Q@) § CHRS(19) 
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150 LPRINT CHR$(15) *SET UNDERLINE, LINE FEED 
16@ LPRINT “SOURCE OF INCOME" 5 TAB(3Q) §"1981-82" 5 TAB(4@) § "1982-83" § TAB(5@) 5" 1982- 


83" § TAB( 60) 5° 1983-84" 5 TAB(7@) 5°1983-84 °5 
178 LPRINT CHRS(14) 5 CHRS(2Q) § CHRS (27) § CHRS (56) § CHRS (19) § "END UNDERLINE 
188 GOSUB 470 "START OF VERTICAL DIVIDERS AND CORRESPONDENCE-QUALITY FONT 


198 READ US 


IF US="H" THEN READ MHS: LPRINT MH$53: GOSUB 4780 : GOTO 190 


IF US="EU° THEN GOSUB 5460 : 
PRINT STRING$(63, °*") 


LPRINT " "5U$$s READ A1,A2,A3,A4,A5: IF Ai=@ THEN LPRINT TAB(31) 3" 


GOTO 278 

IF Ai=@ THEN LPRINT TAB(31)5" 
PFS=" #8, HHH" 
LPRINT TAB(31)5USING PFSSA155 
IF A2=@ THEN LPRINT TAB(41) 5" 
LPRINT TAB(41)3USING PFSS5A25 5 
IF A3=@ THEN LPRINT TAB(51) 5" 
LPRINT TAB(51)5USING PFS5A355 
IF A4=0 THEN LPRINT TAB(61) 5° 
LPRINT TAB(61)S3USING PFS5A4$3: 
IF A5=@ THEN LPRINT TAB(71) 5° 
LPRINT TAB(71)5USING PFS5A5$55 
ON ERROR GOTO 378 
GOTO 198 


LPRINT CHRS( 38) 5 CHRS (27) § CHRS(19) SSTRINGS (78, 241 ) § CHRS (27) 5 CHRS(18) 5 CHRS(13) 


9 
TFS=" SHHH, #43" 


LPRINT TAB(13) §CHRS(15) "TOTALS?" § CHRS(14) §TAB(31)5USING TFS§T15 


LPRINT TAB(41)5USING TFS§T25 
LPRINT TAB(51)5USING TFS5T35 
LPRINT TAB(61)5USING TFS5T45 
LPRINT TAB(71)5USING TFS5TS 


GOTO 198 


<ono-= "32 GOTO 278 


T1=Ti+A1! PRINT T13 
------ "3: GOTO 290 
T2=T2+A2! PRINT T23 
------ "3: GOTO 310 
T3=T3+A3: PRINT T3 
----=- "s: GOTO 330 
T4=T4+A4: PRINT T43 
ease "3: GOSUB 470 
T5=T5+A5! PRINT T5: 


: GOTO 358 


PRINT: GOSUB 478 


LPRINT CHRS (30) 5 CHRS(27) § CHRS( 19) 5 CHRS(27) 5 CHRS( 32) § 


END 


 HHEKHKRHHKHEE VERTICAL DIVIDERS 4H HRHKKHHHEHEEE 


AS=CHRS (27 )+CHRS (16) +CHRS (QO) +CHRS( 168) +CHRS (2081 ) +CHRS (128) +CHRS (201 ) 
BS=CHRS (27) +CHRS (16) +CHRS (@) +CHRS (228) +CHRS (201 )+CHRS (128) +CHRS (201 ) 


C$=CHRS (27) +CHRS (16) +CHRS (1) +CHRS (32) +CHRS (201 ) 


D$=CHR$ (27 ) +CHRS (16) +CHRS( 1) +CHRS (92) +CHRS (201 ) +CHRS (128) +CHRS (201 ) 


ES=CHR$ (27) +CHRS (16) +CHRS (1) +CHRS (152) +CHRS (201 ) 


FS=CHR$ (27) +CHRS (16) +CHRS( 1) +CHRS (212) +CHRS (201 ) +CHRS (128) +CHRS (201 ) 
LPRINT CHRS(3Q) 3 CHRS(27) § CHRS(19) § CHRS (18) 5AS$BS5 C$5 DS SES 5FS5 CHRS (38) § CHRS(2 


7) 3CHRS(18) § 


LPRINT CHR$ (30) 5 CHRS (20) § CHRS (27) § CHRS (3) § CHRS (27) § CHRS (3) § CHR$(27) § CHRS(5 


6) §CHRS(19)55 LPRINT CHRS(27) 
LPRINT CHR$(13)3 2 RETURN 


3 CHRS(5@) 5 


THHERHEREEH HORIZONTAL DIVIDER 4444 HHH HEEHE 


LPRINT CHR$( 38) SSTRINGS(78, *- 


RETURN 
DATA H, UNIT 1 


")3 CHRS(13)5 


DATA Grant NIH-33982-03, 13807, 8@80, 0, 13500,08 
DATA Grant NSF-80235-01, 8, 22500, 8, 25580,8 


DATA Grant MOD-9458X-@3, 1280, 


1400, 0, 1680,0,EU 


638 
648 
658 
660 
678 
4680 
698 
788 
718 
726 
730 
748 
758 
760 
778 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
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H, UNIT 2 

Grant DOD-10345-01,@, 29080, 0, 33800,0 
Grant VAA-87654-@02, 8500, 9020, 08,9520, 0,EU 
H, UNIT 3 

Grant ACS-97531-01,0, 3400, 0, 4000,0 

Univ. support grant,@, 1550,0,0,0,EU 

H, UNIT 4 

NIH-98764-03, 13000,0,0,0,0 
NIMH-23456, 0, 8, 22800, 8, 24080 
NSF-@0167,0, 0, 21800, 8, 23500 
DOD-98897 , 0, @, 17588, 8, 20000, EU 

H, OTHER INCOME 

Equipment Sales,5500, 4380, 1200,5000,0 
Animal Sales, 9856, 3305, 4000, 0, 7200 
Miscell. Per Diems, 23800, 3J8@0, 1000, 5000, 3000 


Column-centered tables. The ACCTABLE program posi- 
tions column headings with tab stops so that they are cen- 
tered at the head of each column, but a more sophisticated 
way of doing this would be the standard method of centering 
by computers using the LEN(string) function. That is, one 
half the length of the item being centered could be sub- 
tracted from the central dot-column position of each table 
column, and this value could be used in a positioning com- 
mand (such as the Tandy 27+ 16+ N1+N2 sequence) to start 
the printing of the first character in the item the proper dis- 
tance to the left of the column’s center. Since each character 
is six dots wide, and we want the distance to be in number 
of dot columns rather than number of characters, the center- 
ing formula is Z=(center of column) —.5+*b*LEN (string). 
Using CC for the dot-column position of the column’s center, 
this simplifies to Z=CC-3*LEN (string). 

This procedure of centering material with respect to the 
boundaries of columns can be carried a good ways further. In 
fact, another whole program, called CENTABLE (program 
11-5), is based on this idea and applies it to all the material 
in a column as well as the headings at the top of a column. 
Many times we have no need to worry about decimal points 
lining up, because the material is all verbal (names of people, 
companies, etc.) or if there is numerical information, it is 
continually intermixed with verbal items. If everything in 
each column is centered, the overall appearance of the table 
will usually be nicer than when each item is left-justified, 
that is, when each item starts at the same point in the left- 
hand part of the column. 
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PROGRAM 11-5. CENTABLE. Table with items in columns 


centered. 


10 "PROGRAM 11-5: "“CENTABLE" -- COLUMN-CENTERING TABLE 
12 Copyright (c) 1985 by John Warner Davenport 

15 ’FOR TRS-80 MODEL III OR 4 AND DMP-400 PRINTER 

20 CLEAR 1800 


38 CRS=CHR$ (27) +CHRS( 16) +CHRS (8) +CHRS(O) "CAR. RET. W/O LINE FEED 
4Q@ PO@S=CHRS$ (27) +CHR$( 16) +CHRS(O) *DOT-COLUMNS @-255 

3@ P1$=CHR$(27)+CHRS( 16) +CHRS(1) ake 296-511 

6@ P2$=CHR$(27)+CHR$(16)+CHR$(2) oe 912-767 

7@ P3$=CHR$ (27) +CHRS$ (16) +CHRS(3) ae ‘ 768-1023 

8@ READ T%,DY%,DT%, WKS "READ TITLE, "DAY," "DATE," "WEEK" HEADINGS 


90 TR=75-LEN(TS$) 

100 LPRINT CHR$(38) §TAB(TB) § CHRS(27) § CHRS(23) § CHR$(15) § CHRS (27) 3 CHRS(14)$ 
11@ LPRINT T$5CHR$(27) 5 CHRS(15) § CHRE(14) § 

120 FOR SPACE=1 TO 4: GOSUB 9999: NEXT SPACE 

130 GOSUB 4800 

14Q GOSUB 1800: GOSUB 9999: GOSUB 1000: GOSUB 9999: GOSUB 1000 
15@ READ A$, BS, C$, D$,E$,F%, GS, HS "READ DAYS OF WEEK 
168 GOSUB 8810 

170 LPRINT CR$5CHRS(18) 5 CHRS(255) 3 CHRS(30) SDY$$3= GOSUR 1000 
188 GOSUB 7800 

19@ GOSUB 9999: GOSUB 10008: GOSUB 9999: GOSUB 1000: GOSUB 5000 
20@ GOSUB 1880: GOSUB 9999: GOSUB 1822: GOSUB 9999 

218 WK=1 

228 READ A$, BS, C$, D$,ES,F$, GS, HS "READ DATES OF MONTH 
238 GOSUB 8800 

240 LPRINT CHR$(18) 5 CR$§ CHRS(255) § CHRS(3O) §DT$3 

22@ GOSUB 7800 

268 GOSUB 1008: GOSUB 9999: GOSUB 1000: GOSUB 9999: GOSUB 1000 
278 GOSUB 6880: GOSUB 9999: GOSUB 1@@0: GOSUB 9999: GOSUB 1000 
280 READ A$, BS, C$, D%,E$, FS, GS, HS "READ WEATHER DESCR’N 
298 GOSUB 8800: GOSUB 7800: GOSUB 1282: GOSUB 9999 

3@Q@ LPRINT CHRS(18) 5 CRS§ CHR$( 255) § CHRS (30) SWKSS WKS 

318 GOSUB 1800: GOSUB 9999 

328 READ A$, BS, C$, DS, ES, FS, GS, HS "READ LOW-HIGH TEMP. 
338 GOSUB 1000: GOSUB 80002: GOSUB 7000: GOSUB 1020: GOSUB 9999 
348 GOSUB 1800: GOSUR 9999: GOSUB 3000: GOSUB 1020 

350 IF WK=5 THEN GOSUB 10@@: GOSUB 5@@@: GOTO 380 

368 GOSUB 9999: GOSUB 1008: GOSUB 9999 

378 WK=WKt+1: GOTO 220 

388 END 

1DOD 7? HHHHHHHHHHHKHKHHH VERTICAL LINES 4 eH HEHEHE HHHEES 

101@ LPRINT CHRS(18) 5 CRS §CHRS(255) sSTRINGS(47, 128) 3 CHR$(255) § 
1020 FOR V=1 TO 8: LPRINT STRING$(111,128)3CHR$(255)3: NEXT V 
1025 LPRINT CR$; | 

1038 RETURN 

Z2OQO > xeRHKKHHHe HORIZONTAL DASHES (FULL LINE) e¥%x4%% 48% 

2810 LPRINT P@$$CHRS$(2) SSTRINGS(157,"-")s RETURN 

3SOOO **xeee* HORIZONTAL SINGLE LINE (2 DOTS THICK) **x%4% 

38010 LPRINT CHRS(18) ;STRINGS$ (250, 140) sSTRINGS( 258, 140) 5STRINGS (250, 140) 5 STRINGS ( 


1955140)33 RETURN 


4000 
4010 


5880 
3018 


6880 
6010 
7000 
7818 
70208 
76830 
7048 
70508 
7068 
70708 
7080 
7898 
7095 
7100 
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7 HHHKEHEHEH HORIZONTAL DOUBLE LINE (HIGH) *#*#*%%4%% 
LPRINT CHRS(18) sSTRING$ (250, 133) sSSTRINGS( 250, 133) sSTRINGS$ (258, 133) s;STRINGS ( 
195,133)5: RETURN 
> HEKKHHEKKHH HORIZONTAL DOUBLE LINE (LOW) #eeeex HHH 
LPRINT CHR$(18) sSTRINGS(250, 208) STRINGS (250, 208) sSTRINGS$( 250, 208) sSTRINGS ( 
195,208); : RETURN 
> EHKKEKREHEHHKHK INDENTED DASHED LINE 4XHHHHHHHHEHEE 
LPRINT CHRS(3@) 5 P@$5 CHRS (48) sSTRINGS(131,°-")3:s RETURN 
"HHEKEHEEREH PRINTING OF COLUMN CONTENTS *4444%4HH HHH 
LPRINT CHRS(3Q) 5 
IF ZA=49 THEN ZA=50 
LPRINT PQ@%$5 CHRS(47+ZA) 5 ZA%S5 
LPRINT P@%5CHR#(159+ZB) 5 ZBS;5 
IF ZC=81 THEN ZC=82 
LPRINT P1$ 3 CHRS(15+7C) 57C$5 
LPRINT P1%$CHRS(127+ZD) 3ZD$; 
IF ZE<17 THEN LPRINT P1%3CHR$(2739+ZE) 5ZE$3: GOTO 7120 
IF (ZE-16)=10 OR (ZE-16)=12 THEN ZE=ZE+1 *POSSIBLE-TROUBLE-CODE DETOURS 
IF (ZE-16)=9 THEN (ZE-16)=8 *>DETOUR OF MODEL 47S TROUBLE CODE 9 
LPRINT P2% 3CHRS(ZE-164) 3 ZE$3 
IF ZF=1 THEN ZF=2 
LPRINT P2%5CHRS(95+ZF) 5 ZFS$$3 
IF ZG<49 THEN LPRINT P2%3CHRS$(207+7G) 5ZG%$53: GOTO 7172 
IF (Z6-48)=1@ OR (ZG-48)=12 THEN ZG=ZG+1 
LPRINT P3%5CHRS(ZG-48) 37G$5 
IF ZH=32 THEN ZH=33 
LPRINT P3%5CHRS(63+ZH) 3 ZH$3 
RETURN 
7¥##*##% POSITION AND COLUMN-STRING ASSIGNMENTS *%**%+* 
ZA=(116-6*#LEN(AS))/2: ZAS=A$: ZB=(116-G*LEN(P$))/2: ZBS=BS 
ZC=(116-6*#LEN(C$))/2: ZC$=C$:2 ZD=(116-S6*#LEN(D$))/2: ZD$=DS 
ZE=(116-G*LEN(E$))/2: ZES=E$: ZF=(116-6*LEN(FS$))/2: ZFS=FS% 
ZG=(116-6*LEN(G%$))/2: 7G$=G$!: ZH=(116-6*LEN(H$))/2! ZH$=H$ 
RETURN 
 HHEKKHKHREEKEHEHHER 7/72" LINE FEED 4444 HHHHHREHHEEE 
LPRINT CHR$(18)5CHR$(13)5: RETURN 
T RHKHEKKKHKKKES DATA START HERE KKEHKKHKKKEKKKEKRKKKKE 
DATA °DAILY WEATHER LOG -- ROCHESTER, MINNESOTA (1994)",° 
WEEK" 
DATA SUNDAY, MONDAY, TUESDAY, WEDNESDAY, THURSDAY, FRIDAY, SATURDAY, WEEKLY SUMMA 
RY 
DATA APRIL 1,APRIL 2Z,APRIL 3,APRIL 4,APRIL 5,APRIL 6,APRIL 7,° 
DATA HEAVY OVERCAST, "CLOUDY, LIGHT RAIN", CLEARING, "PARTLY SUNNY,WINDY",FAI 
R, PARTLY CLOUDY,RAIN, BRIEF SIGN 
DATA 29-42, 36-45, 32-44, 38-55, 41-59, 37-50, 40-46, 0F SPRING 
DATA APRIL 8,APRIL 9,APRIL 10,APRIL 11,APRIL 12,APRIL 13,APRIL 14," 
DATA RAIN/CLEARING, MOSTLY SUNNY, BEAUTIFUL', PARTLY CLOUDY,PARTLY CLOUDY,FRE 
EZING RAIN,LIGHT MIST,AN UP-AND- 
DATA 38-48, 42-56, 45-65, 42-58, 35-44, 29-34, 33-39, DOWN WEEK 
DATA APRIL 15,APRIL 16,APRIL 17,APRIL 18,APRIL 19,APRIL 20,APRIL 21," 
DATA "CLOUDY, WINDY",PARTLY SUNNY,FAIR AND PLEASANT,SUNNY AND WARMER, JUST 
LIKE SUMMER!,PARTLY SUNNY,FAIR,SPRING HAS 
DATA 37-51,44-60, 47-63, 49-68, 61-79, 52-68,57-70, ARRIVED! 


DAY", ° 


DATE", ® 


8 
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10120 DATA APRIL 22,APRIL 23,APRIL 24,APRIL 25,APRIL 26,APRIL 27,APRIL 28," ° 

10138 DATA CLOUDING UF, "GRAY, OVERCAST",SNOW -- 9 INCHES! ,SNOW/CLEARING, SUNNY AN 
D COOL,RAIN AND SLEET, CLOUDY AND WINDY,HORRORS' BACK 

10148 DATA 45-57, 38-42, 30-34, 27-38, 35-41, 32-39, 35-43, 70 WINTER! 

1015@ DATA APRIL 29,APRIL 30,MAY 1,MAY 2,MAY 3,MAY 4,MAY 5,° ° 

19168 DATA PARTLY SUNNY, “SUNNY, NICE", CLOUDY/RAIN, MORE RAIN,MORE RAIN!, CLEARING, 
SUNNY, APRIL SHOWERS 

10170 DATA 38-57, 42-64, 47-59, 50-58, 52-62, 44-69,51-72,IN MAY 

10180 END, 2,3,455565758 


Figure 11-8 has an example of a column-centered table 
with nine columns. It takes a fifteen-inch printer to fit in so 
many columns, as well as a limitation of eighteen characters 
(including spaces) per item to stay within the boundaries of 
the eight centered columns. This weather summary illus- 
trates a mixture of verbal and numerical material, with the 
verbal items varying widely in their length. You'll find an- 
other example back in chapter 2: Table 2-2, which presented 
control codes for the three families of printers, was produced 
by a four-column version of the CENTABLE program. 

You might be wondering: Since word processors are so 
good ‘at centering, why not use one of those instead of a 
BASIC program like CENTABLE? The answer is that most 


FIGURE 11-8. A column-centered table (CENTABLE program). 


DAILY HER toa —— oO CHESTE INNE SOTA £(1994) 


[ee [mer 


APRIL, 1 "APRIL 2 "APRIL 3 3 APRIL 4 APRIL S. ai APRIL "a "APRIL 7 
HEAVY OVERCAST [CLOUDY, LIGHT RAIN CLEARING PARTLY a FAIR PARTLY CLOUDY perl BRIEF SIGN 
29~42 36-45 32-44 41-39 37-30 OF SPRING 
APRIL 8 APRIL 9 APRIL 10 APRIL 11 APRIL 12 APRIL 13 APRIL 14 12 


pe ae MOSTLY SUNNY BEAUTIFUL! PARTLY CLOUDY ashe ceregs dagen RAIN ici eo AN UP-AND-— 
42-36 45-65 42-58 


APRIL 15 APRIL 16 APRIL 17 APRIL 18 APRIL 19 APRIL 20 APRIL 21 
PARTLY SUNNY FAIR SPRING HAS 
32-68 37-70 ARRIVED! 


CLOUDY, WINDY 


: 37-51 


APRIL 26 APRIL 27 


GNOW/ CLEARING SUNNY AND COOL RAIN AND SLEET Pres Se WINDY HORRORS! BACK 
27-38 33-41 32-39 TO WINTER! 


MAY 1 MAY 2 MAY 5 
CLOUDY/RAIN MORE RAIN MORE RAIN! CLEARING APRIL SHOWERS 
47-59 50-38 32-62 44-69 oe IN MAY 
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word-processing software is designed to center material only 
with respect to left and right margins, and even when the 
software is fancy enough to provide for columns, codes for 
printing vertical and horizontal lines (other than underlin- 
ing) aren't available. 

As listed in program 11-5, the CENTABLE printout is re- 
stricted to a format of one left-justified column followed by 
eight item-centering columns. If several more variables were 
introduced, however, the number and width of columns 
could be determined by answers to INPUT questions early 
in the program (or specified in additional DATA items). This 
would require changes in the lines involving the positioning 
of vertical lines and column centers (subroutines 1000, 7000, 
and 8000) and the length of horizontal lines (subroutine 
2000). 


Table-and-graph combinations. It’s also interesting to try 
combinations of graphs and tables, or introducing graphic 
features into tables. For example, you can have a conven- 
tional table that is packed with information lying to the left 
of a horizontal bar graph that highlights the most important 
statistic in the table or a derived measure based on the data 
in the table. With built-in characters in the table aligned with 
the bars, so that a row in the table is printed in the same 
printhead pass as the bar, the programming of such a table- 
graph would be fairly simple. It’s also not too difficult to put 
a vertical bar or line graph together with a table, so that data 
points in the graph line up with the columns (instead of rows) 
of the table. 

Other combinations may be more appropriate for certain 
situations. A table could be placed between two graphs or in 
the center column of a two-way horizontal graph. In either of 
these cases, only minor changes in a program for a two-way 
bar graph (such as our TWOWAYBG, program 8-5) would be 
needed. For that matter, you could put a single (one-way or 
two-way) graph between two tables. 


Graphic inserts. Figure 11-9 exemplifies an entirely differ- 
ent approach in making tables more graphic—using bit- 
image constructions that are embedded within a table. In this 
example a homemade upright alphabet printed white-on- 
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1984 DETROIT TIGERS ——- DAILY GAME LOG 
G2 DATE WON-LST POS GAME SCORE HITTING LEADERS PITCHERS 


ee 


| Evans HR, SBI; Parrish 2B1; Johnson 2H | Morris (1-0) 
GRU aes9 7, @Minnesota 3 Gibson HR, 3BI; Trammell HR, 4H Petry (1-0) 
GPRS FE 3, CChicago 2 Bergaan 281, Evans GBI | Wilcox(1-0), Hernandez Si 


hiweeve 


2 4/5 2-0 Lvsisees 
3 4/6 3-0 Aes0%s% 


4 4/7 4-0 1, +.5 | BERERETSEZEN4S, @Chicago O Lemon HR, 231 | MORRIS (2-0) NO-HITTER! 
3 4/8 5-0 1, 41.5 | RCTS 7, @CChicago 3 Garbey 2H,3BI; Gibson HR, 2H Lopez (1-0) 
6 4/10 6-0 1, +2.5 | BRERETSSSS9S, Rangers 1 Evans HR, 3BI Petry (2-0),4-hitter 


7 4/12 7-0 1, 43 Sasi aesn9, Rangers 4 


8 4/13 8-0 1, +3 _| BGRRETSTEZEY 13, eBoston 9 


9 4/18 9-0 1, +3 | ERASER 4, Royals 3 


Leacn HR, SBI ;Traamel] HR, 2HjWhitaker HR| Morris (3-0 


Parrish HR,2BI; Leaon,Herndon 2H Bair (1-0) 


Parrish HR, SH} Lemon, Brookens 2H Hernandez (1-0) 


10 4/19 i 1, #1.5 | Royals 5, Tigers 2 Gibson, Evans 2H Petry (2-1) 
11 4/20 10-1 1, +2.5 | BRRATHERSH3, White Sox 2 Parrish 3H Garbey, Gibson 2H Lopez (2-0) 
12 4/21 11-1 1, +3.5 | ERERETSREH 4, white Sox 1 Whitaker HR, 2H} Evans, Traseell 2H Rozera (1-0) 
13 4/22 12-1 1, +4.5 | BERR Rasee9, White Sox 1 Evans 3H, 281; Garbey JBI; Leaon 4H Berenguer (1-0) 


14 4/246 13-1 Ay 45 
15 4/24 14-1 ly 45.5 
16 4/2 15-1 1, 5.5 
17 4/26 16-1 1, #% 
18 4/27 16-2. 1, +5 
19 4/28 17-2 1, 45.5 
20 4/29 18-2 1y +6 
21 5/1 19-2 ty +65 
22 5/2 13 1, 46.5 
23 5/3 19-4 fy 45 


MBCA IEC, Twins 5 Tranmel] 2H,2B1; Whitaker 2H} Lemon HR | Morris (4-0) 

mai mien 4, Twins 3 Parrish GHHR, JBI; Garbey 2H Abbott (1-0), Lopez Si 
IMEli meen 7, @Texas 5 Traneell 3H} Garbey, Leacn 2H Bair (2-0), Lopez $2 
Indians 8, Tigers 4 (19 innings)! Whitaker 3H, Trammell 2H (Hargrove GSHR) | Abbott (1-1) 

GBS Teas, Indians 2 Whitaker HR, 2H,2B1; Lemon HR, 2H Morris (5-0), 3-hitter 
GRR FE96, Indians 1 Gibson 3H, JBI; Whitaker 2H Petry (3-1), 1 hit in 8 
i Gel aeee 11, Red Sox 2 Lemon HR(6),3H,4BI; Garbey SH, 4B] Wilcox (3-0) 

Red Sox 5,Tigers 4 Gibson 4H, Bergaan 3H Berenguer (1-1) 

Red Sox 1, Tigers 0 Parrish 2H (6-hitter by Ojeda) | Morris (5-1), 5-hitter 


GUE S59 9, CCleveland 2 Whitaker 4H} Herndon 3H, 2BI Petry (4-1), Hern’dez S3 
TUCCT aed 6, @Cleveland 5 Lemon HR, 4H, 3BI Abbott (2-1), Lopez $3 


GBTET e286, @Cleveland 5 (12) | Grubb HR, 281; Trammell, Bergaan 3H | Lopez (3-0 
GCE A359 10, CKansas City 3 | Trammell SHi Leson 2H) 3B1; Grubb HR, 281 | Berenguer (2-1), Bair 52 
GSTS, CKansas City 2 | Trammell GSHR$ Lemon 2H, 2BI Morris (6-1), 7-hitter 

SBI S S83, CKansas City | Trammell, Evans SH} Kuntz, Whitaker 2H | Petry (5-1), Lopez S4 


W 5/11 26-4 1, +7.5 | RQ MSeS, Angels 2 Bergman 2H, 3B1; Gibson HR, 2H} Evans 2BI | Wilcox (4-0), Hern’dez S& 
315/12 26-5 1, +7.5 Angels 4, Tigers 2 Lemon, Whitaker 2H Berenguer (2-2) 


322 5/14 27-5 1, +0 | BERETSESEN7, Mariners 5 Tranmell HR,3H,2B1; Kuntz HR, 3H Lopez (4-0) 
33 5/15 20-5 «1, +8 | SERBGSERSc, Mariners 4 | Johnson 2B1, Whitaker 2H [Morris (7-1), Hern’dez $5 


H 5/16 29-5 1, +8 pce mess }0O, Mariners 1 Kuntz, Castillo 2B1; Whit’r,Parrish 2H | Wilcox (5-0) 


3 5/18 30-5 1, +7.5 | GPRETHEEMS, athletics 4 | Parrish 24,281; Gibson 281; Garbey 2H | Petry (6-1), 7-hitter 
3% 5/19 31-5 1, +7.5 | BERRSEZEES, Athletics 4 | Evans 3H,2B1; Whitaker HR, 2BI [Morris (8-1), Lopez S5 


37 5/20 32-5 1, +8 | SNETSIER? 

3% 5/23-5 1, +8 | RRRESFS, ecatifornia 1 
39 5/2345 1, 48 
40 5/26 35-51) 48.5 
4) 5/25 35-6 ty 47.5 
42 5/26 35-7 ty +6.5 
435/27 5-8 ty 


Herndon 2H, Lowry HR Wilcox (6-0), Hern’dez Sé 
Whitaker 2H Berenguer (3-2), Lopez S6 
Bat aeee8 4, CCalifornia 2 | Parrish HR, 3H, 2B1;CastilloyTrameel! 2H | Petry (7-1); Hern’dez S7 
Gi (liasse0 5, @CCalifornia | Trammell HR,2BI; Parrish HR, 2H Morris (9-1), 4-hitter 
@Seattle 7, Tigers 3 Tramaell, Evans 2H} Johnson 2B] Wilcox (6-1) 

@Seattle 9, Tigers 5 Gibson, Kuntz HR, 2H Berenguer (3-3) 
@Seattle 5, Tigers 1 Tranael] 3H, Parrish 2H Petry (7-2) 


FIGURE 11-9. Bit-image graphic emphasis in a table (GAMELOG program). 
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black is inserted into many lines of a table to emphasize 
trends, winning streaks, or other features. Program 11-6, 
called GAMELOG, shows how the regular characters of the 
table are intermixed, within lines, with the bit-image high- 
lighting. 


PROGRAM 11-6. GAMELOG._ Graphic-emphasized table. 


10 


108 
120 


130 
140 
150 
160 


178 
188 


190 
208 
218 


"PROGRAM 11-6: "GAMELOG" (1984 DETROIT TIGERS’ 1ST 43 GAMES) 
"Copyright (c) 1985 by John Warner Davenport 
"FOR TRS-80 MODEL III OR 4 AND 8- OR 15-INCH TRS-80 PRINTERS 


CLEAR 580 

PS=CHRS (27) +CHRS(14) "POSITIONING PREFIX 

POS=CHRS (27) +CHRS(16)+CHRS(O)+CHRS(O) "CAR. RET. W/O LINE FEED 
CD$=CHRS ( 30) +CHRS (27 ) +CHRS (28) +CHRS(18) *CONDENSED PRINTING 

NMS=CHR$S (38) +CHRS (27) +CHRS (19) +CHRS(18) "NORMAL DENSITY 

LPRINT CHRS(3Q) § CHRS(27) § CHRS(32) 5 "(BOLD OFF FOR ELONGATED TITLE) 
FOR N=1 TO 1:2 LPRINT CHRS(3@) § CHRS(15) 3 CHR$(27) § CHRS(16) 3 CHRS(@) 5 CHRS (4) § CHR 


$(27) § CHRS (14) 5 CHR$ (27) §CHRS(17)$"1984 DETROIT TIGERS -- DAILY GAME LOG" 5CHR$ 
(27) 5 CHRS (19) § CHRS (14) § CHRS(27) § CHRS(15)535 NEXT N 
LPRINT STRING$(2, 13) 3 *TWO LINE FEEDS 
LPRINT CHR$(3@) § CHR$(27) §CHRS(20)5" G# DATE WON-LST POS" §CHR$(27) 5 CHRS(19) 
7" GAME SCORE "§ CHRS (27) § CHRS(16) § CHRS( 1) §CHRS(5) 5" HITTING L 
EADERS® § CHRS (27) § CHRS (16) § CHRS(1) § CHRS(145) 5 "PITCHERS" § CHRS(13) 5 
LPRINT CHR$(18) § CHRS(28) § CHRS(255) 3 CHRS( 133) 5 CHR$(28) 5 CHRS( 226) § CHRS (133) 5 
GOSUB 280 
READ G$,S5C$,H$,M$,HAS: IF G$="END" THEN GOTO 12810 
LPRINT CHRS (30) § CHRS(27) § CHRS(19) §P$§ CHRS(1) § CHRS(223) § CHRS(18) sSTRINGS(2, 25 
3) § CHRS (38) § POS 5 CHRS (27) § CHRS( 20) § CHR$( 18) SSTRINGS(2, 255) § CHRS (38) $65 CHRS(2 
7) 5 CHRS(19) 5 
IF LEFT$(SC$,6)="TIGERS* THEN GOSUB 1020: GOTO 200 
LPRINT CHR$(27) §CHRS(16) § CHRS(@) § CHR$(95) 3 CHRS( 18) 5 CHR$(255) SSTRINGS(6, 128) § 
CHRS (38) § CHRS (27) § CHRS( 17) §SC$§ CHRS(27) 5 CHRS(19)5= GOTO 218 


LPRINT CHRS(30) § CHRS(27) § CHRS(17) SMID$(SC$, 8) § 

LPRINT CHR$(27) § CHRS(19) 5 CHRS(27) § CHRS( 16) § CHR$(@) § CHRS (236) § CHRS(27) § CHRS(2 
@) 5 CHRS (27) § CHR$(17) § CHRS(18) § CHRS(255) 5 CHRS (30) SHES 

LPRINT CHR$(27) 3 CHRS(19) § CHRS(27) § CHRS( 16) § CHRS(@) § CHRS (240) § CHRS(27) § CHRS(2 
B) 3HS5 

LPRINT CHR$(27) §CHRS(19) § CHRS(27) § CHR$( 16) § CHRS(1) § CHR$( 127) § CHRS(27) 3 CHRS(2 
@) 5 CHRS (18) § CHRS (255) § CHRS (3) § CHRS( 32) §M$3 

LPRINT CHR$(18) §CHR$(13) § 

GOSUB 288 

GOTO 158 

*HHHEEHHEREEEEEE SUBROUTINE FOR PRINTING VERTICAL DIVIDERS ####exeeeHKHHHHE 

LPRINT P@$3CDS;STRINGS(2, 255) NMS 5 PS 5 CHRS(Q) § CHRS(95) §NMS5 CHRS (255) §P$§ CHRS ( 
@) § CHRS (236) § CDS§ CHRS (255) §NMS5PS§ CHRS(1) § CHRS( 127) § CD$5 CHRS (255) §NM%5PS5 CHR 
$(1) 5 CHRS (223) SSTRINGS(2, 255) § 

IF HAS="*" THEN LPRINT PO@$$STRINGS(255, 136) sSTRINGS (226, 136) § 

LPRINT CHRS(13)5 


RETURN 
> HREKEHEKEKHKEHEKEHRE DATA FORMAT 2X KHER HHEREREREHEKEREH 
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: G$="GAME # DATE WON-LOST LEAD® 

: SC$="SCORE OF GAME (TIGERS, Opponent OR Opponent, Tigers)" 
’ H$="HITTING LEADERS (HITS, HOME RUNS, RUNS BATTED IN)" 

: M$="PITCHERS (W, L, SAVE)" 

i HAS="END OF HOME STAY OR END OF ROAD TRIP (@, *) 

DATA " 1 4/3 1-0 | rere ae "."TIGERS 8, aMinnesota 1","Evans HR,J3B1; Parr 
ish 2BI3; Johnson 2H","Morris (1-0)°,@ 

DATA " 2 4/5 2-0 Lysccee sg "TIGERS 7, @Minnesota 3°, "Gibson HR, SBI; Tra 

mmell HR,4H","Petry (1-0)°,8 

DATA ° 3 4/6 3-0 Loeecee’g "TIGERS 3, @Chicago 2"°,"Bergman 2BI, Evans G 

WBI*,"Wilcox(1-0), Hernandez S1",0 
DATA " 4 4/7 4-0 1, + .5", "TIGERS 4, dChicago 0O","Lemon HR, 2BI °, "MOR 
RIS (2-0) NO-HITTER!",@ 
DATA " 5 4/8 #£5-0 1, +1.5°, "TIGERS 7, @Chicago 3","Garbey 2H,3BI3 Gibso 
n HR, 2H", "Lopez (1-0)°,# 

DATA " & 4/10 6-0 1, +2.5", "TIGERS 5, Rangers 1°, “Evans HR, JBI", °Petry 
(2-0), 4-hitter",0 

DATA " 7 4/12 7-0 1, +3 °","TIGERS 9, Rangers 4°, "Lemon HR, 3BI5 Trammell 
HR, 2HsWhitaker HR","Morris (3-0"°,+* 


DATA" 8 4/13 8-O 1, +3 “,"TIGERS 13, aBoston 9","Parrish HR,2B15 Lemo 


nyHerndon 2H"°,"Bair (1-0)",* 
DATA " 9 4/18 9-0 1, +3 ","TIGERS 4, Royals 3", "Parrish HR, 3H; Lemon,B 
rookens 2H", "Hernandez (1-0)°,@ 
DATA *° 10 4/19 9-1 1, +1.5","Royals 5, Tigers 2°,"Gibson, Evans 2H", “Pet 
ry (2-1)",@ 
DATA * 11 4/20 10-1 1, +2.5", "TIGERS 3, White Sox 2°,°Parrish 3H} Garbey, 

Gibson 2H","Lopez (2-0)",@ 
DATA *° 12 4/21 11-1 1, +3.5","°TIGERS 4, White Sox 1°,°Whitaker HR,2H5 Eva 
ns, trammell 2H*,"Rozema (1-0)",@ 
DATA " 13 4/22 12-1 1, +4.5","TIGERS 9, White Sox 1°,"°Evans 3H,2BI; Garbe 
y SBI; Lemon 4H","“Berenguer (1-0)°,@ 


DATA " 40 5/24 35-5 1, +8.5", "TIGERS 5, California i","°Trammell HR, 2BI5 
Parrish HR,2H","Morris (9-1), 4-hitter",@ 

DATA * 41 5/25 35-6 1, +7.5","aSeattle 7, Tigers 3","Trammell, Evans 2H; 

Johnson 2BI°,"Wilcox (6-1)",@ 

DATA * 42 5/26 35-7 1, +6.5","@Seattle 9, Tigers 5","Gibson, Kuntz HR, 2H” 
»"Berenguer (3-3)°,@ 
DATA ° 43 5/27 35-8 1, +5 °,"@Seattle 5, Tigers 1","Trammell 3H, Parrish 
2H", "Petry (7-2)",# 


1002 DATA END,°"5°",°","" 

101@ PRINT “JOB DONE": END 

102@ REM -- SUBROUTINE FOR WHITE-ON-BLACK °TIGERS® 
1032 LPRINT CHR$(3@) 5 CHRS(27) 5 CHRS(19)5 


1040 


1058 


1070 


18908 


R$=STRINGS (1,255) +STRINGS (2, 128) +CHRS (246) +CHRS (238) +CHRS (198) +CHRS(144)+CH 


R$(185)+CHRS$(255) 
ES=CHR$ (255) +STRINGS (2, 128) +STRINGS (2, 182) +STRINGS (2, 198) +CHRS (156) +CHRS (25 


3) 
S$=STRINGS (1,255) +CHR$ (217) +CHR$ (144) +STRINGS (3, 182)+CHRS( 132) +CHRS (285 )+CH 


R$(255) 
TS=CHR$ (255 ) +CHRS (252) +STRINGS$ (2, 254) STRINGS (2, 128) +STRINGS (2, 254) +CHRS (25 


2)+CHRS (255) 
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IS=CHRS (255 ) +CHRS (198) +STRINGS (2, 128) +CHRS( 198) +CHRS (255) 

GS=CHRS$ (255 ) +CHRS( 193) +CHRS (128) +CHRS (198) +CHRS( 182) +CHR$(150)+CHR$(132)+CH 
R$(133)+CHRS$( 255) 

LPRINT CHR$(27) §CHRS( 14) § CHRS(@) § CHRS(95) § CHRS( 18) $ CHR$( 255) sSTRING$(3, 128) 
5 CHRS (38) § CHR$ (27) 5 CHRS (23) § CHR$(18) | STRINGS(3, 255) 5TS3ISIGSSESERSSSSESTRIN 
G$(3, 255) sSTRINGS(3, 128) 5 

LPRINT CHRS(3Q) § CHRS (8) +CHRS( 122) 3 CHRS( 28) § CHRS (27) } CHRS (3B) $CHRS(19) | 
LPRINT CHR$(27) §CHR$(51) 5 CHRS(27) 5 CHRS(51)5 

LPRINT CHR$(18) sSTRINGS(58, 152) $3 

LPRINT CHRS(3@) 3 CHRS(8) 3 CHRS( 116) § 

FOR N=1 TO 34: LPRINT CHR$(27)5CHRS(51)3: NEXT N 

LPRINT CHR$(18) §STRINGS(58, 134) sSTRINGS(2, 128) 3 

LPRINT CHR$( 30) § CHRS (20) § CHR$(27) 3 CHRE (3B) § CHRS(19) § 

RETURN 


The all-ranks table. Programs for historical point-and-range 
graphs, such as PNTRANGE (program 9-3), can be changed 
to make tables that are interesting and very informative. In- 
stead of displaying the absolute values of one highlighted 
team against the best and worst teams of all teams in, say, 
won-lost percentage, we can convert these values to ranks. 
We can also use one-letter abbreviations for all the unhigh- 
lighted teams to show their final positions in the standings 
every year in columns of a table. Finally, the rank of the 
highlighted team can be made to stand out clearly with a 
black-white reversal. With these features, originally sug- 
gested by Jeffrey Neuman of Macmillan Publishing Com- 
pany, we would have a new (or at least little-known) kind of 
table. 

In figure 11-10 we have an example of this kind of table. 
Or is it a graph? Let’s call it a “grable.” 

This grable, for the St. Louis Cardinals, shows the trends 
in their successes and failures from 1901 through 1982. You 
can follow the Cardinals with just a glance, and with closer 
scrutiny you can see which teams came out better or worse 
than the Cardinals did in each year. You can also fix your 
attention on a single letter from column to column to follow 
one of the unhighlighted teams over the decades. 

With a pair of grables lined up vertically, as in figure 11- 
11, you can display relationships in time-series fashion, often 
more clearly than with correlation scatterplots. The high- 
lighted team in figure 11-11 is the Boston Red Sox, and as a 
whole the figure makes the dependence of their winning and 
losing (upper grable) on the quality of their pitching (lower) 
painfully obvious. 


1901-1910 | i s941-1950 {| 1951-1960 | 1961-1970 


B00 BOUGGd: 00 ao HP lela 
Gd: CC BRD: ESA a a ea Eee 


| WON-LOST PERCENTAGE! 


EQUALS POSITION IN FINAL STANDINGS EXCEPT IN 198) 


te © TIE BETWEEN CARDINALS ANO MEXT-LOWER TEAM IN A COLUIN 


ASGREVIATIONS: 6 = BRAVES C ® CUBS 0 = CODGERS E = EXPOS F = PHILLIES G=* GIANTS H= ASTROS M= METS Os = PAORES P= PIRATES R = REOS 


FIGURE 11-10. A hybrid table-and-graph showing the St. Louis Cardinals’ won-lost 
percentage from 1901 to 1982. (Reprinted with permission of Macmillan Publishing 
Company from The Cardinals by Jack Buck, graphics by John W. Davenport. Copyright 
© 1983 by Macmillan Publishing Company, a division of Macmillan, Inc.) 


The GRABLE program (not listed) is a fairly simple exten- 
sion of the PNTRANGE program. The section on positioning 
data points is different in the two programs, and the GRA- 
BLE program has added sections for defining the letters and 
numbers, and for drawing the boxes into which these are 
placed. The positioning of the letters and the white-on-black 
rank number in each column is simply a matter of multiply- 
ing each team’s rank by a constant. Before that, the teams 
have to have their absolute scores (in won-lost percentage, 
team batting average, etc.) converted to ranks by a sorting 
procedure. With only fourteen teams at the most, and only 
eight before 1961, the slowest form of bubble sort is fast 
enough for these baseball examples. Once the teams’ ranks 
are assigned and their positions within a column are calcu- 
lated, the one-letter abbreviations serve as data points rather 
like filled circles and triangles except that now they are lined 
up horizontally. 

The letters in these grables are five-by-eleven condensed 
perpendiculars (see chapter 7), and the white-on-black num- 
bers are bold seven-by-nine perpendiculars printed in two 
passes. The rank numbers on the left edge of each grable and 
the totals on the right could also have been done with a 
homemade alphabet, but if the truth be known, those in fig- 
ures 11-10 and 11-11 were done manually using dry-transer 
numbers, as was the decade numbering at the top. Also, al- 
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Pos. 1911-1920 1921-1930 1931-1940 1941-1950 1951-1960 1961-1970 1971-1880 
' 


' By -cooese Seer OCeUECEUUOURUGGRD beh ree eh peers be 
3 : BONED; SORPORPSOROCANSCMNBCRSRCRRCRACA 1S: ORDRD: = BOSORERER = O50 oF B00 
TPP RD Rte biel OE bere eccCCEEE CODED " 
é SNARERSERSSCSER OBSORENERAE- COR:  SOSSORREGRER ARSED SORHSEESConoconaaaat 6 
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FIGURE 11-11. The relationship between winning and pitching for the Boston Red Sox 
over eighty-three years, shown by two vertically aligned grables. 


though the GRABLE program has the years listed at the bot- 
tom of the chart, they were moved to the top of the lower 
grable in Figure 11-11, again by hand (and glue). Such 
“cheating” is the subject of the last chapter. 
If it is your impression that diagrams are more fun to do 
than graphs on a personal computer and printer, then you 
have gleaned another message from this chapter. 


12 
Computer-Aided Graphics 


IN the last several chapters we’ve seen how graphic displays 
can be programmed for the dot-matrix printer for a variety of 
often limited purposes. Now it’s time to get down to business 
and see how the printer can help out those of us (not neces- 
sarily full-fledged professionals) who have some more ambi- 
tious projects to tackle. 

By now you should have a pretty good idea of what sorts of 
things the computer and printer do best—and where they 
tend to fail—when it comes to drawing pictures, graphs, dia- 
grams, or whatever. On the other hand, there are graphic 
features that can obviously be done better by hand than on 
the printer. But if you use only manual techniques and face 
the task of drawing hundreds of lines, data points, and other 
features in a single graphic creation, you ll wish there was 
some easier way to do the tedious, repetitive part of the job. 

Conceivably, if you combine computerized and manual 
drafting, many kinds of graphic productions will turn out bet- 
ter than either way alone. And especially if “better” can 
mean “bigger” (among other qualities), the combination 
might produce graphic displays that are not just a little better 
but five or ten times better. For that matter, there are proba- 
bly many projects in graphics that can’t reasonably be done 
in the first place unless part of the work is done by a com- 
puter. 

There is a nice dovetailing to notice here, too. Computers 
are famous for handling endlessly repetitive tasks without 
getting tired or bored, and for grinding out many of those 
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tedious jobs that can drive a graphic artist up the wall. We’ve 
also seen that the ordinary dot-matrix printer can achieve a 
high level of accuracy in drawing graphs and diagrams—in 
many cases a better job in precise positioning of data points, 
grid lines, boxes containing letters, etc., than we find in the 
usual products of the drafting table. 

But the computer and printer fall far short of the graphic 
artist when it comes to professional finishing touches, use of 
pictorial material, and even some more routine things such 
as labeling and drawing oblique lines. Also, there’s no 
printer sold in the microcomputer market that is wider than 
fifteen inches, and yet some of our daily demands in graphics 
call for displays that are several square feet in size; the best 
the printer can do in these cases is provide the components, 
which have to be assembled and finished by hand—but the 
printer can certainly provide many of those components in 
good quality as well as quantity. 

In a nutshell: Why not use the computer-controlled printer 
where repetition and accuracy are demanded and use the 
manual techniques for final polishes and for assembling con- 
structions of unusual size? 

To appreciate the possibilities here, we need to look at 
some examples that go beyond the earlier ones in the book. 
Since the author’s professional experience in this form of 
printer graphics has been pretty much confined to sports- 
graphing up to now, most of our examples will involve base- 
ball history and statistics. 


Rough Overviews 


Often it happens that a graph we're trying to design is sup- 
posed to summarize a fairly huge amount of information in a 
simple, clear fashion. But aside from having a rough idea of 
the highest and lowest values in the whole set of data, we 
have no good notion of the overall shape of the data, much 
less the many smaller features in it. In situations like this, it 
may be helpful to go through a preliminary step that is radi- 
cally in the opposite direction from simplicity and clarity— 
have the printer plot all the data. 

If we already have a program such as PNTRANGE (pro- 
gram 9-3) close by, this will be easy to do. Since this program 
for point-and-range graphs has to read every data item in 
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Plotting all the data you have, as in these 


but it can give you a quick and detailed overview to use in 


FIGURE 12-1. 
graph. 


designing simpler versions of a 
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order to determine the best and worst performances of each 
year, we need only add some data-point symbols and posi- 
tioning codes to make it plot every scrap of data it reads. As 
figure 12-1 shows, the result of doing this may be an ugly 
sight, but it accomplishes its purpose. 

The upper graph in this figure portrays the team earned- 
run average for every National League team for every year in 
the period of 1901 to 1981. Capital letters were used as data 
points, and so that they wouldn’t all be on top of one another, 
the smallest possible homemade alphabet—perpendicular 
five-by-five—was used for these. Inked lines were added 
manually to connect all the worst performances and all the 
best performances, and also (vertically) to show when there 
were changes in the number of teams in the league. These 
lines, which aren’t absolutely necessary, help you to see the 
trends and general shape over the years. By paying attention 
to the team letters, you can spot when one team is departing 
dramatically from the others, such as the terrible pitching by 
the F team (the Philadelphia Phillies) in the 1920s and 
1930s. 

The lower graph (National League won-lost percentages) 
shows another way of programming the all-data graph—black 
dots instead of letters. You lose the identity of the data points 
this way, but that’s no problem if you’re mainly interested in 
the overall shape and how the performances in each year are 
distributed. Some graphs of this type may be passable as 
range graphs in final form. 


The sheer size of the data set in these two graphs further 
emphasizes how surprisingly accurate a dot-matrix printer is 
in horizontal positioning. As with many of our graphs in this 
book, what is vertical in these two graphs was horizontal 
(parallel to the printhead movement) in the printing. Besides 
plotting the data points with more accuracy than is typical of 
manual drafting, each sweep of the printhead also prints a 
short segment of the top and bottom X axes. You would be 
wise to worry about whether a printer can draw straight lines 
for X axes that are at right angles to the printhead’s move- 
ment this way, but even in bidirectional printing (on the 
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DMP-400 and LPVIII at least) they come out about as 
straight as with any other way of drawing a line. 

Precision in vertical positioning is sometimes more of a 
problem, as we’ve seen with those tiny line feeds from 216 
inch to %16 inch (see figure 5-4 for an example). But with 
most other line-feed sizes, there is impressive consistency by 
the printer in spacing parallel horizontal lines evenly (these 
would be vertical lines in most of our graphs). In fact, about 
the only time the consistency breaks down with normal line 
feeds is when the printing is near a perforation in the paper 
or when the start of printing is right after turning the printer's 
platen by hand, instead of starting where the last printout left 
the platen. 

So most of the time you can rely on the printer to make 
printouts up to several feet long without having to worry 
about vertical or horizontal lines becoming nonparallel or 
unevenly spaced. This is wonderful for large panoramic 
graphs. Figure 12-2, which shows Boston’s weather over all 
365 days of 1982, was a single, continuous printout from the 
DMP-400 measuring 37 inches long and 14% inches high 
before it was reduced for this book. With religious dedica- 
tion, the printer marched majestically through the months 
plotting the mean temperature in relation to the expected 
normal temperature for each day of the year without a single 
slipup in the plotting of data, axes, or grid lines. (Cutting the 
printout for photographic reduction and then gluing the sec- 
tions back together again did put a crimp in the vertical line 
separating August and September, however.) 

The final product was a remarkable simulation of Robert 
Lautzenheiser’s five-column graph in the Boston Globe on 
January 1 of 1983. The computer did 98% of the work in that 
final product: everything but the placement of the Y-axis let- 
tering, the MONTHLY EXTREMES label, and the months 
along the top of the graph. And even those labels that were 
pasted on were printed by the DMP-400 using the 
WRDCRAFT program (program 7-2) or built-in characters. 
The main discrepancy between the two renditions is that the 
computer was programmed to print both the solid precipita- 
tion bar and the vertical-line-shaded temperature bar, as well 
as the axes and grid lines, in single printhead passes, 
whereas the presentation in the Globe was in the form of two 
separate, vertically aligned bar graphs. 
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Manual Polishing 


Quite a few of the programmed graphic techniques in this 
book have been tested in a series of baseball team books 
published by Macmillan, thus far on the St. Louis Cardinals 
(The Cardinals, 1983), Chicago White Sox (SOX: The Com- 
plete Record of the Chicago White Sox, 1984), that beloved 
team of New Englanders (Boston Red Sox, 1984), and the 
world champions of 1984 (The Detroit Tigers, 1985). 
“Tested” here means submitting many printer-produced 
graphs to scrutiny to see whether they are publication- 
worthy without any finishing touches done by hand (other 
than a title at the top) or, failing that, how much manual pol- 
ishing or assembly they needed to meet standards. 

Out of roughly two dozen different displays representing 
over a dozen different kinds of graphs, diagrams, and tables, 
only one (a horizontal bar graph similar to figure 8-1) made 
the grade “as is.” Several others came about as close as the 
Boston weather graph (manual labeling using the printer as 
a typesetting machine or dry-transfer lettering); these in- 
cluded a set of four grables like those in figures 11-10 and 
11-11, the tandem bar-and-line graph in figure 9-12, two ta- 
bles similar to those in figures 11-5 and 11-6, and more bar 
graphs. Others, most commonly in the category of line 
graphs, needed a lot more manual finishing for the sake of 
clarity after large photographic reductions or just a more 
pleasing physical appearance. 

An example from this latter group appears in figure 12-3, a 
two-way rank-and-range graph. This graph displays the runs 
scored and allowed by the Boston Red Sox over the 1901- 
1983 period in relation to other American League teams. It 
was designed to be half of a two-page spread showing home 
and road games separately. 

The printer’s part of the work on this one was consider- 
able: the scale labels and numbers under Defense and Of- 
fense, the numbers representing all the data points of the 
highlighted team (even those covered up by the white-on- 
black numbers), the horizontal lines defining the range, the 
horizontal lines marking every ten years, and the rest of the 
numbering. The manual work included the large lettering 
and arrows at the top and the oblique lines connecting the 
data points, which involved dry-transfer symbols used in two 
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FIGURE 12-4. A ladder graph with visual elements as “data 
points.” 
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appearance were much enhanced by adding Y%s-inch solid- 
black Formatt tape over the jagged edges. The computer’s 
part of the work took about ten minutes and the manual part 
about five hours, but without this collaboration the part done 
by the printer would have fallen far short of standards. 

The drafting tapes, shading screens, and dry-transfer 
sheets can be used for hundreds of tricks in manual polish- 
ing. If you are serious about producing publication-quality 
graphs drawn primarily with a dot-matrix printer, you should 
be prepared to use some of these materials, especially with 
six-, seven-, or eight-pin printers. Let’s not drop the stan- 
dards just because something can be done by a computer. 

Beyond the materials in the graphics catalogues, there are 
pictorial flourishes that can be introduced (manually) into 
computer-drawn displays, just as readily as they already are 
in all-manual displays. Look at almost any of the uses of pho- 
tographic material for adding some razzle-dazzle in journal- 
ism, and notice how often the same sort of pictorial 
background scene or foreground figure could be combined 
with the products of the printer, especially if overlays are 
used. This includes using color photography in combination 
with computer printouts made with different colors of ink. 
Aside from background or foreground use of photographic 
material, visuals themselves can be the “data points” of a 
graph—see figure 12-4’s ladder graph. 


Multigraphs 


Another whole dimension of computer-aided graphics (or 
manually aided printer graphics) is the assembly of many 
single graphs and diagrams into larger constructions we can 
call multigraphs. Often there’s no better way to display a 
wide swath of history in a field, or set up comparisons with- 
out making the reader turn pages, or cover a topic in an inte- 
grated fashion. 

A straightforward example of a multigraph is shown in fig- 
ure 12-5. Here the computer and printer have provided us a 
series of individual graphs that display the entire careers of 
a team’s best hitters. The total-bases device is used again, 
with segmented vertical bars showing the usual components 
of singles, doubles, triples, and home runs, plus additional 
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bases produced by stolen bases and walks. Nine of the lead- 
ing batters in Boston Red Sox history are displayed in chro- 
nological order. 

You can start with full-size printouts from a fifteen-inch (or 
smaller) printer in assembling multigraphs of this sort. Be- 
fore any pasting, a large sheet of faint-line graph paper, say, 
thirty by forty-eight inches, has to be marked for the locations 
of the nine graphs, the dividing lines between the panels, 
and the main axes of the multigraph. If a new X axis is used 
for the multigraph, as in figure 12-5, then you have to take 
extra care to line up the values on the X axes of the original 
printouts (in this case the years for each player dictated how 
far left or right a printout had to be placed within each of the 
nine panels, so that the player’s age in any given year could 
be determined from the general age scale at the bottom). Just 
as much care is needed to line up the printouts’ X axes with 
the zero points on the Y scales, which in the finished multi- 
graph are not part of any original printout. 

When the printouts are correctly positioned, they are glued 
or taped in place, and the rest is done with drafting tapes and 
dry-transfer sheets. Solid-black tapes frame and divide the 
set of panels, and the original X axes are covered and joined 
with a thin black tape. All lettering and numbering on the 
left and bottom sides of the multigraph is best done using 
rub-on characters, and some labeling inside the panels needs 
to be done by hand also. The amount of manual labor for a 
multigraph like this might come to several hours, but imag- 
ine how many more hours it would take to do the bar graphs 
by hand! 

Sometimes the computer and printer can do most of the 
assembling of a multigraph and guarantee good alignment of 
the components in the process. An example of this is the set 
of World Series gamegrams in figure 12-6. The diagrams for 
all seven games were produced in a single continuous print- 
out about two feet long with perfect vertical alignment. The 
manual finishing touches were adding inked connecting 
lines for the score display in the center of each diagram, 
applying the large game numbers over each gamegram 
by dry-transfer, pasting on pitchers’ names, and using a com- 
bination of drafting tape, dry-transfer numbers, and 
photographically enlarged letters from the printer for the 
runs-hits-errors summary of each game. (An explanation of 
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the diagrams’ symbols and abbreviations accompanies figure 
11-6 in the previous chapter.) 

Events like those over a full set of World Series games cry 
for integration and order when it comes to displaying them 
graphically. Even if it takes a little squinting at the tiny sym- 
bols or names, it’s better to have such events collected in one 
place in chronological order than spread over several pages. 

The biggest project for the Macmillan books was to present 
over two hundred graphs showing teams’ weekly progress in 
pennant races from 1901 to 1980. The desired form was one 
showing how a single team stacked up against the range of 
all of its competitors from April to October within each sea- 
son. After the computer had been programmed to produce 
reversed rank-and-range graphs like the one in figure 9-11, it 
wasn't too difficult (once the data were entered) for the 
printer to generate all the printouts needed for ten-year mul- 
tigraphs and confine the eighty-year displays to eight pages. 
One of these decade displays, the 1911-20 period for the 
Chicago White Sox, is shown in figure 12-7. 

This is not just another example of how multigraphs can 
present huge amounts of data. It is also an example of how 
two different computer programs can be teamed to produce 
the components of a multigraph. The modified version of 
PNTRANGE for the DMP-400 (program 9-3) plotted the Y 
axis (including its numbering with perpendicular seven-by- 
eleven characters), the White Sox’ rank numbers and their 
connecting lines, the black range of other teams, and the grid 
lines in each panel. Then another program called FINALIST 
used the homemade nine-pin Epson FX-80 characters (up- 
right nine by twenty-six) to print the listings of team abbre- 
viations (other than “White Sox”) and their games-behind 
numbers at the right end of each panel. Printing on blank 
white paper, FINALIST spaced the teams according to their 
finishing won-lost percentages in each season, and the list- 
ings of the final standings were cut out and pasted onto the 
PNTRANGE printouts in the appropriate positions. Other- 
wise the manual finishing touches were like those for the 
multiple bar graph in figure 12-5. 

Obviously multigraphs can be constructed in all sorts of 
ways, and almost any kind of graphic display can be a com- 
ponent of a multigraph. As figure 12-8 shows, even the un- 
likely pie chart can play this role. In this case, everything 
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was done by hand, and the hardest part was the pies them- 
selves. But a program like PIECHART, modified to paint one 
section of each pie black, could handle all of that tedium, 
including some tricky calculations in dividing up the pies. 
To work best, this scheme should include drawing the pies 
around five inches in diameter, reducing them photographi- 
cally to get rid of rough edges, and using dry-transfer white 
and black numbers to finish them. In a multiple-pie chart, 
the fact that you can’t do labeling with PIECHART doesn't 
hurt a bit. 


Perhaps the ultimate form of multigraph in the graphics 
world is the montage. Some might even say that the montage 
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is the ultimate form of “cheating,” in both the graphics and 
computer-graphics worlds. You have to admit that montages 
involve cutting corners, but nothing beats them as a way of 
“putting it all together.” And figure 12-9 suggests that if a 
picture is worth a thousand words, maybe a montage is worth 
a whole book. 


Printer Graphics in the Near Future 


Progress in printer graphics or even printer-aided graphics 
in microcomputing will hardly be measured by how big we 
can make a multigraph or how cleverly we can assemble a 
montage. And yet the examples in this chapter are evidence 
of some progress, in the sense that just two or three years ago 
it was pretty hard to find any printout from a dot-matrix 
printer that was worth the effort of manual finishing touches. 

But there seems to be a continual insinuation, in current 
commentary in the microcomputing world, that printer 
graphics will show very little further progress because reso- 
lution in screen graphics is fast catching up. As soon as 
screen displays go a bit beyond the Macintosh’s 512 by 342 
pixels or the Tandy 2000’s 640 by 400 in their resolution, it 
is implied, dumping their contents to a printer of today’s 
caliber will come as close to professional-quality printing as 
any direct programming of a printer, and will be as good as 
we would want anyway. Furthermore, pictorial graphics will 
progress in leaps and bounds from the advent of new screen- 
oriented peripheral devices such as optical scanners for au- 
tomatic digitizing. 

It’s easy to see why nearly all the development in micro- 
computer graphics goes into screen-oriented devices and 
software. Even printer graphics buffs may not need hard 
copy for more than ten per cent of the graphics they produce, 
and why waste so much paper and time making printouts 
that'll end up in the wastebasket? But there seems to be an 
overconcentration on screen-display graphics these days and 
continued neglect of the capabilities of printers. Why not use 
both to their fullest extent? 

For that matter, will the computers catch up to the print- 
ers? It’s doubtful, if you look at the advances in. printer 
design coming forth every month nowadays. Since 1981, in 
dot-addressable printers, we’ve come from a rough average 
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resolution of 72 (vertically) by 110 (horizontally) dots per 
inch (e.g., the Epson MX-80 and Radio Shack LPVIII print- 
ers) to 18-pin printers (such as the Radio Shack DMP-430) 
having 144 dots per inch vertically in ““TRS-80 mode” and 
up to 240 dots per inch horizontally in “IBM mode.” (The 
fact that the DMP-430 is able to shift from TRS-80 to IBM- 
Epson control and dot codes with the flip of a DIP switch or 
a software command is itself a significant advance that we 
can only hope will be imitated.) And the 24-pin printers 
(there are now several of them) increase the resolution to as 
much as 216 by 240 (e.g., the Epson LQ-1500 in quadruple- 
density bit-image mode). 

If you're impressed by the new laser printers such as Ap- 
ple’s LaserWriter, which can produce typography that is in- 
distinguishable by the naked eye from that produced by 
much more expensive typesetting machines (see the daz- 
zling examples in Macworld, February 1985), consider the 
fact that the LaserWriter’s resolution is not that much further 
ahead—300 by 300. When that is translated to 90,000 dots in 
each square inch, it seems mind-boggling, but so is the LQ- 
1500’s 51,840. So we already have printers costing under fif- 
teen hundred dollars that are approaching seven-thousand- 
dollar laser printers in fineness of detail. 

With these newer impact printers, there’s a price you pay 
for the high resolution—instead of 256 dot patterns as on an 
eight-pin printer you now have 65,536 different patterns on 
an eighteen-pin printer and 16,777,216 on a twenty-four-pin 
printer. When the programming problems presented by this 
are licked, these printers should make the graphics in a book 
like this one look primitive and screen dumps even more so. 
Better labeling of graphs, better-looking connecting lines in 
line graphs, pictures that would make AP Laserphotos seem 
obsolete, smaller dot patterns for tints and textures, better 
typography (though still not up to the LaserWriter’s), more 
detailed diagrams and maps—all these things should become 
routine, and make it possible for the printer to do a much 
larger proportion of the work in computer-aided graphics, 
well before the end of the 1980s. Another advance, already 
visible in comparing the DMP-430 with the DMP-400, 
will be better consistency of line feeds in their exact size. 
Colored-ribbon and ink-jet printers will probably have less 
garish hues and more ways of mixing colors. 
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We can also anticipate automatic digitizers for directly pro- 
gramming printers. That is, instead of a Thunderscan creat- 
ing digital codes for a MacPaint drawing on the Macintosh’s 
screen that is dumped to an Imagewriter, we'll have an image 
scanner that sends many more codes to the computer and, via 
a printer graphics program that bypasses the screen, helps us 
produce truly photographic quality in pictorial material. And 
once the codes are in digital form, of course, they can be sent 
from computer to computer (and printer), across the hall or 
across the country. Scanning digitizers will not be the only 
new peripheral for direct-programmed printer graphics; de- 
vices working on quite different principles can be expected 
for making graphs, typography, maps, and so on easier to 
produce at a printer's highest resolution. And as evidenced 
throughout this book, one needn't have formal training in 
computer science or graphic design to get the most produc- 
tivity—and the most enjoyment—out of a personal-computer 
system for hard-copy graphics. 

After all these likely innovations, we may note wistfully, 
there may be nothing left of the pioneering spirit of the early 
bit-image enthusiasts—people such as Keller, Kater, and Kal- 
inowski. And to us dedicated do-it-yourself digitizers, these 
things threaten to spoil all the fun! 


APPENDIX A 


Data Codes for Two LINEDRAW-Type 
Programs 


PROGRAM A-1. DENNIS. Cartoon drawing. 


10 *PROGRAM A-1: "DENNIS" -- CARTOON DRAWING (TRS-80 PRINTERS) 


2@ CLEAR 1282 
3@ LPRINT CHR$(3@) § CHRS (27) 3 CHRS( 20) § *SET CONDENSED PRINT DENSITY 


4Q@ LPRINT CHRS(27)5CHRS(31)5 *BOLD PRINTING 

5@ LPRINT CHR$(18)5 "ENTER GRAPHIC MODE 

1@@ FOR R=1 TO 23 "LOOP FOR 23 ROWS 

110 READ N: IF N=999 THEN GOTO 148 7READ CODE #, LINE FEED IF 999 

120 IF N=333 THEN READ LS: GOSUB 488: GOTO 118 

13@ IF N>=@ AND N<128 THEN LPRINT CHRS(128+N)3: C=C+1: GOTO 118 "PRINT CODE 
# IF NO NEGATIVE NUMBER 

14@ READ M "CODE # WAS NOT POSITIVE OR ZERO, SO READ NEXT 


15@ FOR Z=1 TO -Ni LPRINT CHRS(1284+M)3= C=C+12 NEXT Z: GOTO 118 
160 LPRINT CHR$(13)3: C=O: NEXT R 


188 DATA -—226, 112,999 

198 DATA —3,127,-228,0,-3, 127,999 

280 DATA -3,127,-220,0,-3, 127,999 

218 DATA —3, 127, -228, 8, —3, 127,999 

220 DATA =3y 1275-535 By 645 645 by Fby 25 1129 1285 59 569-45 285-59 169 4985-55 125-125 Oy 
—by 793s 69 59 49-59 By Gy 165 325 325-39 645-985 By —35 1273 999 

258 DATA =3y 1279-415 Wy O45 965 9g —2y 1125 565 by 285 145 145 75 79-39 By by 19-159 By — 39 645-4 
» B25 —45 169-75 By 99 49-11 969-115 68s 39 699 70s 70s —3y 745-35 769-25 188, BB, 24, 16, 8B 
> 16,-80,8,-3,127,999 

248 DATA =3, 1275-185 Oy By 1125 965 969-35 645 45 Oy 645 645 Fy 95 485 by 285 125 145755555 1 
y Ly By By By 645 B2y 32 By 165 —45 By 49 44-45 29 19-39 659 S33 979 529 329 -3y 169-59 By 39 4 
945 29 Fs 19-39 By B25 55 2By 145 35 1905-35 645-45 325-35 16 


421 


250 
260 


278 


2808 


298 


300 


310 


320 


338 


340 
3508 


568 


370 
380 


398 
400 


410 


420 


438 


440 


450 
460 
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DATA 39 By 45 45 bby by 535175 165 By By 45 45 2 35 Ly 14 2 BD, Oy —3y 127,999 

DATA — 39 1279-17585 1125 159-79 Os 15 152939397435 1 Gy Os By 45 4y bby 66) 335 3Sy 32-3, 1 
63 ~ 5983-45 49-55 29-9 19-49 Oy 193593 70s 7Dy 755 6B 644-75 325 —4y 165-45 By 45 4y by 25 - 
3915655645 79, 485 325-3) BBs 1698s By 45 45 25 2y 15-125 By — 39 649-795 By -—3y 127,999 

DATA ~S9 1275-175 Oy 127-175 Bs 25 105 by 185 18-3, 355 365-75 6By 645 —b5 25-9, 665-8, 5, 
649 645-95 325-55 169-5 By 45 45 OB y 6By 4 B45 359655975975 Py 1125 1125 485 By Os 1g ly 
292545 1258s 24q 165 485 95 965 64405 645 325 165 By by 15 14-39 Dy 15 by 24y 95-754 Dy By 1275 
999 

DATA ~ 39 1279-169 8s 124, 3,8, By 64, 95 9b, —4y 4B, 1125-75 1205 555 —By By 95 965-64 Dy —65 
19-99 By 9695 1125 154-9, Oy -3y 32y 165 165 1125-3, 120, 100, 49-4) Oy 56, 4B, 25 1515-35056 
41 O5 645-39 8s 1971559) -By Oy 165 By Oy 4, —3y Oy 54,0, Oy 15 15 39 by 12) 245 —-2y 1125 64, —55 Dy 1 
9126,-74,0,-3, 127,999 

DATA Ss 1279-165 By 155 1125 4B5 by 35 15-65 By 193539575515 159 19-79 By 325 485 329-1250, 
545-45 325—35 By 1125 145151125 159-155 By —3y By 15-3) Dy O45 By By 19 by 4) 39 Bs 7545 79 794 
95929 19-2650 751275 126, 32) 325 165 12, 3,-759 

DATA ~31 645 965 965 325 325 9, —-114 529-35 645 325-3, 165-45 By 164 96) —49 Oy 645 64, —3y 32, 
-8, 16, 96,-18,08,-3, 127, 999 

DATA 39 1275-179 Oy 3-115 Os 965 285 35-55 By 1205 1245-125 By 644 325 By 45 25 15645 64, 32, 
16516585 745335245 4534-175 By 329-55 By 329-175 Dy 95 45 649 Vy 32s B2y 165 By by 165056 
4,120,127) 3,0, 0, 645 965 4B, 245125 by 25 35-35 15-650 

DATA 1565120, -18, 8, 14,17, -3, 1658) 24525645 By Oy By 75 45 25 Ly Ly 325-79 BDy 725 725 725 
68, 68, 65,64, -146,8,-3, 127,999 

DATA ~59 1275-30), 155-6, Oy 3151275 124, —-2y 1205 1125 964 by 644 Oy 655645675 35597597 
1485 16585 45 25 15-255 By By —75 By 44-115 Oy 5by 79-39 Oy —3y 19-17) Oy 645 1125565 30, 15,750 
9112,14,7,3,-18, 0,64, 71, 120,-5,64,-11,98 

DATA 591591125 -79 By 325 965 965 by 324 645 645 525 52y 3dy 50s 14505 -3y 127,999 


DATA ~39 1275-40) Oy 151567535519, 114757939 3y 143-739 Oy 645 645 96, 06s 48, 24, 96, 785 35 


1173165 —498y 75 44685 365 28, -155 Oy 285 354 654 645-34 Dy —3y 64, 95D, Os 64, Oy 25-3, By 16, 
~35185 1275 28, —-5 Oy 325 64, 64) Oy 15 15-35 25 -3y 49 By 1125-17) By -3y 127,999 

DATA 31127) -48y By 285 355 64, -365 0, 64; 965 485 56) —3y 485 -By 969 -By 48, -3, 24, -4, 88, — 
451205 —4, 1244-35 1265 —By 1275 155 by 14-34 By 325 164 By 45 45 25 654 —By 335 175 33, 33, 65, 66 
9685 72, 4By-1150, 151,15, 1125-14, 0, 112, 127,15,-8,8 

DATA 141512751, -b5 25 14-17, 8,-3, 127,999 

DATA ~59 1275-439 By 1934 25 by 4545 125 —4y8y—1by 155 725 4Dy 40s 205 205 10, 105 11,9, 17,-7 
9169-45325 645 965 9b, 1125-25 128 1245 —2y 1265-145 127) 45 955 799 719 B99 B9y B54 75 65, 
495 155-95 Bs 2514158) 644-3, 325 by 165 175 60) 645-1450, 15, 112,-7,8 

DATA 6459651125120, 6,3y-12) 0, 127, -25,0,-3, 127,999 

DATA 591274 -6748y 1265 1514 14-25 2558s bby 25 25 25-45 45 bBy 40y 245 244-3, By 3s 4y 2 23 
92929 by 15-345 By 655 975 BOs 1045 45 4525 75 1225 45 4y 245 325 645 O45 58, 114, 2-3, 4,-B5 8; 
245 1049-35 49995 45 1265-55 1275 965 45-125 Dy By 124) -24, By -3y 127,999 

DATA ~31 1275-67585 354485 4By 6450505 15254485 112,85 by 15-135 Oy 64, B25 16) By 725 3259 
69 Oy 165 965-215 By 645 325 1125-6 By 2B, By 15 Oy Dy 314995 124, —4y Dy 63, 64, —by Dy By 125 11 
29-1148 35285 96505 35-75 1274 795 64, —3y 32y 165 1658, By —3y 45 2y 2y 19-244 By —3y 1275999 
DATA ~49 1275-729 Os 19-65 25155 485 64-145 By 155 465435 5by 185 9y 4539-59 Dy 45 64, 3259 
63 Fy 1125 165 169-3585 45 4y 25 25 191984 Oy 1275-75 Oy 159 1129-3) Os 63) 54) 63, 64, —3y Oy 31 
1765-85 Os 75 128, -125 By 7924, 103, —by 1275 965-385 Oy -—3y 127,999 

DATA ~39 1275 -B2) Oy 1565 285-115 120, 124, 108, 125 125 by by b2y —2y 1265-45 1275 120,058, 
59 1275-1258, 1245 34 -By Oy 1274-498, 31 by 319 964-35 By 79 1209-99 Oy By 124-134 Dy By 1 
55 113,-4,3,-38,0,-3, 127,999 

DATA ~4y 1274-85905 1573-114 1275 1265 1205 964 Os 79 31 y—59 1279 B19 B15 564 48, 175127515 
9~ 18,85 965 315-95 By 635 645-455 75 1205 75 1205 49 Oy 79565 649 Dy 245 95g Oy Oy 245 Fy 15:14 
9112,-14,0, 7,120, -40,8,—-3, 127,999 

DATA -3,127,-220,0,—-3, 127,999 

DATA -226,7,999 
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PROGRAM A-2. USAMAP. Map of the United States. 


98 

100 
118 
120 


220 


2358 


248 


250 
260 


278 


280 


298 
300 


318 


520 


>PROGRAM A-2: “USAMAP" -- MAP OF THE LOWER 48 UNITED STATES (TRS-80 DMP-400) 


CLEAR 5800 


INPUT “BLACK-ON-WHITE (B) OR WHITE-ON-BLACK (W)" 45 BWS 


LPRINT CHRS(3Q) § CHRS (27) § CHRS (20) 
LPRINT CHR$(18) 

FOR R=120 TO 660 STEP 16 

READ N: IF N=999 THEN GOTO 148 


IF BW$="B*° AND N>=@ THEN LPRINT CHR$(128+N)5= GOTO 78 

IF N>=@ THEN LPRINT CHR$(255-N) 5: GOTO 70 

READ M 

IF BWS$="B" THEN LPRINT STRINGS(-N,128+M)5: GOTO 70 

LPRINT STRINGS(-N, 255-M) 5 

GOTO 78 

LPRINT CHR$(13)35 NEXT R 

FOR N=1 TO 5: LPRINT CHR$(13)$: NEXT 

LPRINT CHR$(3Q) § CHRS(27) § CHR$(18) 5" DRAWN BY RADIO SHACK DMP-4@@ DOT MATR 
IX PRINTER AND TRS-80 MODEL III MICROCOMPUTER" 

LPRINT CHR$(13)5: LPRINT " (Courtesy of First Impressions Pub. Co., P. 
0. Box 9073, Madison, WI, 53715)" §CHRS(27) §CHRS(19) 

END 

DATA -2, 127, —-280, 0, -200, 0, -280, 0, —-200, 0, -96, 8, -2, 127,999 

DATA —25 1275-9155 3y 25 9By 345 55 685-25 By 165 329-25 64, by Os 64517518, 125-2585 1; 
By 25 15625 685 Os 49 55 By 35 165 59 325-59 645-250, O, -258, O, -248, Oy -2, 127,999 
DATA 25 1275 9D, Oy 1245 35 —49 Dy 15 25 29 45 498985175179 -2y 545 33, 655-25 64, -5, 8, 9653 
24 2B, 45 79 269 Dy —3y 15 59 239 59 49 59 By 59 165-59 S25 —65 64, -258, B, -250, 8, -215,08,-2 
127,999 

DATA —25 1275 —-9O 5 Oy 1275 —205Dy b5y 345 195 335 155 645535 719-6558, -75 152525114, 14,-3 
929-85 458 645 565 55 By —By 165 -By 52, -B, 64, -250, 8, -250, 0, -96, 0,0, 64, 32, 24,8, 16,9 
65-25 645-25 323-25 165 Bs 165-358 —by 155 325 645-3658, —-2, 127,999 

DATA 25127, -905 Os 155 485 325 645 64, -12, 05 245 34, 74555537598, 68, 354, 78,48, 24, 75-7 
15 @y 645 5bq 79-139 By 1205 75 —3Bs By —9y 15-95 25-185 4, —-18, 8, -18, 16, -11, 32,-11,64,-25 
QO, @, -250, Oy —235 By 645 325 16985 79-2458, 1559565 64, -325 Os -25 127,999 

DATA 251275 —-BB, Os 965-25 165 185 —25 225 145 15-145 By 55 19-735 By 965565 35-1558, 2359 
65-100, @,—-125 15-135 25-145 49-1658, -35 165 112, -16, 16, -25, 325-30, 64, -48, 0, 12454, 
4, 24, 965-84, 8, 96, 48, 8, 112, 2; 93, 81,58, 26, 19, -B8,2,-8,4 

DATA 12,83 4585 165 325 645-223, Oy 15,112) —30, Oy 1565 24, 965-29, 8, -25 127,999 

DATA —25 127) -875 05112519, 18,10, 18, 365 365 40, 40, -4, 32,64, 64, -B4,0, 112, 14,1,-18 
9 Oy 1279-1575 Oy 645 635-715 By 225 19 1275 —25 9 19-39 Dy 1925 49 125 —4y 165-6, By 165 325-4, 
64, 65 325 645 645-494 Dy 649 525 245 45 14,1854, 355-3, 8, 2,151 

DATA ~2b4 Dy 156985 165 165-93 B25 —4y 16585 By 128, 8, -150, 8,-5.3, 0, 625 65, -34, 0,5, -354 
985 165325 3525-35 64, -18, 8, -25 127,999 

DATA —25 1275-84505 64, 485 12539-14905 1597, 18, 12, -78, 8, 128, 7,-21,0,1,2,4,8,8,16 
9 B25 325 645-1495 Dy 1275-959 Dy 635 645 565 Oy 192923458, 8, 16, 1558, 8, -45 4,8, —-4, 16,8; 
By 45 25 29-39 49-59 By 165 69 By 725 725 485 325 16585 By by 5, -GB, By 15 25 4,8, By 165 16596, 54 
37194,8 

DATA Fb, 30s 15-445 By 1s 25 5595999415819 15 2,251, -8, 8, -2, 127,999 

DATA —2, 1275 BOs Oy 64,5 5by 45 25 159-1799 79 By By 45 29 39 4y By By 165 165-55 52564, 64, -4 
9 By 55 645 —4y B29 35 1659 — 39 By —2y 165 59 B29 ry 645-225 Oy 1265 1, -31 985 39 4, 4,8, 1125-1 
43,0, 112,515, -965 0, 1) 1265-8150, 64,32, 16,8585 —-4549—-3y 29191 

DATA -19, 0, 64,564, 325 16,8385 45 49 685 365 20, 12, -44, O, 28, 35, 32, 64, -184, 8, 64, 48, -4 
9 1651025 by 15-405 Oy 965 325 329 645 325 165 By By 45 4929 19-13, 05-25 127,999 

DATA — 251275 —-775 Os 1125 125 33-499 Ds —45 £5 - 285 Oy -75 19-59 29 355 45-5 By 63, 64, -35585 
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125523 15~-1424 5 9b 314-975 Oy 1125 159-735 Oy 64 325 165 165 By 45 25 198, 645-17, 0, —-3, 64 
959 529-45 16585 4425 1489 Dy 165 244 205 185 175175 165 16585 By 165 32, 32,64,-17,0 

DATA 6445 325-135 1658-35 45 685 64) 64585 Oy 64,955 BOs 165 165 By —3y 16) 96, -18, 8,3, 64, 
~69 By 645-1245 By —79 645-79 325-75 165 By By 1265 1 yy Dy 79 245 1124-274 Os 1265 1425 12516 
916528, 4,4, 10,22, 95-26, 0, —-25 127, 999 

DATA ~ 29127, -73) Oy 64, 4B, By by 15-1065 Oy 64, 33 18 12) -28y Dy Shy 70y 190, 64, 64, 32, 32 
176  ~1385 By 127) -9By By 33 44 8y 4B 645-1 4B, 1125 16585 By 45 185 185 17) —45 By 454525 Ly Ly 
Oy 15 3Qy—5y 16, 1648s 565 725 By —3y 44 29 1y—31 9 Dy 14 29 —By 4y —4y By 45 2y 15-1558 

DATA 649644 325 325-3) 6451514 8y Oy Fy 335 337 45485581 586 405 48585 195 13517, 4154154 
2172410582, 18, —-5, 82,81, 8B, 8B, 96, 81581» 744 735 695 B59 By 5955 By 155 18, 185 425 116, - 
Jo 4y2y1q 1915 2y 125 16596, -755 Oy 649 325 Py 32s 165 165 By —by 45 by 29-75 14 35 6D, 4, ; 
DATA ~ 285 Os 15 1265-99 Dy 15 145565 645-154 Dy 64, Dy 1125 1245 165 165 125 2y 3y-3B, Oy 2, 12 
75999 

DATA ~2y 1275-665 By 112) By By 452515 15-1025 By 644325 165 By 4 25 1y 19-35) Dy By 1p 35 Qy 1 
969 By 165 965-1345 8s 120,67) -3y 64-108 By 127-59) Dy 64, 127) -275 By 1) -2Dy 2y Hy 45 By 
By 481 645-1550 645 32) 244 45 By By 1658 3s 445 28) By By by 45 2y 2p Ly Ly 1y—7y Dy 14 335 B2y 1 
0,10,11,11,108 

DATA 59 Bs 165 165 325 325 64, 645-55 By 19 Oy 19-165 Oy 15 142545 25 15 19 By 485 BO, 1, 325 32, 
645-64 0y 191549 25 4 ODy 325 bby 64-575 Oy 64) 324 32y 15 725 569 2645 2y 1y 25 Dy 75 120, 
—195 By 64 635-125 Bs 1565 24, 964 -By Dy 1245 2y 15 2y By 1) 3-445 Oy -2y 127, 999 

DATA —29 1275-595 Oy 64 32, 165 165 By By 45 35-1065 By 285 995-525 By 155 164 325 645-29, By - 
Fy O45 -925 By 965 319-450-315 15-345 24-335 4y 364 84s 15-529 Oy 245 Bby BOy bby 25 ly 19-59 
9Oy 198514519325 325 64-45 Oy 644 48) By 6465, 325 245 100) 30-1758, 545 964-258, 112 
DATA 124 ~ 59 4925 2519-139 Oy—5y 1425 45 180) 245-255 Oy 1935 4) 88s 33) 6,8) 4,8, 112, 64, 32 
9165 16) By 45 485-25 645 bby 7451145 25 34 2y 409 By 645 by Vy —3y 16) 249 4y 4y—3y 25 185 2552 
15215 20s 34534, 335 64-32) Oy 7585 By 165 965-125 By 1205 by 1)-185 By 1) -3y 25 6B, 365 124, 3 
9 38, 8, —-2, 127,999 

DATA ~29 1275-59) By 1115 16y-111,8y 95 24, 7, —-57 45 79 By — 7 16) —3y By By 165 By 45 45 254 
18 165965625 1y—By By —155 15-155 29-159 49-159 By 159 169-165 325 127) -105 5 Dy 15 254512 
By 315s 128555 25-665 Oy 65, 345 205 765 345 17 By 45 985 175 1.25 3-145 By 955 16585 45 25 150 
915,16,12,3 

DATA ~ 289 Oy Ly 1265-265 By 645575 by - 395 Oy —3y 644-35 32) —4y 165 By By 4y 4y 2p 2y 45 By 16516 
955 Bs 39 Fy 59h 25-7 4B O45 4By 145 19 1-399 By 74245 2g Fy By 75 120, - 34 Oy -5 64, —4y 32 
945 165-4585 45 3,0, 64, 33, 185 125-49, By —25 1275999 

DATA ~2y 1275-58) Qs 1265 14-118, By 112) 15, -Bby Oy 64, 63, —100, 8, 112, 15,-108, 8, 1275 - 
31585 798s 165 325 645 645-6245 4955 25 1984 Oy 1125 12) 3-185 By 127) -33, Oy 64, 325 165854 
92915644325 165 165 325 32, 485 By —3y 45 By 165 95-115 By 39 45 56) 644-285 Dy 9b 1658, 8, 454 
y29 29-351 

DATA ~ 79s 65 644 by 325 645 325 by 32 325 165 15-49 By 45 49 2y 2y 1-474 Oy By 1245-45452 
9292529 —4y 15-285 By 39-55 25 49 By 165 96-39 Oy By By 120, 112) -375 Oy -25 127,999 

DATA ~2y 127) -58y By 955 345-35 25-59 49 by By -7 165-75 325-71 645-7235 Oy 1125 155-879 Qs 
764 315-1880, 112, 155-189, 0, 127-58, Dy 15 1425 2545 45 45 By By By 165 165 325 32 O45 645 - 
314By 14126, —-185 By Fy 31-335 By 34-3 44 2y 15-149 Oy 315 165 325 Fy By Dy 64, 4B, 125 3-2 
758 

DATA 124119245 165 165 725-35 By 45 GBy Shy 245 3by OB, —3y 25 Ly Ly —115Qs 2555 45 3y—O1505 12 
79649-59325 —-5 5 15-55 By —4y 4y 125 2Dy 100s 45 45 25 25 4y OB By 165 64505 545 325 16512) 4,28 
9529 355-55 285 235 725 79, 645 645-345 Oy —25 127,999 

DATA ~ 2 1275-564 Oy 965 24,4 75-369 Oy —-75 19 by 25 65 4y — by By BDy 484 -3y 165-65 325-7 64, 
~ 2718, 645565 7) -8B5 Oy 120, 7-101 55 1275-111, By 1279-725 Oy 79 245 965-495 By 1245 by Ly 
~185 53512, 16532, 645-54, 0,655 335 285 Dy 1245 25 2y Ly 19-93 Dy — 39 644-65 325-3, 64, 48, 4 
8,72 

DATA 6949 2529-35 15891415654 33 32y 1698s 49 3) —3By Oy 6) 649 —y B25 —3y 165-3 32) 4, 
~ 233 Oy 75565 645-185 Oy 645 64, 355 444-35 165 By 159 2y 2y By Ly —By Dy 2y 5555 by Oy Dy —By 15-35 
9@,-2,5 127,999 


4908 


388 


318 


3208 


330 


340 


3538 


368 


378 
388 


398 


680 


618 


620 


630 


640 


658 


668 


DATA CODES FOR TWO LINEDRAW-TYPE PROGRAMS 495 


DATA =—2 4127-529 Oy 9by 245 4425 19-6258, 1125 14,1, -165 85-79 15-79 2,-7,4,-5,8, 15,8; 
8, -75 169-79 529-7 645-6650, 128, 73-1025 05 1265 15-6, 64-1025 8,56, 44, 15-1258, -25; 
by —25 5 29-139 1939 1249-485 Os 15 126, -23, 0, 64,635, -47, 8, 96, 16, 80, 20, 18, 18,17,8,4,3 
1-450 

DATA —3, 64, 32, 485 By 45 25 2y Ly 129 By —49 198, 64, 64, 525 165 165848, 4545 2295974 -5; 64 
9-65 329-79 169-69 By —7 5 49 by 29-75 19-199 Dy 15 19658, 8s —4y 16, BO, 48, 32, 52, -9,64,-3, 
Dy 4B, 725 795 325 —4y 165 725 725 45 OB 36s 36, 34, 34,5 18, 1859, 73,89, BB, 48, 40, 24,8, -59,8 
9-25 127,999 

DATA —25 1275-50, Os 245 38s 655-645 By 9by 3Oy 15-695 09 —-75 19-79 29 45 45 1245 45 4, -8, 8, - 
Ty 165-75 B25 95 645-115 By 545 625 15-103, 0, 127, -7,0,-255 1-245 2) -23, 45-548, 15, 16; 
5 9 325 O45 325 329-79 165 329-35 O45 Dy —4y 645 Ds 39-779 Dy 19 25 25 4, 858s 16, 165 325 54, 64, 
~28) 645-19, 325127 

DATA 21 Oy 1205 75 ~4539 Oy Vy Oy Ly B15 165 165-55 8y 165 285 25 15 14-1458, 64, 32,16, 16,8 
95 45 By 2y 15159113) B25 Oy 112) 14, 14-1250, 96, 16,83, 60, 24, 62, 69, 68, 54, 54, 35, -2, 
17516517595 459492925 1515-6758, —2, 127,999 

DATA —2, 1275-535 Qs 142, 108, 16, -58, Oy 96, 28, 3, BB, Oy 126, 1,-33,0,-85 15-3, 2,98, 51 
91045 Oy 1275-1059 Dy 14-45 Oy —3y 19 by 245 529 64, -B25 By Ly 19498 1125-365 By 5, 4, 24, 32, 
645-1150, 645485 By 78, 65, -10y 645-125 32y Hy 165 1125-5, 164-125 By 12419, 32,5 52, 64, 64 
9739 525-3516 

DATA 32, 645 B25 165 165 By 89-49 45 By 2y 35 19-125 Oy 1514, 112, -B1 58s 156,458, 16, 32, 64 
5-64 Oe 15 1539-49 29 458, 112, -80,0,—-2, 127,999 

DATA 241275535 Os 645625 19-579 Oy 965 285 3) BBs Oy 64,63, —-45, By 112, 15,-185,0, 127, 
1165 By By 124) BBs Dy 96s 16585 155-405 Dy Ly 1451165 45 45-39 25 —Gy 15-30) Oy 3, 124, -6258 
Ly BOs 965-793 Oy 95 165 85 By 49 2y 15-1258, 96, 245 75 -BB, By —2, 127,999 

DATA 25 1275 529s 164 455 664-35 Os 965 285 5y B95 Oy 1245 39-465 Oy 75 49 4545-1458, -11 
9165965 165 165-145 325-145 644-479 Oy 1275-118) Oy 798 112, -71, 8, 48, 40, 7254, -45 2515 
—hby By 75 1203-41 9 Ws 15 1265-625 By 9by 315 1244-525 By -7 9 645-75 525 by 16, -4,8, 1205855 
1,104,16,32 

DATA —11,0, 965 16,8, 75-83, 8,—-2, 127,999 

DATA 25 127,559 Dy Ly 25 BOs 964-509 Oy 645 60, 5, B89, By 54, 625 15-7558, 112, 15, -38, 8, - 
155 19-155 29-165 45 By 159-145 89-155 165 1129-915 0s 127, -78, 8, 44, 48, 12, 3,-5.5, 8, 7,12 
Dy 415 D3 63564, -G0, Oy 1135 14905 7556, 64,0, —-75 645-75 529 165 112,-5,16 

DATA hg By 724 39 BOy 205 209-39 18) 35 185 — 39 535 O55 Sy 19-10, By 64, 32, 16, 15,8, 12,48 
9 O45 Gy Ds 7y 1205 Oy Oy 19 by By 255979 19-39 25 45 By By 7y B79 Oy —2y 127,999 

DATA 251275 3B, Dy B19 329 649-59 Dy Vy 165 969-4150 1525 498, 165 96, -B84, 0, 112,15,-7 
by Dy 1205 79-1879 By Fy B19 P19 By 19 29 45 458s 1285-185 By -255 44-155 25 4,858, 165 16,124 
1 By 3B, Dy By 1245-425 Dy B19 965-475 By 45 649329 32, 2458s 45 45 25 1y-39 Bs 1515-1658 
DATA T4525 2939 Ly 49 Dy O45 565 by 2y 29 Oy 45 By 125 119-49 By 4989 By -3y 45 1285 -558,159 
75175 39s 769 4B 995 45 By 120, 59 Oy B15 96g 49 64,5 325 53, 33954, 34, 205 28, 124, -87,8,-2, 
127,999 

DATA 25 127 5-625 Os 975175 185 265975 By Os 1275-479 Oy 19 29 4y By 165 325 64, 64, -745 8, 124 
933-769 Oy 1205 79-1885 By 965 319-555 165-415 525 33) 34, 365 48, 48, 6, 64, -55,0,1,14,16 
9 965-57 9 Dy By 1245-425 By 155 1125 By 35 644-379 Dy 969-35 165 18, 13, -48, 8; 128, -354,-3; 
2,1,-22,0 

DATA 155165 16548 405 405 7258485 175 18, 20, 215 43,58, BO, 103, 8, 14, 125 16, 14,255,451 
20,-7,8, 96, 31, -88, 0, -2, 127,999 

DATA 25127 4-624 Os 155 485 329 32 O45 15 2y 59-949 Dy 1525 4485 165 525 645-665 Oy 54, 635-7 
79 @y 12453-1095 By 1279-1075 By 34 285 325 64, 64, —-5.5 4 Ds 19192525 454,878, 16, 32,64,-47 
9 Os 15 1265-355 By 45 32q —3y 165 125 25 2y 19-39 Oy 55 by 4485 —45 165 —49 Bs 165 165 52 645 52 
52 

DATA 1658, 4585 By 165-35 329 9s 165 16585 125 35-345 Oy 64, 645 32, 165 245 75 55 19255, -356 
9 Oy 19 By 295 191134 735 186, 785 645 by By 995 285 Dy 64, 48, 12, 3, -98, By —25 1275999 
DATA —2 5 1275-659 By 1125 165.175 285-625 Oy 15 25 4585 169 325 64, -59, By 112, 15, —-76, 8, 124 
By 109, By 1125 155-1125 Dy by 15 1265-19 Dy 15 25 —by 4 1205-37, O, 64, 48, 12,35, -28, 08,18 


678 


680 


690 


788 


710 


720 


730 


740 


730 


760 
770 


780 


790 


840 


426 APPENDIX A 


Bs 285 454525 14-43, By 15 by By 112) -33, Oy 1265 19-575 Oy 1055 245575 2y 2y 1y-Gy Oy 79 125 By - 
94,0,-2, 127,999 

DATA —25 127) -655 By 1525 285 965-695 Dy 1925 458s 165 325 645-315 05 1245 3y-75y Oy 1245 By 
118) 8, 1275-1158, 1275-66, Oy 125 19532, 64, 645-335 Oy 125 199 32) 6440) 64s 644 325 645,05 
Bs 649 43 325 645 645 325 9by 645 Fy 164 By 45 2y 44-35 By 4y 25 2y 19-545 By 19 2y 498s 165 16,88, 
-3,32,96 

DATA —115 8, 64,5 32) 325-3, 16585 4_ 4,25 1, -6B9 Oy 15 145-3, 165 725 729 6B, 6B, 665 466, 65, 33 
9359 126,28, 96, -91, 0, —-25 127,999 

DATA —25 127) -6By Oy 15 30s 965-7445 1425 4485 165 325 64) —-425 Dy 64, 655-775 Oy 124, By -11 
By Oy 96531-1165 0s 1275-78, yy 192545 44 858s 165 16) 96-18, Oy 645 -By B2y 12Dy 4 25 ly 
9-39 Os 19-745 By 64,5 325 1b, 145-35 25 14 1y—by Oy by 19 2y 2y—4y Ly 2y 2y Ly 14-1250 

DATA Fy 645-99 324 —Fy 164-95 By - Fy 44 Vy 2y —4y 14579 B19 337 65 O45 48, 4s B25 32s 165 By 1 
65859, 1851359, 20,8, 16, 96, 645-85, 0, —2, 127,999 

DATA ~2 1275-78105 1525 45 By 165325 645-74, By 14 25 448s 15 527 64, - 359 Oy 1245 39-125 25 
~155 45-1398) —-135 164-15, 325-13, 645 112) 155-111, Oy 1274-117) Oy 127) -784 Dy by Fy By 16 
9525 16, 1658585 112, 16485 By 164 16532, 16485 3B, 335-62 Oy 105 64,—-5y 324-3, 48, 40, 24 
DATA —4 520-35 18) 175-18585 -75 45 68s 605 45 45-94 2-95 1-389 Oy 35 49 By —45 44 By 29 By 
156556549, 103, 17,185 12,053, 150,48, 24, 965-795 Oy 25 1275999 

DATA ~23 1275-769 Oy 798s 165 325 645-785 By 15658 165 325 645-159 By —4y 64-74 By 96, 285 3 
9~ 779851125 159-155 14-169 25-15 45-165 By — 345 165 112) -145 165 31 4-50, 325-575 64, 127 
9~B5 585 64, 325315 165-165 8y 9b, 16) -13, 85-135 4) -135 29-149 13 3b, Oy 64) 325 325-3, 165 
-5,8,4,1,-82,0 

DATA 45125 —3y 185345 9B, 34, —-3y 25 bby 2525 39D, Dy 645 325 Oy By By 45 35 1) -785 Oy -25 127599 
9 

DATA —25 127, —-784 Oy 1125 1253, -B4, Oy 1925 125 16532) 64, -By Oy 1275-49 Dy 191525 2y4y Zyl 
1—795 Oy 1125 155-975 Oy 128, 715-475 64, -B5 Oy 63, BB, —36y 155-375 By 9by 245-54 By Vy 24, 
495959—-1852)—185 1) -78y By 644645 1125 By 45 45 by 25 By P19 By 125 745-35 425 735 7235 6B, 70 
756 

DATA 98,83, 44,19,8,4,8,1,15-85,0, -2, 127,999 

DATA —29 1273-7954 —-75 14-59 25-55 45 By By 165325 64) -7By Oy 19 29 4598 164 325 64,0, 127, - 
89585 1125 155-975 By 127-47, Os 127) -B74 Oy 35 285 95-695 By 25 5y —3y 29 VBy 26y 79-91 5056 
49525165129 45-45 2-35 19-89 Oy 645 649-55 32y —3y 165-3 By By 45 2y 2y 49 By By —5y 165-65 3 
21-6,16 ae 

DATA ~5y 325-45 165-74 By 165 325 325 649-279 By 645 954 485 125 35 45 45 25 14-1045 By —25 1275 
999 

DATA —24 127) -188, By 35 45 45-75 By 1125-675 By 14315325 645 644-855 By 1125 155-9750, 124 
151-485 Oy 315965 -88, Os 155 112, -69, 8,64, 32, 285 35-284 Oy 154 645-15, 324-155 16, 120, 
~ 14585-3545 79 —4y 44 -1By 25 151214695 7515 14-619 Oy 15 19 25 2y 45 49 By By 165 165 B25 32, 4, 
64 

DATA —4,0, 64,54, -2, 32, 40, 180,58, 2, 1,-112,0,-2, 127,999 

DATA —29 1275-11140) 1529-35 45 By By 165 165 325 64) —544Dy 64, 324 32y By 1658s 95 by -B2,0 
91125 155-974 Oy 9b, 314-495 By 1275-9) By 1275-625 Oy Fy 164 —-3y By 4y 7944-145 25-185 Ly 
39 Oy 1275-425 By 79244 964-345 Dy by 1525 25 44 By 165-35 325 b4y 599 Dy 545 32s 16585 55 By ly 
1,-122,0, -2, 127,999 . 

DATA —29 1275-12155 15 by 245 325 644-465 By 644 325 1658, 7) -89, 0, 112, 155-98, By 127, -4 
By Oy 485 465655 645-89, Oy 155 1125-59, Oy 1125 155-415 Oy 127) —44y Dy By 2By 954 —-475Dy Ly ly 
29 45 458s 24,5 165 32, 64, 64, -43, 0, 64, 325 32,5 165 159-1305 Oy -25 127,999 

DATA ~25 1275-12505 1525124, -424 0, 3D, 335 64) —925 By 1125 154 -9By Oy 1125 155-524 Wy 3s 
43-39 2y—39 45 28) —6y 325-10) 64) -63, By 127, -544 Oy 965 16585 45 25 14-43, 0y 1273-45505 1, 
144 1125-5548) 14152) 254, 8y By 164 325 645 —285 By 9h 244 By 45 2y 15-1354 Dy —25 1275999 
DATA ~21 127) -128, Os 3,56, 68, -185 45-1858 485 765 49 25 14-91 9 Dy 112, 15, —-180, Oy 127, - 
B81 O55 5 19-4525 4,124 By 4525 1424 45-39 By 49 49 —3y 2y By 49 By By 165 16485-16545 2y 2y 45 — 
3185-65 165315 165 165-45 32564, -455 By 1265 1y-495 By 127) 485 Dy 35 125 16, 965-6150 


850 


860 
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880 
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DATA CODES FOR TWO LINEDRAW-TYPE PROGRAMS 427 


DATA Ly 15254585 165 164-33 325-45 64 32y 64, 725 75 116985 165 By 45-45 25 59 -141,05—25 1 
27,999 

DATA —2 51275-1305 Oy 995 44,5 165-285 By 1245 25 655 625-45 Os bg dy dy 2329454545858, -5516 
9 B29 325 39 645-765 Oy 127) -108, Oy 112515, —-150, 0, 7, 120, -35, 64, -18, 32, 33,354, 44, 48, 
64, -45,, 0, 1275 —525D5 15 25 49564 645-6658, 32, 112,88, 19, 4,-154,08,-25 127,999 

DATA —25 1275-130, Bs 3345-39 By 485 645-235 Oy 645 52517519, 15415-3325 14,16, —-3, 325-1 
By Oy ly ly 2s 292949 45 Bs By By 165 165 -3y 329-39 645-5658, 64, 63, -181, 8,127, -152,8, 127, 
-49 Oy 155 1125 —445 By 1275 345 Oy 1265 19-659 Oy 14499, 114,1,-157, 8, —-25 127,999 

DATA —25 1275-205) Oy —35 19 29 29-39 49-39 By —2y 169 —3y SZ, —5y 645 —36,0,112,15,-16,8,9 
65-155 325 -By 645 112, —20, 16-285 32, -20, 64, 126, 1,-152,0, 127,—-46, 8, 96, 16,8, 6,15- 
45 4 Os 1275 539 Os Ly 1265-659 Oy 1265 1535 15-157,0,—-2, 127,999 

DATA 21275-2249 Oy 1915-155 29-135 4, -8, 8,15, —-4, 8, -12, 16, 28, 3,-24,8,1,252,—-5,4 
985 165 B25 325 64-2035 Oy By 4,8 24, 112, -—39, Oy 1125 1255, -50, 0, 127,-19,8,-12,64,-12 
p B29 115 16519) 285 205 525 645-3, By -43, 645-3, 8, 1125-958, 73, 62, -161,8,—-2, 127,999 
DATA —2 4 1275-200, Oy—-1149Oy 15 152545 4,85 16952, 64, 64, -198, 0, 3,45 4,8,8, 112, -30,8 
9165 245 235-325 165 1125-28 Oy 315 969-59 Oy 645-95 By 112, 14, 1,-40,8,1,1,2,3,-42,8; 1 
925 45 45 By By Oy 29 39 19 29 125 48, 64, -156, 0, —-2, 127,999 

DATA —2, 1275-200, By —-124505 152525 454,8, 112,-192, 0, 64, 48,8,4,5,-65,0,4,11,8,8, 
155 325545 645 329 165 169 by 325-39 165 S2y S2y 165 16, 525.315 16,16, 8, 15,9, 65, 108, 88, 88 
9 B24 B25 169 By 49 159 45 4555 2959 39 49-125 25 124-958, 165 16,5 32, 32, 64,-18,0 

DATA 9b_y—-35 165-3585 —45 4585 165 525 645 645-365 85 59 45 245 525 64, -152, 0, -2, 127,999 
DATA —2, 127, —-200,0,-130,0, 7,120, -190, 8, 112,15, —-7, 0, 96, 32, 64, -26, 8, 32, 88,8,8, 
165 325 64,5 —275 Oy 5b 5 365 355 16588, By 165 965-66, 0515585 —45 45 125-4, By 45 44 241, —-1 by 
Dy 1529-49 49-39 By 39 165 325 325 64564, -265 05 15 25 4585 165 325 32, 64, 64, -143, 8, -2, 127 
1999 

DATA —2 5127, -—200, By —-1315 8,539 25 4585 165 155 32,64, -27, 0, 64, 48, -4,8, 12,4, 2,-5, 458 
985-45 169-45 325 645 645 -11458,5 1125-25 165 1125-7905 -3y 645 —3y S25 165155625 32, 64,48 
99 B29 O55 Oy 639-54 165 60, 83,825 875-55 BBs 725-3, 64, —-2, 32, 48, 84, 84, 98, 98, 68, 4, 12 
917 

DATA 34, 665 685 695425 9B, 285-1750 45525 625 —45 165 965 Oy Oy 12550, 34, 66, 66, 1,-116,8 
9 191265 —-335,O5 15152525 4,8, 112,-136,8, -2, 127,999 

DATA —2, 1275-2005 Oy -—1395 85 191592523459 4,8,8, 165 165 32, 52, 64, 64, -3, 8,645 64, -3,5 32 
989 165 125 25 19-245 By 19 14 25 4585 165 325 64, -100, By 64, 645-35 325 39, 48517455 1159555 
by 25151595455 1565 By 165 1658, 5b, 485 325 165 245-55 45 2y 125 165 16,245 7,-458 

DATA 15-33 2973945 215415345345 58, 10,18, 4,-109,8, 95, 32, -38, 08, 3, 12548, 64,-155,0 
972,127,999 

DATA —25 1275 ~2OB, Dy -1555Bq 19 1513-45905 15254585 165 32, 64, -665 05-5, 64,-12, 8, 64; 
64 325 165 16585 4925 25 Ly - 220 By 31 5 96 y —425 Dy 1523498, 165 325 64, -126, 8, -25 127,999 
DATA —2, 1275-208, 0, -206, 0,3, 12, 48, 64, -56, 8, -45 64,8, 112,83, 36, 48, 245 1659,9,-3 
933 by by sale ly lg ly—23hyQy 1g hy 2y 2 454985 165 525 64, —-5y Dy 645 64,8, 64, 64, 52,96; -28; 
@,3,4,8, 48, 64,-121,0,—-2, 127,999 


1808 DATA —2, 1275-200, 0, —209, 05 1525 4,85 16532, 645 64, —-41,05 165 24, 40, 82, 82, 22,85, 55 


38985 Os 43 By 15 —20Dy By -38y Dy Ly 2y 4985 45 5y 165 40,815 72, 165 175 46, 8B, 32, 64, -28, 8, 1 
27,7-121,0,-2, 127,999 


1010 DATA —25 1275-280, By —2175 Os 1525 2) 625 64, —-31 5858s 20, 20, 356, 100, 2,66, 58, 13,5, -20 


OQ, 0, -77305 19 25 4989175 3d9 645-269 Ds 64539, 245-1205 Oy -25 1275999 


1820 DATA —2, 1275-200, 8, -2214,05 1565 125 165325 64, 645-29, 8, 48, 79, 127, -280, 8, -87, 8, - 


by 1523-35 4983 405 80, 545 645-9, 0,5 124, 2, 1,-122, 8, -2, 127,999 


1030 DATA —2, 1275-200, Oy —2285 Oy 15 254585 165 165 325 325-3, 645-19, 853,45 27, 108, 24, 96, 


—200,O, 9640, 45105115 —-3y 459-35 665 345179175139 7929-12158, -25 127,999 


1848 DATA —25 1275 —28Os Oy —2395 Bs 15 15 25 25 59 45-59 By 35 165 525 165 16,859,855 74, 32, -28 


Dy Dy 84 Dy 4y—Sy 2 —Fy 14-1319 By —2y 1275 999 


1058 DATA —~2, 127, -200, 8, -280, 8, -200, 0, -200, 8, -96, 8, -2, 127,999 


APPENDIX B 


Code Sequences for Fourteen Custom 
Alohabets 


PROGRAM B-1. ALPHABET. General program for storage of code 


sequences. 
18 "PROGRAM B-1: "ALPHABET" -- GENERAL PROGRAM FOR STORING ALPHABET STRINGS 
28 CLEAR 40280 
3@ DIM L$(40),C(13) 
4Q INPUT "POSITION (@ TO 480)"5P 


PI=FIX(P/256): P2=FIX(P-254#P1 ) 
PNS=CHR$ (27) +CHRS (16) +CHRS(P1)+CHRS(P2) 
CD$=CHR$ (38) +CHR$ (27 ) +CHRS (20) +CHRS (18) 
NM$=CHR$ (30) +CHRS (27) +CHRS(19) 

LFS=CHR$ (3@)+CHRS(13) 


100 FOR X=1 TO 36 


110 PRINT X: PRINT 

126 READ CHARS 

130 PRINT CHAR$$: LPRINT CHARS; 

140 FOR N=@ TO 12: READ C(N)? C(N)=128+C(N)! PRINT C(N)$! LPRINT C(N)3: NEXT N 

150 = L$(X)=CD$+CHRS(C(B) )+CHRS(C(1) )+CHRS(C(2) )+CHRS(C(3) )+CHRS(C(4) )+CHRS(C(5) 
)+CHRS(C(6) ) +CHRS(C(7) )+CHRS(C(8) )+CHRS(C(9) )+CHRS(C( 10) )+CHRS(C(11) )+CHRS 
(C(12) )+NMS 

168 = A$=L$(1) SBS=L$(2) I C$=L$(3) 1DS=L$(4) SES=L$(5) SF$=L$(6) 1G$=L$(7) SHS=L$(B) 21% 
=L$(9) SJ$=L$(18) SK$=L$(11) SL$=L$(12) 2M$=L$(13) 

178) NS=L$(14) 50$=L$(15) EPS=LH$( 16) 2Q$=L$(17) ERS=L$( 18) 2S$=L$(19) TS$=L$(20) SUS=L 
$(21) SV$=L$ (22) SWS=L$(23) 2X$=L$(24) 1Y$S=L$(25) 2Z7$=L$(26) 

188 = NOS=L$(27) IN1S=L$ (28) IN2$=L$(29) IN3S=L$(3B) IN4$=L$ (31) INS$=L$(32) ENGS=L$(3 
3) 3N7$=L$ (34) SNB$=L$ (35) INIS=L$(36) 

190 LPRINT PN$5L$(X)5LFS3 

208 NEXT X 

218 LPRINT ASBSCSDSESFSGSHS I SUSKSLSMENSOSPSQSRSESSTSUSVSWSX $Y$ZSNOSN1 SNZSNSEN4GSN5 

SN6SN7$S$NBSN9S 
2280 END 


1880 "DATA -- DOT CODES IN BINARY-SUM FORM (@ TO 127 FOR TRS-80, @ TO 255 FOR IB 


M-EPSON AND APPLE) 


428 


CODE SEQUENCES FOR FOURTEEN CUSTOM ALPHABETS 429 


PROGRAM B-2. PERP5X5/DAT. Perpendicular five-by-five capitals and 


numbers. 
1@ *PROGRAM B-2: "PERPSX5S/DAT"® --— BINARY-SUM CODES FOR PERPENDICULAR 5X5 SET 
20 ’FOR TRS-80 PRINTERS 
1000 REM -- CODE SEQUENCES FOR LETTERS (1001-1026) AND NUMBERS (1030-1039) 
1001 DATA 0,34,62, 34, 20,8,0 
1002 DATA @, 30, 34, 30, 34, 30,8 
1883 DATA @,28, 34,2, 34, 28,0 
1804 DATA 0,30, 34, 34, 34, 50,8 
1005 DATA 0,62,2,14,2,62,8 
10@6 DATA @,2,2,14,2,62,0 
1087 DATA 8,28, 34,58, 2, 28,0 
1808 DATA Q, 34, 34,62, 34, 34,8 
1809 DATA @,28,8,8,8, 28,0 
1010 DATA 0,12,18,16,16,56,0 
1011 DATA @,34,18,14,18,34,8 
1012 DATA 0,62,2,2,2,;2,8 
1013 DATA 0;34,42,42,54, 34,8 
1014 DATA 8, 34,50, 42, 38, 54,0 
1015 DATA 0,28, 34, 34,34, 28,8 
1016 DATA 8,2,;2, 30, 34, 38,0 
1017 DATA 0,4608,50, 42, 34,28,0 
1018 DATA @, 34,18, 30, 34, 30,0 
1019 DATA @, 28,32, 28,2, 28,0 
1020 DATA @,8,8,8,8,62,8 
1021 DATA @, 28, 34, 34, 34, 54,8 
1822 DATA Q,8, 20, 34, 34, 34,8 
1023 DATA Q,34,54, 42,42, 34,0 
1024 DATA 0, 34, 20,8, 20, 34,8 
1925 DATA @,8,8,8, 20,34,@ 
1026 DATA 0,62,4,8, 16,62,8 
103@ DATA 0,28, 34, 34,34, 28,0 
1031 DATA 9@,28,8,8,8,12,0 
1032 DATA 8, 62,4,24, 34, 28,8 
1033 DATA @, 28, 32, 24, 32, 28,0 
1034 DATA @,16,62, 20,24, 16,0 
1035 DATA 0, 30,32; 30; 2,462,0 
1036 DATA 0,28, 34, 26,2; 28,8 
1037 DATA 0,4,4,8,16,62,8 
1038 DATA @, 28,34, 28, 34, 28,0 
1039 DATA O, 28, 32, 44, 34, 28,0 


PROGRAM B-3. UPRT5X7/DAT. Upright five-by-seven capital letters. 


1@ "PROGRAM B-3: “UPRTSX7/DAT® -- UPRIGHT 5X7 CAPITAL LETTERS (TRS-80) 
1@@@ REM -- CODES FOR CAPITAL LETTERS (1001-1026) 

10901 DATA A,@,124,180,9,10,124,8 

1@02 DATA B,@,127, 73,73, 73,54,0 

1003 DATA C,8,462,65,65,45, 34,8 

1004 DATA D,@,127,65,65,65,62,8 
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1005 DATA E,@,127,73,735,65,65,0 
1806 DATA F,O,127,9,9,1,1,8 
1807 DATA G,@,62,65, 73, 73,58, 
1008 DATA H,0,127,8,8,8,127,08 
1089 DATA 1,0,0,65,;127,65,0,08 
1010 DATA J,@,32,64,65,63,1,8 
1011 DATA K,@,127,8, 20, 34,65,0 
1012 DATA L,Q,127,64, 64,64, 64,8 
1013 DATA M,@,127,2,28,2,127,8 
1014 DATA N,@,127,4,8,16,127,8 
1015 DATA 0,0,62,65,65, 45,62, 
1016 DATA P,Q,127,9,9,9,6,8 
1817 DATA Q,8, 30, 33, 49,33,94,08 
1018 DATA R,@,127,9,25,41, 70,08 
1019 DATA S,@, 38, 73,73, 73,50,08 


1020 DATA T,@,1,1,127,1,1,8 
1021 DATA U,0,63,64,64,64,63,8 
1022 DATA V,@, 3,28, 94, 28,3,0 
1023 DATA W,@8,63,64,56,64,63,08 
1024 DATA X,0,99, 20,8, 28,99,08 
1025 DATA Y,@,3,4,120,4,3,0 
1026 DATA Z,8,97,81,73,69,67,0 
1027 DATA -,@,8,8,8,8,0,0 

1028 DATA +,0,8,8,62,8,8,8 
1099 DATA 772Z,0,0,0,0,0,8,08 


PROGRAM B-4. PERP5X7/DAT. Perpendicular five-by-seven capital letters. 


1800 *PROGRAM B-4: "PERPSX7/DAT" -- PERPENDICULAR 5X7 CAPITALS & PUNCTUATION 
1001 DATA @,34, 34,62, 34,54, 20, 28,0 
1002 DATA 0, 30, 34, 34, 30, 34, 34, 38,0 
1003 DATA 0,28, 34, 2,2,2,354,28,0 
1004 DATA 0, 30, 54,54, 34, 34,34, 30,08 
1005 DATA @,62,2,2,14,2,2,62,0 
1086 DATA 0,2, 2,52, 14,2,2,62,8 

1007 DATA 0,28, 34, 34,58, 2,34, 28,0 
1008 DATA @, 34, 34, 34,62, 34,34, 34,0 
1009 DATA 0,28,8,8,8,8,8,28,0 

1010 DATA 8, 12,18, 16,16, 16, 16,56, 
1011 DATA 0, 34,18, 10,6, 10,18,34,0 
1012 DATA 0,62, 252,25 252,2,8 

1013 DATA 0,34, 34; 34,42, 42,54, 34,8 
1014 DATA 0, 34, 34,50, 42, 38, 34, 34,0 
1015 DATA 0,28, 34, 34, 34, 54,34, 28,0 
1016 DATA @,2,2, 2,30, 34, 54, 30,0 
1017 DATA @, 32,28, 42, 34,34, 34, 28,0 
1018 DATA @, 34, 18, 10, 30, 34,34, 30,0 
1019 DATA 0,28, 34, 32, 28,2, 34, 28,0 
1020 DATA @,8,8,8,8,8,8,462,08 

1021 DATA 0,28, 34, 34,34, 34,34, 34,08 
1022 DATA 0,8, 20, 20, 34, 34, 34, 34,08 
1023 DATA 8,20, 42,42,42,34,34,0 
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1024 DATA 0,34, 34, 28,8, 28, 34, 34,8 
1025 DATA @,8,8,8,8, 20,34, 34,8 
1026 DATA 0,62, 2, 4,8, 16, 32,62,8 
1027 DATA @,0,0,0,28,0,0,8 

1028 DATA 0,0,2,4,8, 16,32,8,0 
1029 DATA 0,8, 12,12,0,12,12,0,0 
1838 DATA 0,8,8,8,62,8,8,8,8 


PROGRAM B-5. UPDN5X7/DAT. Upside-down five-by-seven capital letters. 


10 ’PROGRAM B-5: "UPDNSX7/DAT" -- UPSIDE-DOWN 5X7 CAPITAL LETTERS (TRS-80) 
10800 REM -- CODES FOR CAPITAL LETTERS (1001-1026) 
1001 DATA A,Q, 31, 36, 68, 36, 31,08 
1002 DATA B,0,54, 73, 73,73,127,08 
1083 DATA C,8, 34,65, 65,65,62,08 
1004 DATA D,@,62,65,65,45, 127,08 
1085 DATA E,8,65,45, 73, 73,127, 
1006 DATA F,@,64, 64, 72, 72,127,0 
1007 DATA G,@, 46, 73, 73,65,62,8 
1008 DATA H,@,127,8,8,8,127,0 
1089 DATA I1,0,0,65,127,65,0,0 
1010 DATA J,0,64,126,65,1,2,0 
1011 DATA K,@, 65,34, 20,8,127,0 
1012 DATA L,@,1,1,1,1,127,8 
1013 DATA M,@, 127, 32,24, 32,127,8 
1014 DATA N,@,127, 4,8, 16,127, 
1015 DATA 0,0,62,65,65,65,62,8 
1014 DATA P,Q, 48, 72, 72, 72,127,08 
1017 DATA Q,8,61,66; 70,66, 68,8 
1018 DATA R,O,49, 74, 76, 72,127,8 
1019 DATA S,@, 38, 73, 73, 73,49,8 
1020 DATA T,@,64, 64, 127,64,64,8 
1021 DATA U,@,126,1,1,1,126,0 
1022 DATA V,@, 96, 28, 3,28, 96,8 
1023 DATA W,Q,126,1,14,1,126,8 
1024 DATA X,0,99, 20,8, 20,99, 
1025 DATA Y,@, 96, 15,15, 16, 96,8 
1026 DATA Z,0,97,81,73,69,67,8 
1027 DATA -~,0,0,8,8,8,98,9 

1028 DATA +,0,8,8,62,8,8,0 

1999 DATA ZZZ,0,8,0,0,0,0,2 


PROGRAM B-6. PERP5X11/DAT. Perpendicular five-by-eleven condensed 
characters. 


10 "PROGRAM B-6: "PERPSX11/DAT" -- PERPENDICULAR 5 X 11 CONDENSED (TRS-80) 
1000 REM -- CODE SEQUENCES FOR LETTERS (1001-1024) AND NUMBERS (1027-19036) 
1081 DATA Ay O, 345 34, 34, 34,62, 54, 34, 34, 28, 28,8,8 

1002 DATA B,O, 30,18, 34,34, 18, 30, 18,34, 34,18, 38,08 

1003 DATA Cy Oy 28, 20, 34, 34,252, 2, 34, 34, 20, 28,08 

1004 DATA D, 8, 30, 18,34, 34, 34, 34,34, 34, 34,18, 38,0 

1005 DATA E10, 62, 34, 34, 2525 145 2525 345 34, 62,0 
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DATA FyQyq 252525 25251452525 545 54,62,0 

DATA Gy @, 60, 34, 34,345 42,58, 252, 54, 54, 28,8 
DATA Hy Oy 345 345 545 545 545625 54, 545 545 54,5458 
DATA I,0,28,8,8,8,8,8,8,8,8,8, 28,0 

DATA J5@, 12,18, 18,16, 16,16, 16, 16, 16,16,56,8 
DATA Ky Oy 34, 34, 18, 18,6, 256,18, 18, 34, 34,8 
DATA Ly Q_ 3Os 2925 2529 2525252525258 

DATA My @y 545 34, 345 345425 42, 42,54,54, 34, 54,8 
DATA Ny 5 345.34, 58,58, 58, 42, 46, 38, 38, 34, 54,0 
DATA 050, 28, 28, 34, 34, 34, 54,54, 54, 34, 28, 28,8 
DATA Py @y 252925 2525 30s 54, 34, 54,354, 58,8 
DATA Q5 Qs 325 28,558,542, 345 54, 34,54, 34, 20, 28,08 
DATA Ry Oy 34, 34, 18, 10,65 38, 34, 54,54, 18, 30,8 
DATA Sy Oy 28, 34,5 545 325 S25 28, 252, 345 34, 28,8 
DATA T,0,8,8,8,8,8,8,8,8,42,42,62,0 

DATA Uy @5 28, 34,5 345 34, 54, 34, 34, 34, 54, 34, 54,8 
DATA V, 0,8; 8,28, 20, 20, 20, 34, 34, 54,34, 34,08 
DATA Wy Oy 345 345545545545 42,42, 42, 34, 34, 34,08 
DATA XyQ5 34,34, 20, 20,8, 8,8, 20, 20, 34, 34,0 
DATA Y,@,8,8, 8,8, 8,8, 20, 20, 34, 54, 34,8 

DATA 2585625 25 4, 4,8, 8,8, 16, 16, 32,62,8 

DATA 8,0; 28, 34, 34,5 34, 34,34, 34, 34,54, 54, 28,0 
DATA 1,0, 28,8,8,8,8,8,8,8,12,8,8,0 

DATA 258,625 2525 4,8, 16, 32,32, 34, 54, 28,8 
DATA 35@,5 285 345 34, 32, 16, 28, 16, 32, 32,54, 28,08 
DATA 4,0, 16,5 16, 16, 16,62, 18, 20, 24, 16, 16, 146,8 
DATA 55 @y 28, 34,5 345 325 325 325 Dy 25 252, 62,8 
DATA 6785 28,5 345 34,5 54,5 34, 38s 25 25 34,34, 28,0 
DATA 75854545 458, 8, 165 16, 32,32, 34,652,080 

DATA 850, 28, 34,5 54, 34, 54, 28, 20, 54, 34, 34, 28,08 
DATA 9505285 345 34,5 525 32, 68, 545.34, 54,54, 28,0 


PROGRAM B-7. NUMSSXI11/STR. Perpendicular five-by-eleven numbers 
stored in strings. 
1@ *PROGRAM B-7: "NUMS5SX11/STR" -- PERP. 5 X 11 COND. NUMBER STRINGS (TRS-80) 


1088 
1010 


1020 
1038 


1048 
1058 
10608 
1078 


1088 


"CODE STRINGS FOR NUMBERS 1-9, @, AND HYPHEN 

CDS=CHRS ( 38) +CHRS (27 ) +CHRS (20) +CHRS( 18)! NMS=CHR$ (30) +CHRS( 27) +CHRS(19)+CHR 
$(18) 

N1$=CD$+CHRS (156) +STRINGS (7, 136)+CHRS(140)+STRINGS(2, 136) +NMS 

N2$=CD$+CHR$ (190) +STRINGS (2, 130) +CHRS( 132) +CHRS(136)+CHRS(144)+STRINGS(2,16 
@)+STRINGS(2, 162) +CHRS( 156) +NMS 

N3$=CDS+CHRS (1546) +STRINGS(2, 162) +CHRS( 160) +CHRS (144) +CHRS (156) +CHRS(144)+CH 
R$ (1460) +STRINGS (2, 162) +CHRS( 156) +NMS 

N4$=CDS+STRINGS (4, 144.) +CHRS( 198) +CHRS (146) +CHRS (148) +CHRS(152)+STRINGS(3,14 
4)+NMS 

N5$=CD$+CHRS$ (156) +STRINGS(2, 162) +STRINGS(3, 160) +CHRS(158)+STRINGS(3, 130)+CH 
R$ (190) +NMS 

N6$=CD$+CHRS (156) +STRINGS (4, 162) +CHRS(158)+STRINGS (2, 130) +STRINGS(2, 162)+CH 
R$(156)+NMS 

N7$=CD$+STRINGS(3, 132) +STRINGS (2, 136) STRINGS (2, 144) +STRINGS (2, 160) +CHRS(16 
2)+CHRS (190) +NMS 
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1898 N8$=CD$+CHR$ (1546)+STRINGS (3, 162) +CHRS( 148) +CHRS( 156) +CHRS (148) +STRINGS(3, 16 
2)+CHRS (156) +NMS 

1100 N9$=CD$+CHRS$ (156) STRINGS (2, 162)+STRINGS(2, 168) +CHRS( 188) +STRINGS(4, 162)+CH 
R$ (156) +NMS 

1110 NO@S$=CD$+CHRS$ (156)+STRINGS (9, 162) +CHRS( 1546) +NMS 

1120 HM$=CD$+STRING$ (4, 128)+STRINGS (3, 198)+STRINGS(4, 128) +NMS 

113@ RETURN 


PROGRAM B-8. UPRTITAL/DAT. Upright italic full character set. 


10 "PROGRAM B-8: “UPRTITAL/DAT® -- UPRIGHT 7 X 9 CONDENSED ITALICS (TRS-80) 
1000 "#**#x*x** CODE SEQUENCES FOR CAPITAL LETTERS ***#e%% 
1081 DATA 96, 24, 20, 18,17,17,81,50,12 
1002 DATA 64,113,775 75, 735 73541553552 
1003 DATA 48, 76, 66,66, 65,65, 33, 5,8 
1084 DATA 64,113, 77,67, 65,655 53,2556 
1905 DATA 96,88, 78, 735 73, 73,15158 
1BO& DATA 965245 14,95959,15158 

1007 DATA 48, 76, 66,5 bby 735 73441525, 18 
1988 DATA 96524, 14,9,8, 72,56, 1253 
1009 DATA @,64,64,97,89,71,1,1,8 
1010 DATA 48, 64, 64,64,65,49,13,351 
1011 DATA 96,24, 14,9,8, 20, 100, 2, 1 
1812 DATA 96,88, 70,65, 64,64,64,0,0 
1013 DATA 96, 28,3, 4,24, 4,98, 28,3 
1014 DATA 96,28, 3, 4,8, 16,96,28,3 
1015 DATA 48, 76,66, 66,65, 65, 33,2556 
1016 DATA 96524, 14495959595956 

1017 DATA 48, 76,66, 66,65,81, 33,89,4 
1018 DATA 965 24,14,9,25,415415 7356 
1019 DATA 32, 70, 735735 735 735 7354952 
1020 DATA @,0,1,97,255 751,151 

1021 DATA 112, 76,67, 64, 64, 64, 48, 12,3 
1022 DATA 8,22, 33,64, 645 325 16,12,3 
1023 DATA 96,40, 35, 16,12, 16,96, 28,3 
1924 DATA 64,32,17,18,4,12,114,1,08 
1825 DATA 0,0, 67, 3652458; 4,251 

1026 DATA 64,96,97,81, 73569;69; 351 
1027 DATA @,64,8,8,4,2,1,8,0 

1928 DATA @,4,2,1,0,432,1,0 

1829 DATA 84,52, 28, 22, 85,52, 28, 22,21 
1930 DATA O, 36, 106,58, 42,46,43,18,08 
2000 ’xxxxeKHHe CODES FOR LOWER-CASE LETTERS ###eexeeH HH 
2001 DATA 32, 112,80,84,84,84, 116,84,8 
2082 DATA 96588; 70,69, 68, 68, 36, 56524 
2003 DATA 48, 72, 72, 68, 68, 68, 68, 4,8 
2004 DATA 48, 72,68, 68, 68, 68,52, 12,3 
2005 DATA 48,88, 88,84, 84, 84, 20, 20,8 
2006 DATA @,@,68,52,12,6,5,1,51 

2007 DATA 76,82,82,82,82,58, 26,12,0 
2808 DATA 96524565554, 4; 68, 36, 24 
2009 DATA @, 464, 64, 100,84, 76,1,0,0 
2010 DATA 0, 32,64, 64, 64, 32,20, 28,5 
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2011 DATA Oy 965 24, 22,17,48, 72,8,4 
2012 DATA 64,44, 96,89, 71,1,0,8,0 
2013 DATA 64, 36, 28, 68; 36, 2B, 68, 36, 24 
2014 DATA 100,28, 4,4, 4,68, 36, 24,8 
2015 DATA 48, 72, 68, 68, 68, 68, 36, 24,8 
2016 DATA 64, 48, 28, 20, 20, 28, 20,12,8 
2017 DATA @,8, 20,82, 82, 114,82,12,0 
2018 DATA 64, 32,28, 1658, 454,458 
2019 DATA 64, 64, 72,84, 84,84, 36,454 
2020 DATA @, 4,52, 76, 78,69, 36,458 
2021 DATA @, 48, 72, 68, 64, 64, 96, 88,4 
2022 DATA 8,24, 100, 32, 32, 16,156,854 
2023 DATA 96, 60, 32, 16,8, 48, 64, 32, 28 
2024 DATA 64, 564, 36, 24, 16,48, 72,8,4 
2025 DATA 0,0, 76,80, 32, 16,8,4,8 
2026 DATA 64, 64, 100,84,84,84, 76,4,4 
2027 DATA @, 66, 35,19, 73, 108, 98, 33,8 
2028 DATA 48, 72, 74,69, 77,85, 34,88,8 
2029 DATA 0,0,4,5,2,1,0,0,8 

2030 DATA 8, 40,24, 10, 28, 40,12,18,8 
3000 > xxHeKKEHH CODES FOR PUNCTUATION AND NUMBERS #44222 224% 
3801 DATA 0,64, 464, 96,82; 74,6,1,8 
3@02 DATA 44, 68, 98,80, 81, 73, 73,5,2 
3@O3 DATA 32564, 655 735 73977349, 591 
3804 DATA @, 16,24, 16,84, 48, 26,28, 3 
3805 DATA @, 32, 68, 78,469, 69, 469,37, 25 
3@86 DATA 48, 72, 68, 68, 74, 74, 73,40, 16 
3007 DATA 65,33,17,9,93;5,555351 

3008 DATA 32,84, 74,5 74, 7359541,21,2 
3009 DATA Oy 45 74,42, 41,95175956 
3018 DATA 92, 34,97,81, 73,69; 67, 34,29 
3011 DATA 8,0, 24, 36,66,1,1,0,2 
3812 DATA @, 0,64, 64, 33,18, 12,0,0 
3013 DATA 8,8,40,24,8,12,18,8,8 
3014 DATA 0,0, 64,80, 32,16,0,0,0 
3015 DATA @,8,8,8,8,8,8,8,0 

3016 DATA 0,64, 96,96, 32,0,0,0,8 
3017 DATA @,64,32,16,8,4,2,1,0 

3018 DATA 96,88, 70,65,65,1,1,1,0 
3819 DATA 0,64, 64, 64, 65,65,49,13,3 
3020 DATA 0,0,1,2,12,48,64,8,0 

3021 DATA 4,0,2,0,1,2,4,8,0 

3022 DATA 64, 64, 564, 64, 64, 64, 64, 64,8 
3023 DATA 0,0,0,0,7,1,1,0,8 


PROGRAM B-9. PERP7X10/DAT. Perpendicular bold seven-by-ten capitals 
and numbers. 


1Q "PROGRAM B-9: “PERP7X1@/DAT" -- PERPENDICULAR BOLD 7 X 10 ALPHABET (TRS-80) 
1@@@ REM -- CODES FOR CAPITALS (1001-1026) 

1001 DATA Ay Oy 995995995995 1275 1275 99,99, 62,2850 

1002 DATA By Oy 63_ 127599599, 63563599599, 127, 63,8 

1003 DATA C,@,62, 127,99, 3,3, 3,3)99,127,62,8 
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1804 DATA D,O, 535127599599, 99,99, 99599, 127,63,8 
1885 DATA E,@, 127,127, 3,3, 31,315 3,35,127,127,8 
1806 DATA F,O, 3539393531551, 3,3,127, 127,08 

1087 DATA Gy Oy 62, 127599, 99, 123,123, 3599, 127,62,8 
1808 DATA Hy Os 99599499499, 1275 127599599, 99,99,8 
1809 DATA 1,0, 60, 60, 24, 24, 24, 24,24, 24, 68, 60,0 
1018 DATA J,0,30,63,51,51, 48, 48, 48, 48, 120, 120,08 
1011 DATA Ky@,99,515275 15,575 7515, 27,51,99,8 

1012 DATA LO, 127, 12753135353, 3) 355,58 

1013 DATA M,O, 99,99, 99,99, 187, 187,127, 119,99,99,8 
1814 DATA N,Q, 99, 99,99, 115, 123,111, 183,99,99,99,8 
1015 DATA 050,625 127599599599, 99,99, 99, 127, 62,8 
1016 DATA P,Qy 3535353963, 127,99,99,127,635,0 

1017 DATA Q,@, 16,62, 63, 123, 99,99, 99,99, 127,62,8 
1818 DATA RyQ,99, 99,99, 99,63, 635,99, 99, 127,63,8 
1919 DATA SO, 625127, 99, 9b, 126,635 5599, 127, 62,8 
1020 DATA 1T,Q, 24,24, 24, 24, 24,24, 24, 24, 126, 126,8 
1021 DATA U,Q,_ 62,1275 99,99, 99,99, 99,99, 99,99,8 
1022 DATA V, 0,828, 54,54,54,54,99,99,99,99,8 

1823 DATA W, 0; 99,99, 119, 127, 107, 187,99, 99,99,99,8 
1024 DATA X_@y99_,99, 119,62, 285 28, 625 119,99, 99,8 
1825 DATA Y,Q, 24,24, 24,24, 40, 126, 182, 102, 102, 102,08 
1826 DATA Z,0,1273 12753565 125 24,48, 96, 127, 127,08 
1038 DATA 0,0, 625127 5 99599599, 99, 99,99, 127, 62,8 
1031 DATA 1,08, 30, 3@,12,12,12,12,12,14,12,8,08 

1032 DATA 2,0, 1275127, 3,6, 68, 120, 96,99, 127,62,8 
1033 DATA 3,562, 127599, 96,60, 60,5 96,99, 127, 62,8 
1034 DATA 4,0, 48, 48, 48, 127, 127,51,54, 60,56, 48,0 
1035 DATA 5,0, 62, 127,99, 96, 96,63, 3153, 127,127,8 
1836 DATA 558,625 1275995 9951275635 5599, 127, 62,8 
1037 DATA 75@y by by 65125 24,485 99, 99,127, 127,08 

1038 DATA 8,05 625 1275995 99,625 625995 99, 127, 6258 
1839 DATA 948,625 1275995 965 126, 1275995995 127,62,8 
1899 DATA Z2ZZ 


PROGRAM B-10. PERPSERF/DAT. Perpendicular seven-by-eleven serif 
capitals and numbers. 


1@ ’PROGRAM B-10: “PERPSERF/DAT® -- PERPEND. 7 X 11 SERIF ALPHABET (TRS-80) 
10@@ REM -- CODE SEQUENCES FOR LETTERS (1001-1026) AND NUMBERS (1050-1039) 
1801 DATA O, 119, 34,34, 34,62, 34, 34, 34, 20, 20, 28,0 

1802 DATA 0,63, 66, 66, 4b, 34, 30, 34, 66, 66, 66,65,8 

1803 DATA Oy 28, 34,655 65, 1515 1565,65, 98, 92,8 

1804 DATA 0,315 34,66, 66, 665 66, 66; 66, 66, 54,5158 

1005 DATA @, 127, 66, 66; 2; 18, 38, 18, 2, 66, 66, 127,08 

1886 DATA Oy 7525252, 185 30, 185 25 66, 66, 127,08 

1087 DATA Oy 46549, 335 335121451515 33,535 49, 46,8 

1888 DATA Oy 1195345 34, 54, 34,625 545 34, 54, 54, 119,08 

1809 DATA 0, 28,8,8,8,8,8,8,8,8,8, 28,0 

1010 DATA @, 12,18, 33,33, 33, 325325325 52, 32,112,8 

1011 DATA @, 119, 34, 18, 10,6,2,6; °@,18,34,119,8 

1012 DATA @, 127,665 66,5 25252525 4525257508 

1013 DATA 8599365565565, 73, 73) 85585599, 99,6558 
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1014 DATA 0,119, 34,508,508, 42,42, 42, 38, 38, 54, 119,08 
1015 DATA @, 28, 34,65, 65,65, 65, 65,65, 65, 54; 28,8 
1016 DATA 573252525 25 38, 34, 66, 66, 34, 31,0 

1017 DATA 0,64, 60,54, 73, 65,65, 65,65, 65, 54, 28,8 
1018 DATA 0,119, 34, 34, 34, 18, 30, 34, 66; 66, 54, 51,8 
1019 DATA @, 29, 35,65, 65, 32, 28, 2, 65,65, 98, 92,8 
1020 DATA @,28,8,8,8,8,8,8,8, 73, 73,127,8 

1021 DATA @, 28, 345 34, 34, 34, 34, 34, 34, 34,34, 119,8 
1022 DATA @,8,8, 28; 20, 20,54, 54,34, 34,54,119,8 
1023 DATA 0,65, 99,99, 85,855 735 73565565, 65,99,8 
1024 DATA 0,119, 34, 34, 20, 20,8, 20, 20, 34, 34,119,8 
1025 DATA @, 28,8, 8,8, 8,8, 28, 20, 54, 34,119,0 

1026 DATA 8, 127,65, 65,525 4,8, 16, 32,65,65, 127,08 
1030 DATA 8, 28, 34,5 354, 54,5 34, 54, 34, 54,54, 54, 28,8 
1031 DATA @,28,8,8,8,8,8,8,8, 12,8,8,0 

1032 DATA @, 127,65, 66, 4,8, 16, 32,65, 65, 34, 28,8 
1033 DATA @, 28, 34,565,565, 64,5 325 24, 16,535,645, 127,08 
1034 DATA @, 112,325 325 3245127, 33534, 56, 48, 48, 32,8 
1035 DATA 8,28, 54,65, 64, 64, 32,31, 1,65,65, 127,80 
1836 DATA 8,28, 34, 65,65, 35, 29, 1,65, 65, 54, 28,8 
1037 DATA @, 4,4, 4, 4,8, 8,8, 16,17, 33,127,08 

1038 DATA @,; 28, 54,65, 65, 34, 28, 34, 65,65, 34, 28,8 
1039 DATA @, 28, 34,65, 65, 64,92, 98, 65,65, 54, 28,8 
1040 DATA 8,555 745 74,5 745 745 745 74, 745755 7455058 
1041 DATA 8,119, 34, 34, 34,34, 34, 34, 54,51, 354, 54,8 
1042 DATA 0,122, 74, 74,18, 18, 545.34, 66,67, 74,58,08 


PROGRAM B-11. PERP716S/DAT. Perpendicular seven-by-sixteen serif 
capitals—Epson. 


1080 *PROGRAM B-11: "PERP714S/DAT" -- PERPEND. 7 X 16 SERIF ALPHABET (EPSON) 
1001 DATA 8,0, 238, 238, 68, 68, 48, 68, 124, 124, 68, 68, 68, 68, 40, 40,56, 16,0,0 
1802 DATA 0,8, 248, 252, 48, 68, 68, 68, 68, 120, 120, 68, 68, 68, 68, 68, 252, 248, 0,0 
1083 DATA 0,0,56, 124, 68, 68, 68, 64, 64, 64, 64, 64, 64, 68, 68, 68, 124, 68,0,0 
1804 DATA 0,0, 248, 252, 68, 68, 68, 68, 68, 48, 48, 68, 68, 68, 68, 68, 252, 248, 0,0 
1805 DATA 0,0, 252, 252, 68, 68, 645 64, 72, 120, 120, 72, 64, 64, 68, 68, 252, 252, 0,0 
1806 DATA 0,8, 224, 224, 64, 64,64, 64, 72, 120, 120, 72, 64, 64, 68, 68, 252, 252,0,0 
1007 DATA 0,0, 60, 124, 68, 68, 68, 94, 94, 64, 64, 64, 64, 68, 68, 76, 124,52,8,08 
1088 DATA @,, 238, 238, 48, 68, 68, 68, 68, 124, 124, 68, 68, 68, 68, 68, 238, 238, 0,0 
1009 DATA Oy Oy 565 56y 16,5 165 165 165 165 165 165 16, 16) 165 165 16,56, 56,050 

1010 DATA 8, 0,54, 124, 68, 68, 68, 228, 228, 45 444545454545 144145850 

1011 DATA @,0, 238, 238, 68, 68, 76, 88, 112, 96, 96, 112, 8B, 76, 68, 68, 238, 238,0,0 
1812 DATA @,@, 252, 252, 68, 68, 64, 64, 64, 64, 64, 64, 645 645 64, 64, 224, 224, 0,0 
1013 DATA 0,0, 238, 238, 48, 48, 468, 68, 68, 84,84, 84, 124, 108, 108, 68, 68, 68, 8,0 
1014 DATA @,@, 238, 230, 76, 76, 76, 76; 84,84, 84,94, 100, 100, 100, 100, 204, 204,0,0 
1015 DATA @,0,56, 124, 68, 68, 68, 48, 48, 48, 48, 68, 68, 68, 68, 68, 124,546,0,0 
1016 DATA 0,0, 224, 224, 64, 64, 64, 64, 64, 112, 1205 765 68, 68, 68, 76, 124, 248, 0,8 
1017 DATA 8,@,2, 60, 124, 76, 114, 68, 68, 68, 68, 68, 68, 68, 68, 68, 124,56,0,08 
1018 DATA 0,8, 238, 238, 68, 68, 68, 68, 72, 120, 120, 72, 68, 68, 68, 68, 124, 248, 0,0 
1019 DATA 0,0, 120,124, 68, 68, 4, 4,4, 68, 120, 64, 64,64, 68, 68, 124, 460,0,0 

1820 DATA 058,564 565 165 165 165 16, 165 165 165 165 165 16,84, 84, 124, 124,0,8 
1821 DATA 0,08,56, 124, 68, 48, 68, 48, 68, 68, 68, 68, 468, 68, 68, 68, 238, 238,0,0 
1822 DATA 0,8, 16, 16,56, 40, 40, 40, 68, 68, 68, 68, 68, 68, 68, 68, 238, 238,080,080 
1023 DATA 0,0, 40, 40, 108, 124, 84, 84, 84,84, 84, 68, 68, 68, 68, 68, 238, 238,0,8 
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1824 DATA 0,0, 238, 238, 68, 68, 68; 40, 40, 14, 16, 40, 40, 68, 68, 68, 238, 238, 0,2 
1025 DATA 0,0, 56, 56,5 165 16, 16, 16,16, 16, 40, 48, 40, 68, 68, 68, 258, 238,0,0 
1826 DATA @,0, 254, 254, 1305665 55, 52, 325 16, 16,8, 8, 45 132, 130, 254, 254,0,08 


PROGRAM B-12. PERP8X18/DAT. Perpendicular eight-by-eighteen bold 
capitals and numbers —Epson. 


10 "PROGRAM B-12: “PERP8X18/DAT" -- BOLD PERPEND. 8 X 18 (EPSON DOUBLE DENSITY) 
1000 "EPSON CODES FOR CAPITAL LETTERS (1001-1026) & NUMBERS (1030-1040) 


1001 
1802 
1803 
1004 
10@5 
1886 
1007 


DATA 
DATA 
DATA 
DATA 


DATA 


195519551955 195_ 195, 195, 255, 2555 255, 195, 195,195,195, 231,182,126, 68, 60 
2525 2545 2555 1994 19591955 1999 206, 2525 2525 206, 1995 1955 195, 199, 2555 254, 252 
60, 126, 1275231519545 1955 192, 192, 192, 192, 1925 192,195,195, 251,127,126, 60 
2525 2545 2555 19951955 1955 1954 1955 19551955 1955 1955 1955 1955 199, 255,254, 252 
2559 2555 2555 1925 192, 1924 192, 192, 255, 2555 2555 1925 192, 1925 192, 2555 2555255 
19251925 192519251925 192, 1925 1925 2555 255 2555 192, 1925 1925 1925 2555 2559255 
63512751275 227319551955 207, 207, 207, 192, 192, 192,195,195, 231,127,126, 60 
195 9195419541955 195,195, 195, 195, 2555 2555 2555 1955 1955 1955195, 195,195,195 
126,126,126, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24,126,126,126 
60, 126, 255,231,195,195,195, 3, 3, 3 3s 3s 3s 3s 3s 3s 3s 8 
1955199, 198, 206, 204, 220, 216, 248, 248, 240, 248, 216, 220, 204, 206, 198, 199,195 
2559 2559 2555 1925 1925 1925 1925 1925 1925 1925 1925 1925 192, 192, 192, 1925 192,192 
19551955 1955 19591955 19541955 195, 2355 2354 2555 2555 255, 251, 2315 251,1955195 
195 9 1954 1995 1995 1995 287 9 207 2035 2195 2195 2115 243, 24352275 227, 227, 185, 185 
60) 1265 126, 23151955 19551955 1955195, 1955 1955 195,195,195, 251,126,126, 68 
1925 1925 1925 1925 192, 192, 192, 1925 2525 2549 2555 1995 1955 1959 1999 2555 254, 252 
by by 6251265 2555 2555 2195 19551955 19551955195, 195, 195, 231,126,126, 68 
1955 195519551955 1995 205, 220, 2485 252, 2545 2555 1995 1955 1955 1995 2555 254, 252 
68,1265 254,199,195, 3, 3, 75 63,126,252, 224, 192,195,199,127,126, 68 
2hy 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24,255,255, 255 
6D 1265 2555 231519551955 1955 1955 1955 1955 1955 1955 195, 1955 195, 195,195,195 
2h, 2h, 24, 40, 60, 6B, 126,102, 102, 102,102,195, 195,195,195, 195,195,195 
1025 102) 102, 231523152554 255 219%, 219, 2195 1955 1955 1955 1955 1955 195,195,195 
195,195, 195,102,102, 60, 40, 24, 24, 24, 24, 68, 60,102,102,195,195,195 
24, 24, 24) 24, 24) 245 24, 24, 68, 460,102,102, 102,195,195, 195,195,195 
255 9 2555 255,192,192, 96, 96, 48, 56, 28, 12, 8, 8 3, 3,255,255, 255 
&By 1265 2555 23519 1955 1955 1955 1955 1955 1955 1955 1955 195,195, 231,255,126, 60 
60, 60, 60, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24,120, 56, 24, 8 
25552555 2555192) 224,112) 46, 24, 12, 6, 7y 3,195,195,231,255,126, 68 
6, 126, 255,251,195,195, 7, 14, 60, 60, 14, 7,195,195,231,255,126, 60 
6, 6, 69 63 6 69255, 255,255,198, 102,102, 54, 56, 24, 28, 12, 14 
6s 1265 2555 25151955195, 3, 3s 792559 254,252, 195, 1955 1955 2555 2555 255 
6D, 1265 2555 251519551955 2315 2255 2225 220, 192, 192, 1955195, 251,255,126, 60 
48, 48, 48, 48, 48, 48, 24, 24, 24, 125 12, 6, 6, 3, 3,255,255, 255 
6B, 1265 2555 25151959195, 231,126, 60, 68, 126,231,195, 195, 231,255,126, 60 
6Q, 12652555 2351,195,195, 3y 3, 59,125,251, 251,195,195, 231,255,126, 68 
POG y 2235 2235 2195 2195 2195 2194 2195 2195 2199 2195 2199 2195 2199 2199 2235 2255 206 


PROGRAM B-13. UPRT9X26/DHX. Upright nine-pin alphabet—Epson, 
double-hex. 
10 "PROGRAM B-13: "UPRT9X26/DHX" --— UPRIGHT 9-PIN ALPHABET (EPSON, DOUBLE-HEX) 


15 ’Copyright (c) 1985 by John Warner Davenport 
20 "USING DOUBLE-HEXADECIMAL CODES AND DOUBLE DENSITY ON THE FX-80 
30 DEFSTR A-Z 


438 APPENDIX B 


40 GOSUB 588 "EPSON DHX DEFS 

3@ PRINT "FINISHED DHX CODING" 

6@ GOSUB 1010 "ALPHABET CHARACTER STRINGS 
7@ PRINT "FINISHED ALPHABET CODING" 

8@ LPRINT CHRS(27)"a"; * RESET 


180 


118 
388 
318 


328 


338 


340 


358 


368 


578 


380 


398 


680 


618 


620 


630 


648 


658 


LPRINT ASBSCSDSESFSGSHSISUSKSLEMSNSOSPSQSRESSTSUSVEWSXSY5Z5N1 SNZSN33N45N55NG 
3N75N85N95NQ5NH 

STOP 

*HEKHHEREEEEREH EPSON DOUBLE-HEXADECIMAL DEFINITIONS ##eexeeteH HEE EH 
AQ=CHRS (B) SA1=CHRS (1) SAZ=CHRS (2) SAS=CHRS (3) SA4=CHRS( 4) SA5S=CHRS(5) SAG=CHRS( 6) 
2A7=CHRS (7) SAB=CHRS (8) SAI=CHRS (18) SAA=CHRS( 10) SAB=CHRS (11) SAC=CHRS( 12) SAD=CH 
R$ (13) SAE=CHRS (14) AF=CHR$(15) 

AG=CHRS$ (16) SAH=CHRS(17) SAT=CHRS (18) SAJ=CHR$(19) SAK=CHRS (20) SAL=CHRS (21) SAM=C 
HRS (22) SAN=CHRS (23) SAO=CHRS (24) SAP=CHRS (25) SAQ=CHRS (26) SAR=CHRS (27) SAS=CHRS ( 
28) SAT=CHRS (29) SAU=CHRS (30) SAV=CHRS (31) 

BO=CHRS ( 32) 5B1=CHRS (33) §B2=CHRS (34) = BI=CHRS (35 ) 2 B4=CHRS (36) = BS=CHRS (37) SBS=C 
HRS (38) 2B7=CHRS (39) = BE=CHRS (40) = B9=CHRS (41) = BA=CHRS (42) s BB=CHRS (43) = BC=CHRS ( 
44)? BD=CHR$ (45 ) = BE=CHRS (46) 2 BF=CHR$ (47) 

BG=CHR$ (48) = BH=CHRS (49) s BI=CHRS (50) ¢ BJ=CHR$ (51) = BK=CHR$(52) = BL=CHR$ (53) sBM=C 
HR$ (54) = BN=CHR$ (55) = BO=CHRS (546) : BP=CHR$(57) :BQ=CHR$ (58) : BR=CHR$ (59)  BS=CHRS ( 
60) = BT=CHRS (61) & BUSCHRS (42) = BV=CHRS (63) 

CO=CHR$ (64) =C1=CHRS (65) £C2=CHRS (66) § C3=CHRS (57) 2 C4=CHRS(68) ! CS=CHRS( 69) £C6=C 
HRS (78) 2C7=CHRS (71) ? CB=CHRS$ (72) 2 C9=CHR$( 73) s CA=CHRS$ (74) § CB=CHRS (75) = CC=CHRS ( 
76) 3 CD=CHR$ (77) = CE=CHRS( 78) § CF=CHRS(79) 

CG=CHR$ (88) 5 CH=CHRS (81) = CI=CHR$ (82) s CU=CHR$ (83) = CK=CHRS (84) s CL=CHR$(85) : CM=C 
HRS (86) = CN=CHR$ (87) = CO=CHRS (88) s CP=CHR$ (89) = CQ=CHRS (98) = CR=CHRS (91) = CS=CHRS ( 
92) 3 CT=CHRS (93) § CU=CHR$ (94) s CV=CHRS (95 ) 

DO=CHR$ (96) =D1=CHRS$ (97) DZ2=CHRS (98) sD3=CHRS (99) 5 D4=CHRS (100) DS=CHRS( 101) D6 
=CHR$ (102) 2D7=CHR$ (103) =DB=CHRS (104) =D9=CHRS (105) s DA=CHRS( 186) :DB=CHR$( 107): 
DC=CHR$ (188) = DD=CHRS (109) sDE=CHR$( 118) DF=CHRS(111) 

DG=CHRS$ (112) SDH=CHRS( 113) =DI=CHRS$(114) :DJ=CHRS (115) :DK=CHRS (116) sDL=CHR$(117 
) ?DM=CHR$ (118) =DN=CHRS( 119) DO=CHRS( 120) sDP=CHRS( 121) =DQ=CHRS( 122) =DR=CHRS (1 
23) ?DS=CHRS (124) SDT=CHRS (125 ) sDU=CHRS (126) sDV=CHRS (127) 

EQ=CHR$ (128) £E1=CHRS( 129) SE2=CHRS (130) SE3=CHRS (131) SE4=CHRS( 132) SES=CHRS( 133 
) SES=CHRS (134) SE7=CHRS (135) SEB=CHRS( 136) SEF=CHRS (137) SEA=CHRS (138) SEB=CHRS (1 
59) SEC=CHRS (148) SED=CHRS (141) SEE=CHR$ (142) SEF=CHRS( 143) 

EG=CHR$ (144) SEH=CHRS (145) SEI=CHRS (144) SEJ=CHRS (147) SEK=CHRS( 148) SEL=CHR$( 149 
) SEM=CHRS (15@) SEN=CHR$ (151) SEO=CHRS( 152) SEP=CHRS (153) SEQ=CHRS( 154) SER=CHRS(1 
95) SES=CHRS (156) SET=CHRS( 157) SEU=CHRS( 158) SEV=CHRS (159) 

FO=CHRS$ (168) =F 1=CHRS (161) SFZ2=CHRS (162) 2F3=CHRS (163) 5F4=CHRS( 164) SFS=CHRS(165 
) SFG=CHRS$ (166) $F 7=CHRS (167) SFB=CHRS( 168) SF9=CHRS (169) SFA=CHRS( 170) SFB=CHRS (1 
71) SFC=CHRS$ (172) SFD=CHRS (173) FE=CHRS (174) SFF=CHRS (175) 

FG=CHR$ (176) SFH=CHRS( 177) 2FI=CHRS$( 178) tFU=CHRS (179) SFK=CHRS( 180) SFL=CHR$(181 
) SFM=CHR$ (182) =FW=CHRS( 183) SFO=CHRS( 184) SFP=CHRS( 185) SFQ=CHR$( 186) SFR=CHRS( 1 
87) SFS=CHRS (188) =F T=CHRS( 189) SFU=CHRS (198) SFV=CHRS (191) 

GO=CHRS (192) 3G1=CHRS (193) $G2=CHRS (194) £G3=CHR$ (195) $G4=CHRS (196) £G5=CHRS (197 
) §G6=CHR$ (198) 2G7=CHRS (199) = GB=CHRS (200)  GI=CHRS ( 201 )  GA=CHRS (202) ¢ GB=CHRS (2 
@3) sGC=CHRS (204 ) =GD=CHR$ (205 ) £GE=CHR$ (206) = GF=CHRS (207) 

GG=CHRS (208 ) = GH=CHRS (209) §GI=CHRS (210) :GJ=CHRS (211) SGK=CHR$ (212) =GL=CHRS(213 
) 3GM=CHRS$ (214) ?GN=CHR$ (215) §GO=CHRS (216) GP=CHRS (217) ?GQ=CHR$ (218) =GR=CHRS (2 
19) 3GS=CHRS (220) ¢GT=CHRS( 221 ) 2 GU=CHRS (222) = GV=CHR$ (223) 

H@=CHR$ (224 ) SH1=CHRS (225 ) SH2=CHRS (226) SH3=CHRS (227 ) EH4=CHRS (228) SHS=CHRS( 229 
) SHO=CHRS (230) SH7=CHRS (231) SHB=CHRS (2352) SHP=CHRS (233) SHA=CHRS (234) SHB=CHRS (2 
35) SHC=CHRS (236) SHD=CHRS (237 ) SHE=CHRS (238) SHF=CHRS (239) 


668 


670 
688 


6908 


700 


710 
720 
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HG=CHR$ (24) SHH=CHRS (241) SHI=CHRS (242) SHJ=CHRS (243) SHK=CHRS (244) SHL=CHRS (245 
) SHM=CHR$ (246) SHN=CHR$ (247 ) SHO=CHRS (248) SHP=CHRS (249) SHQ=CHRS (258) SHR=CHRS (2 
51) SHS=CHR$ (252) SHT=CHRS (253) SHU=CHRS (254) SHV=CHRS (255) 

Q1=CHRS(B) £Q2=Q1+Q1 £Q3=024+Q1 2 Q4=03+Q1 £Q5=04+01 £Q46=Q5+01 £Q7=Q6+Q1 5 QB=Q7+Q1 2Q9 
=Q8+Q1 QA=Q9+Q1 : QB=QA+0A 2 QC=QB+QA = QD=QC+QA = QE=QD+0A 

S1i=CHR$ (32) 2$2=S1+51 $S3=S2+91 §$4=G3+51 2§5=$4+51 $$46=S5+S1 57=S46+S1 :S8=S7+S1 55 
9=S8+S1:SA=S9+S1 : SB=SA+SA: SC=SB+SA = SD=SC+SA? SE=SD+5A 

BW=AR+CC : BY=AR+CBSEY=AR+C5 SEX=AR+C6? DY=AR+C7 § DX=AR+CB: ZY=EY+DY 5 ZX=EX+DX 8 1TY=A 
R+BK : 1X=AR+BL =NY=AR+CG2NX=AR+CH 2 WY=AR+CJ s WX=AR+CK ¢ BZ=AR+CQ: BX=AR+B1+A5 
Z1=CHR$ (255) $Z2=Z1+Z1223=Z2+Z1 8 24=23+Z222 25=24+71 2 26=Z254+21227=26+Z1 2 Z8=Z7+Z1: 
29=78+Z1 8 ZA=Z9+Z1 5 ZB=ZA+ZA? ZC=ZB+ZA! ZD=ZC+ZA? ZE=ZD+ZAS ZF=ZE+ZA? ZG=ZF+ZA ZH=Z 
G+ZA? ZH=ZG+ZA: ZI=ZHtZA2ZJ=ZI+ZA 

P1=CL+FA+CL+FA+CL+FA: P2=FA+CL+FA+CL+FA+CL 

RETURN 


1000 °xxxx*#*%% DOUBLE-HEX CODE STRINGS FOR LETTERS & NUMBERS *x#x##% 
1010 RL=AR+CUtAI+AF+AQ: RN=AR+CU+A1+AD+AQ@ "GRAPHIC RESERVATIONS FOR 3@, 26 
1020 A=RL+tAQtEQ+A7+EO+AC+EQ+AK+AQ+B4+AG+C4+ABtE4+A0+C4+AG+B4+AD+AK+AQ+AC+EQ+A7 +E 


BtADt+EB+AG+AG+AO+AD 


1030 B=RL+EQ+EQ+Z 1+EQ+ES8+EO+ES+EO+ES+EO+ES+EO+ES+EOtES+EO+ES+EO+ES+EO+ES8+EO+CL +0 


1+B2+STRINGS (5,0) 


1040 C=RL+AS+Q1+B2+Q1+C1+Q1+STRINGS (16, 128)+C14+Q1+D3+STRINGS (5,0) 
1058 D=RL+EO+EQ+Z1+STRINGS(17, 128)+C1+Q1+B2+Q1+AS+STRINGS (5,0) 
1068 E=RL+EQ+EO+Z 1+EQ+ES+EQ+ES+EO+ES+EO+ES+EO+ES+STRINGS (11, 128)+G1+EO+STRINGS (4 


7@) 


107@ F=RLt+EQ@+EQ+Z 1+EO+ES8+EO+ES8+0 1 +E8+01 +E8+Q1+ES+Q1 +E+Q1 +EG+Q1 +EO+Q1 +EG+01+EO+Q 


1+G8+Q1+STRINGS (4,0) 


1088 G=RL+AS+Q1+B2+01+C1+Q1+STRINGS (8, 128) +ES+EO+E4+EQtE4+EO+E4+EO+C7+EO+D4+Q1+5 


TRING$ (4,0) 


1090 H=RL+EO+EO+Z 1 +EQ+E8+EO+A8+0 1 +A8+Q1 +A8+Q1+A8+Q1+A8+Q1 +AB+Q1+A8+01+ES+EO+Z1+E 


Q+EQ+EQ+STRINGS (4,0) 


1100 I=RL+STRINGS( 10,8) +EQ+EO+Z1+EG+EO+EO+STRINGS (14,0) 
111@ J=RL+A4+Q1+A6+Q14+A74+014+01+EO+Q 1 +E0+01+E0+0 1 +EO+01+EO+Q1 +EO+Q1 +EQ+E1+Q1+HU+Q 


1+EO+STRINGS (5,0) 


1120 K=RL+EQ+EQ+Z 1+EQ+E8+EO+A8+01 +A8+01 +AK+Q1 +AK+Q1+B2+Q1+B2+Q1+C1+Q1+G1+EO+STRI 


NG$(4, 128)+STRINGS(4,@) 


1130 L=RL+EO+EO+Z 1 +EQ+tED+EO+01+EO+Q1 +E+Q1 +EO+Q1 +EB+Q1+EO+Q1 +EO+Q1 +EB+Qi1 +EO+Qi+E 


Q+A1+EQ+STRINGS (4,0) 


114@ M=RL+Q1+EO+Z 1+EQ+CQ+EO+BO+0 1 +AG+01+A8+Q1+A44+01+AB+Q1+AGtO1+BO+Q1+CO+EO+Z1+E 


@+Q1+EQ+STRINGS (4,0) 


115@ N=RL+EQt+EO+Z 1+EO+EO+EO+CO+01+BO+Q1 +AG+Q1 +AB+Q1 +A44+Q1 tAZ+Q1 +A1+Q1 +EQ+EO+Z1+E 


O+EQ+EO+STRINGS(4,@) 


1160 O=RL+AS+Q1+B2+Q1+C1+Q1+STRINGS (14, 128)+C1+Q1+B2+Q1+AS+STRINGS (5, @) 
1170 P=RL+EO+EO+Z 1 +EQ+ES8+EO+E8+01+E8+Q1 +E8+01 +E8+Q1+E8+01+E8+Q1+E8+Q1+E8+01+CG+Q 


1+BO+STRINGS(5,@) 


118@ Q=RL+A0+Q1+B44Q14C2+014E14+014+E14Q1+E3+Q14+E5+01 +E5+Q1 +E3+Q1+E1+Q1+C2+EO+B4+Q 


1198 


1+A0+STRINGS (5,0) 
R=RL+EO+EO+Z 1 +EO+ES+EO+E8+Q1 +E8+Q1 +E8+Q1+ES+Q1+EC+Q1+EE+Q1+EB+Q1 +E9+EO+CGtE 


O+BQ+EQ+STRINGS (4,0) 


1200 S=RL+B3+EO+CH+Q1+ESt+EO+ES+EO+ES+EO+ES+EOtES+EO+EB8+EO+ES+EQ+ES+EQ+EB+EO+C5+Q 


1218 


1+H2+STRINGS(5,@) 
T=RL+GO+Q1+EO+01+EO+01 +EO+01 +EO+01 +EQ+EO+Z 1 +EO+EOtEBtEO+01 +EG+Q1 +EB+Q1 +EB+Q 


1+G@+STRINGS(5,@) 


1220 V=RLtEO+Q1+HU+Q14E 1401401 +EO+Q1 +£0+01+E0+Q1 +EO+Q1 +EO+Q1+EO+01+EO+E1+Q1 +HU+Q 


1+E@+STRINGS(5,@) 


1270 


1288 
12908 


15@0 


1318 


13528 


13530 


13548 


1358 


1368 


1378 
1380 


1398 
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V=RL+E0+Q1+HG+Q1+E8+Q1 +A44+Q1 +A24+Q1+A1+Q1+Q1+EO+A1+Q1+A2+Q1 +A4+01 +E8+Q1+HG+Q 
1+EQ@+STRINGS (5,0) 

W=RL+EQ+0Q1+Z 1 +EO+E1+01+A24+Q1+A4+01+A8+Q1+AG+0 1 +A84+014A44014A24Q14E14+Q1+Z1+E 
Q+EQt+STRINGS(5,@) 

X=RL+STRINGS (4, 128) +G1+EO+C1+Q1+B2+Q1 +AK+01+A8+Q1+AK+Q1+B24+Q1+C1+Q1+G61+EQ+S 
TRINGS (4, 128)+STRINGS(4,Q) 

Y=RL+E8+01 +EO+Q1 +G0+Q1+BG+Q1+AG+Q1 +AB+EO+A7+EO+A8+EO+AG+01 +BO+01 +G0+01+EO+Q 
1+EQ@+STRINGS(5,@) 

Z=RL+GO+EO+EO+EG+E 1 +EQt+E3+EQ+E4+EQ+EC+EQ+E8+EO+E0+EO+F G+EQ+HO+EO+GO+EO+EO+E 
B+E1+EO+STRINGS (4,0) 

N1I=RN+STRINGS (8, @) +CO+EO+Z 1 +EO+Q1+EQ+STRINGS (12,0) 
N2=RN+D1+EQ+C1+E@tE2+EO+E2+EO+E4+EO+E4+EO+E4+EO+ES8+EQ+E0+EO+CG+EQ+B1+EQ@+STR 
ING$ (4,0) 

N3=RN+G65+Q1 +E 1+Q1+STRINGS (4, 128) tEB+EQ+ESt+EG+EB+EOtEO+EO+F8+EO+G5+01+E2+STR 
ING$(5,@) , 

N4S=RN+A24+Q14A24+Q1 +A64+Q1 tAE+Q1 +AQ+Q1+BI+Q14+D2+01+G2+EO+Z 1 +EQ+A2+EG+A2+STRING 
$(5,@) 

N5=RN+HJ+Q1+EH+Q1 +EGtEQ+EG+EQ+EG+EOt+EGtEO+EGtEO+EG+EO+EGtEQ+E9+Q1+G4+STRING 
$(5,0) 
N6=RN+BU+Q1+C9+01+ES8+EO+ES+EO+ES+EO+ES+EO+ES+EO+ES+EO+ES8+EO+(5+Q1+D2+STRING 
$(5,@) 

N7=RN+G60+Q 1 +E0+Q1+E0+Q1 +EG+Q1+E 1 +EQ+E2+Q1+E4+Q1+E8+Q1 +EG+Q1+FO+Q1+GO+STRING 
$(5,8) 
NB=RN+B2+Q1+CL+Q1+ESB+EO+ES+EO+EB+EO+ES+EB+ES+EO+ES+EO+ES+EO+CL+01+B2+STRING 
$(5,0) 
N9=RN+B5+Q1+CH+Q1+ES8+EQ+ES8+EO+ES8+EO+EB+EO+ES+EQ+ES8+EQ+ES8+EO+C1+Q1+DU+STRING 
$(5,8) 

N@=RN+BU+Q14+C14+Q1+STRINGS (14, 128) +C1+Q1+BU+STRINGS(5,@) 

NH=RN+C8+Q 1 +HO+EO+A 1 +Q1+A2+01 +A4+Q1+A8+Q1+AL+EO+B9I+EQ+CAtEQ+EAtEQ+A4+EO+STR 
ING$(4,@) 

RETURN 


PROGRAM B-14. PERP7X13/DAT. Perpendicular seven-by-thirteen bold full 
character set. 


10 ’PROGRAM B-14: "PERP7X13/DAT" -- PERPEND. BOLD 7 X 13 UPPER & LOWER (TRS-80) 


1880 
1001 
1882 
1003 
1004 
105 
1006 
1087 
1008 
1089 
1018 
1011 
1012 
1013 
1014 
1015 
1016 


REM -- CODES FOR CAPITALS (1001-1026) 

DATA Ay Os Os Oy Oy 99, 99,99, 99, 127, 127,99, 99, 62, 28,8 
DATA By Os 0505 Oy 635 1275994994635 63599599, 127,563,0 
DATA C,0,0,0,0, 62, 127,99, 3,3, 3, 3,99, 127,62,08 
DATA Dy @s 8,8, Oy 63, 127599599, 99,99, 99,99, 127, 63,8 
DATA Ey @,0, 0,0, 1275127535 3,315 3153, 3, 127,127,8 


DATA FyQ, Oy Oy Oy 355 3555515515 3,5, 127,127,8 

DATA G,@,0,0, 0,62, 127, 99,99, 123, 123, 3,99, 127, 62,08 
DATA Hy @s Qs By By 99, 994995995 1275 127599, 99,99,99,8 
DATA 1,0,0,0,0, 60, 60, 24, 24, 24, 24, 24, 24, 60, 68,0 
DATA J,0,8,0,0,38,63,51,51, 48, 48, 48, 48, 120, 128,08 
DATA KyO, Oy Oy Oy 99,515 275155 75 7515, 27,51,99,0 

DATA Ly, 0,0, 0, 127,127, 3535355335359 555598 

DATA M, 0,0, 0,8, 99, 99,99, 99, 107, 107,127, 119,99,99,8 
DATA Ny Q@, 8, 8,85 99, 99,99, 115, 123,111, 103,99,99,99,8 
DATA 03850, O50, 625 127599599, 99,99, 99,99, 127, 62,8 
DATA P38, 0,0, Qs 353,353,363, 127,99, 99, 127,63,8 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


CODE SEQUENCES FOR FOURTEEN CUSTOM ALPHABETS 


yO, Oy 05 Bs 165 625 635 1235599599, 99,99, 127,6258 
Ry By By Oy Dy 999 999995995 6353 655995995127, 65,8 
SO, 0,0, Oy S25 1275 99, 965 1265 63,3599, 127,62,8 
Ty Q3 0 Oy Oy 245 24 4 24, 24, 24, 24, 24, 24, 126, 126,08 
Uy Oy Dy By By G25 1275 995 995 994 995995995 9959958 
90,0, 0585 28,54, 54,54,54,99,99,99,99,8 

95 Bs Bs 9959941195 1275 107, 187,99, 99,99,99,8 
9 By By By 995 995 1195625 28, 28, 62, 119,99,99,8 
90, O,B, 245 245 24, 24, 60, 126, 102, 102, 102, 102,08 
ZO, Qy Oy Oy 12751275 34 by 125 24, 48, 96, 127,127,080 
Dy By By Dy By S25 1275 995 994 994995995995 12756258 
1,0, @,Q, Oy 30, 30, 12,12, 12, 12,12,14,12,8,8 

24 Oy O_O, Qs 1275 1275 35 bs 6B, 120, 96,99, 127,62,0 
3, Oy yO, Oy G25 127,995 965 68, 68, 96,99, 127,62,8 
4,0,0,0,0, 48, 48, 48, 127, 127,51,54, 68,56, 48,8 
50,0, D, By 625 1275 995 96s 95 6355 5155, 127512758 
by Oy Oy Dy Oy S25 1275 99 q 995 1275 635 35 99, 127,62,8 
7 Qs By Oy By by by by 125 245 48, 99,99, 127,127,808 

By By Oy Oy By 6251275995 995 625 25995 99,127, 6258 
9, Qy Dy Os Dy G25 1275 995 9by 128, 127,99, 99, 127, 6258 
a, @,0,28,0,63,63,51, 43, 48,63, 30,0,0,8,8 

by O,Q, 0,0, 31563,51,51,51,63,31,35,5,5,8 

CyO, 0,8, 0, 30, 63,51,3,51,63, 30,0,8,8,2 

ds @,O, 0505 62,63,51,51,51, 63,462, 48, 48, 48,8 
©,0,0,0; 0, 38,63, 35,63,51,63,30,0,0,0,08 

£5005 @9 Qs by by by by 1551556554, 62, 28,8 

9,0, 30, 63,48, 48, 62, 63,51,51,51,63,38,0,0,8 
thy By Oy Oy Oy 51551551551,63,5155,5,5,558 

i» QO, 0, 30, 38, 12, 12,14, 12,8,12,12,8,8 

jy Qs 145319279 245 245 24, 28, 24, 15,0, 24,24,8,8 
ky QO, QO, 51527515575 7515,27,51,3,5,8 
1,@,O,O,Q, 30, 30, 12, 12,12, 12,12,12,14,14,8 

ms Oy yO, O5 1075 107, 187, 107, 187, 127,54,8,8,8,8 
n,Q, Q,0,8,51,51,51,51,51,63,51,0,0,0,8 
0,0,0,0,0, 30,63,51,51,51,63,38,0,0,0,0 

Po Oy 355959 51,63,51,51,51,63,51,80,0,0,8 

q,0, 48, 48, 48, 62,63,51,51,51,63,462,0,0,8,0 
¥,0,0,8,0, 353,35 3,23,63,27,80,80,8,0 

5, 0,0,0,0, 38,63, 48, 28, 3,63, 30,0,8,0,0 

ty @y OO, 8, 28, 62,54, 656,315 5155,56,6,8 
u,0,0,0,8,62,63,51,51,51,51,51,0,0,0,8 
V,0,0,0,8,8, 28, 62,62,51,51,51,8,0,8,8 

wy 0, 0,0, 0,54, 127,107, 107,107, 107, 107,80,0,0,8 
%yO,0,0,0,51,51, 38,12, 30,51,51,0,0,0,08 
9565155 245 28, 62,55551,51,51,51,0,0,0,8 
290,08, 0,0, 63,63; 6,12, 24,63,63,0,8,0,8 


V,0 
W, 
X,0 
Y,0 


44] 


Note: The upright five-by-seven alphabet (B-3) is also pre- 
sented in string sequences in the SPELLUPS program (pro- 
gram 7-1) and the perpendicular seven-by-ten alphabet (B-9) 
is presented in that form in the WRDCRAFT (program 7-2) 


and WALLSTOK (program 8-9) listings. 


APPENDIX C 


Checklists for Converting TRS-80 
Programs for IBM-Eoson and Apple 
Printers 


Checklist for Converting TRS-80 to IBM-Epson 
Programs 


1. Differences in BASIC (assumes IBM-Epson printer 
driven by IBM PC) 


a. Printcommand Instead ofusing LPRINT, use PRINT# 
preceded by OPEN "LPT1:" AS #1: WIDTH #1, 255, especially 
if trouble codes may be generated by mathematical func- 
tions, code conversions, etc. 


b. RND function The IBM PC’s random (RND) function 
differs from the TRS-80’s in several ways (see the manual for 
the IBM). Seeding the random-number generator is done by 
using a negative expression in RND() instead of the RAN- 
DOM command. 


2. Differences in dot codes and pin configurations (see table 
4-]) 


a. Range of dot codes IBM-Epson printers have 256 dot 
codes ranging from 0 to 255; TRS-80 printers have 128 codes 
ranging from 128 to 255. 

b. High-bit-up (IBM-Epson) vs. low-bit-up (TRS-80) 
IBM-Epson printers have eight printhead pins numbered (1, 
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2, 4,...128) from the bottom instead of seven pins num- 
bered (1, 2, 4,...64) from the top. As a result, TRS-80 dot 
patterns are vertical mirror images of those printed by the 
bottom seven pins of IBM-Epson printers. 


3. Exiting graphic mode Delete CHR$(30) in any LPRINT 
statements of the TRS-80 program except when it is imme- 
diately preceded by CHR$(27). Return to text mode is auto- 
matic with IBM-Epson printers as soon as the number of dot 
columns reserved for graphics is exhausted. 


4, Entering graphic mode (graphic reservation com- 
mand) Instead of CHR$(18), send CHR$(27)"K CHR$(N1) 
CHR$(N2) to the printer, with Nl and N2 specifying the 
number of dot columns (N) reserved for graphic printing. If 
the number of columns needed is less than 256, N2 will al- 
ways be 0. Above that, use the exact combination of N1 and 
N2 to specify a known value of N, or more generally, if N is 
variable, precede the enter-graphic-mode command by the 
conversions N@=FIX(N/25b) and N1l=FIX(N-c2Sb*Ne2). 


5. Print density Instead of the TRS-80’s CHR$(27); 
CHR$(19) for the standard 60 DPI, CHR$(27);CHR§$(23) 
for the elite 72 DPI, or CHR$(27);CHR$(20) for the con- 
densed 100 DPI, use “K” for single density (60 CPI) or 
“TL,” for double density (120 DPI) in the graphic reservation. 
On the Epson FX-80 and RX-80 there is a range of densities 
(60, 72, 80, 90, 120 and 240 DPI) having code numbers (n) 
which can be inserted in the graphic reservation com- 
mand CHR$(27)“*”CHR$(n)CHR$(N1)CHR§(N2). The near- 
est Epson density to the TRS-80’s condensed density is 90 
DPI (720 dots per line, n=6). 


6. Horizontal positioning IBM/Epson printers have no 
equivalent of the TRS-80 direct-positioning command 
CHR$(27);CHR$(16);CHR$(N1);CHR$(N2) in graphic mode 
and only an approximation of it in text mode (horizontal tab- 
bing commands). For precise positioning at specific dot col- 
umns in graphics, IBM-Epson must use repeated-blank 
codes (such as STRING$(120,0) ) or a combination of hori- 
zontal tabbing and repeated blanks (see programs 3-3 and 3- 
4 and explanations in chapter 3). 
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7, Elongated printing Instead of CHR$(27);CHR$(14) for 
starting and CHR$(27);CHR$(15) for stopping elongated (ex- 
panded) printing on TRS-80 printers, IBM-Epson printers 
use CHR$(14) or CHR$(27)“W1” for starting and CHR$(20) 
or CHR$(27)"“W0” for stopping. On TRS-80 printers the start 
and stop commands must be given in text mode, and they 
carry over to graphic-mode printing, making each dot pattern 
print twice; there is no such carryover with IBM-Epson 
printers—elongated printing can be done only in text mode. 


8. Boldface printing With IBM-Epson printers there is also 
no carryover of bold printing from text to graphics mode, so 
TRS-80 control codes for starting (CHR$(27);CHR$(31) ) and 
stopping (CHR$(27);CHR$(32) ) boldface graphics printing 
must be deleted or (for text-mode bold printing) replaced 
by the codes for starting emphasized (CHR$(27)“E”) or 
double-strike (CHR$(27)“G”) and stopping emphasized 
(CHR$(27)“F”) or double-strike (CHR$(27)“H”), respec- 
tively. 


9. Underlining (in text mode only) Replace the TRS-80 
codes CHR§$(15) (for “‘on”) and CHR$(14) (for “off’’) by the 
IBM-Epson codes CHR$(27)“—1” and CHR$(27)“—0” re- 
spectively. 


10. Line feeds and carriage returns While CHR$(10) and 
CHR$(13) are universal codes for an ordinary line feed and a 
carriage return, respectively, how they actually operate will 
depend on the setting of one or two DIP switches on the 
printer, the use of trailing semicolons in BASIC print com- 
mands, and whether the computer has been designed to in- 
tercept them and convert them on their way to the printer. 
TRS-80 computers usually convert CHR$(13) to a combina- 
tion carriage return and line feed, and the IBM PC converts 
CHR$(10) to that combination (which is a major reason for 
using PRINT# instead of LPRINT in graphics with the 
IBM). In many cases (especially in text mode) the TRS-80 
codes can be left unchanged in converting programs. In other 
cases, determine by trial and error whether changing the 
control codes themselves, the print punctuation, the DIP 
switches, or possibly even the operating system’s printer 
driver will remedy any difficulties. For converting special 
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graphic line feeds (“2 inch, “2 inch, Nie inch) see the bot- 
tom of table 3.1. For converting codes for reverse line feeds, 
see the bottom of table 2-2 and related text (your printer may 
not have a reverse line feed). 


11. Miscellaneous Be on the lookout for more minor TRS- 
80 control codes that need to be translated or deleted, includ- 
ing CHR$(8);CHR$(N) for backspacing, CHR$(27); CHR$(17) 
for proportional pitch, CHR$(27);CHR$(N) for proportional 
spacing, CHR$(27);CHR$(18) for the correspondence font, 
CHR$(20) for entering ard CHR$(19) for exiting “word pro- 
cessing mode,” CHR$(27);CHR$(16);CHR$(0);CHR$(0) for 
left margin set, CHR$(28);CHR$(N) for repeat printing (use 
tables 2-2 and 3-1). 


Checklist for Converting TRS-80 to Apple Programs 


1. Differences in BASIC (assumes Apple II DOS 3.3 and 
Applesoft BASIC driving Apple Imagewriter printer using 
Super Serial interface) 


a. Print commands Applesoft has no LPRINT command; 
the equivalent is PRINT after output has been shifted from 
the computer’s screen to the printer by PR#1 (standing alone 
in a previous line of the program). PRINT will operate like 
LPRINT in delivering control codes to the printer, but can- 
not be used to send graphic dot codes. For the latter, PEEK 
and POKE commands, must be substituted in order to use 
the full range of dot codes and prevent unwanted prints from 
leaking “phantom” codes. With the Apple Ile, for example, 
the printer’s ready status must be examined by PEEK(49305) 
and the dot code (DC) sent by POKE 49304, DC. Use the form: 

100 IF PEEK(4930S) <> 16 THEN GOTO 100 
110 POKE 49304,DC 

b. IF-THEN-ELSE  Applesoft has IF...THEN in its syn- 
tax but does not have ELSE. (This is why the PEEK and 
POKE commands cannot be in a single program line.) Wher- 
ever ELSE appears in the same line with IF... THEN in TRS- 
80 programs, what immediately follows ELSE must be 
placed in the next line below. 


c. RND function Applesoft’s random (RND) function 
differs from TRS-80’s in several ways (see the Applesoft 
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manual). Seeding the random-number generator requires a 
negative expression in RND instead of the RANDOM com- 
mand. 


d. STRING$() This function, heavily used in TRS-80 
graphics programs for repeating dot codes or text characters, 
does not exist in Applesoft BASIC. In many cases, a FOR- 
NEXT loop for repeating will have to substituted for 
STRING$(). Perhaps even more often, the Imagewriter’s 
built-in repeat printing function—control codes CHR$ 
(27)"Rnnn” in text mode and CHR$(27)“Vnnnn” in grpahic 
mode—can be used in place of STRING$() but in graphics 
it is less hazardous to use POKE (inside a FOR-NEXT 
loop) than a dot code in a statement such as PRINT 
CHRS(27)"Vnnnn"CHRS$ (DC). 


e. Remarks With Applesoft, program remarks can only be 
set apart from the program itself by REM, not with apos- 
trophes. The latter will trigger a syntax-error interruption 
wherever they occur, so all remarks in a TRS-80 program 
preceded by apostrophes must be deleted, and the apos- 
trophes themselves must be deleted or replaced by REM. (If 
used at the end of a program line, REM must be preceded by 
a colon.) 


f. Other BASIC words Other TRS-80 BASIC words and 
phrases may have to be deleted where there is no Applesoft 
equivalent (CLEAR n, DEFINT, DEF STR, PRINT@, 
PRINT USING, SPACE$, VARPTR, WHILE...WEND, 
WIDTH) or replaced by Applesoft equivalents or approxi- 
mations (HOME for CLS, INT for FIX, POKE for OUT, 
SCRN for POINT, PLOT for SET and RESET). In using 
STR$() for converting numerical to string values, TRS-80 
BASIC includes leading zeros in determining the length 
(LEN) of a string, whereas Applesoft does not add leading 
zeros in the first place. 


2. Differences in dot codes and pin configurations (see table 
4-2) 

a. Range of dot codes Apple printers have 256 dot codes, 
ranging from 0 to 255; the TRS-80 has 128, ranging from 128 


to 255. Any TRS-80 dot code can be converted to an Apple 
code by subtracting 128. 
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b. Eight-bit versus seven-bit coding Apple printers have 
eight pins numbered (1, 2, 4,... 128) from the top down, 
whereas TRS-80 printers have seven pins numbered (1, 2, 4, 
_.. 64) from the top down. Apple codes in the 0-127 range 
and TRS-80 codes in the 128-255 range print the same dot 
patterns using the top seven pins. 


3. Exiting graphic mode Delete CHR$(30) in any LPRINT 
statements of the TRS-80 program. Return to text mode is 
automatic with Apple printers as soon as the number of dot 
columns reserved for graphics is used up. 


4. Entering graphic mode (graphic reservation com- 
mand) Replace the TRS-80’s CHR$(18) with CHR$(27) 
“Gnnnn” or CHR$(27)“Snnnn” where nnnn, a string vari- 
able that specifies the number of dot columns reserved, can 
vary from 0001 to 9999 and may often have a fixed value that 
can be specified ahead of time. If not, define a numeric vari- 
able (e.g., RES=J*K) that represents the number of dot col- 
umns needed, and send a sequence of six bytes to the printer 
consisting of code 27, “G” or “S”, the leading zeros (or 
blanks) in nnnn, and the remaining integer value of RES. In 
Microsoft BASIC this can be accomplished by CHR$ (2?) 
+"G""+STRINGS(4-L,"0") +RIGHTS (STRS (RES) ,L) where 
L=LEN(STRS$(RES) )-1, assuming a leading zero is added to 
the value of RES by BASIC. Since Applesoft has no 
STRING$ function and no leading zeros in conversions by 
STR$(), the third part of the sequence will have to be done 
with a FOR-NEXT loop and the entire sequence done as 
follows: 


100 PR#) 

110 RES=J#K: L=LEN(STR(RES) ) 

120 PRINT CHRS(27)+"G"; 

130 FOR Q=1 TO H¥-L: PRINT "O";: NEXT Q 
140 PRINT RIGHTS(STRS(RES),1L);3 


5. Print density The Apple printers have seven print den- 
sities ranging from 72 to 160 DPI. Only one of these is iden- 
tical to TRS-80 densities. This is the 72-DPI density, for 
which the TRS-80’s CHR$(27);CHR$(23) should be replaced 
by CHR$(27)“n’. This is the closest you can get to the stan- 
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dard 60-DPI of the TRS-80 printers. The TRS-80’s 100-DPI 
density is approximated by Apple’s CHR$(27)“E” (96 DPI). 


6. Horizontal positioning The Apple equivalent of the 
TRS-80 direct-positioning command CHR$(27);CHR$(16); 
CHR$(N1);CHR$(N2) is CHR$(27)“Fnnnn” where nnnn is a 
string variable (four ASCII numerals) ranging from 0000 to 
1280. If the particular dot column targeted is a known con- 
stant, its number can be placed inside the quotation marks 
with leading zeros (e.g., “F0462’’). If the positioning target is 
variable, use the sequence in lines 100-140 above, substitut- 
ing the dot-column variable for RES and “F” for “G”’. 


7. Elongated printing Substitute CHR$(14) for the TRS- 
80's CHR$(27);CHR$(14) and CHR$(15) for CHR$(27); 
CHR$(15) for starting and stopping elongated (expanded) 
printing, respectively. 


8. Boldface printing Substitute CHR$(27)“!” for the TRS- 
80's CHR$(27);CHR$(31) and CHR$(27)””” for CHR$(27); 
CHR$(32) for starting and stopping bold printing, respec- 
tively. As with TRS-80 printers, the bold feature carries over 
from text to graphic mode. 


9. Underlining (in text mode only) Replace the TRS-80 
codes CHR$(15) for “on” and CHR$(14) for “off” by Apple 
codes CHR$(27)“X” and CHR$(27)“Y” respectively. 


10. Line feeds and carriage returns Note the comments 
about the interchangeability or automatic coupling of 
CHR$(10) and CHR$(13) in this category of the IBM-Epson 
checklist above. See table 2-2 for Apple’s codes for ¥-inch, 
¥Ye-inch, and reverse line feeds (“i2-inch feeds are not avail- 
able). Special graphic line feeds such as Yr2-inch, N/2-inch, 
and Néie-inch do not exist on Apple printers, but they can be 
approximated by codes for N444-inch feeds, CHR$(27)“Tnn”’ 
where nn has a range from 01 to 99. The appropriate substi- 
tution must be made wherever the TRS-80 code sequences 
CHR$(27);CHR$(50) for %:2-inch and CHR$(27);CHR$(51) 
for Y2ie-inch line feeds are found in the program to be con- 
verted. 
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11. Repeat printing Substitute CHR$(27)“Vnnnn” where 
nnnn can range from 0000 to 9999, for the TRS-80's 
CHR$(28);CHR$(N);CHR$(DC) sequence for repeating a 
dot code. Many instances in which the STRING§() function 
is used in TRS-80 programs can also be handled by the 
CHR$(27)“Vnnnn” sequence. Use CHR$(27)“Rnnn’”’ for re- 
peating a text character outside of a graphic reservation. 


12. Miscellaneous Note Apple equivalents, or lack thereof, 
of TRS-80 control codes CHR$(8);CHR$(N) (for backspac- 
ing), CHR$(27);CHR$(17) (for proportional pitch), CHR$(27); 
CHR$(18) (for correspondence font), CHR§$(20) (for entering 
“word processing mode”), CHR$(19) (for exiting that 
mode), CHR$(27);CHR§$(N) (for proportional spacing), and 
CHR$(27);CHR$(16);CHR$(0);CHR$(0) (for left margin set) 
in tables 2-2 and 3-1. 


Index 


Accounting table program, 386— 
388 

ACCTABLE (accounting table) 
program, 386-88 

All-ranks table, 396-98 


Alphabet 
arrays, 244—50 
bold, 221—22 


characters as data point 
symbols, line graphs, 320— 
322 
coding sheets, 212—15 
condensed, 218 
near-normal-size, 215-22 
nine-pin, 222—23 
serif, 220 
smallest, 215 
ALPHABET (for storage of 
code sequences) program, 
428 
American League 
games won (1977-1984), 407-— 
408 
runs scored and runs allowed 
(1901-1960), 273-75, 331 
Apple 
checklist for converting TRS- 
80 programs to, 445-49 
dot codes, 84—86 


Index 


Architectural drawing program, 
375-79 

AREABABRS (area graph using 
segmented bars) program, 
297—300 

Area graph with bars, 297-300 

ARROW (simple bit-image 
form) program, 88—89 

Auto-theft and murder, rank- 
order correlation, 351-53 


B, data codes for Brush letter, 
239—45 
Backspacing, printhead, 67-68 
Baenziger, Peter, 104, 106 
Bar-and-line graphs, tandem, 
335-37 
Bar graph 
area, 297-300 
floating vertical, 286-96 
horizontal, 260—76 
means and standard errors, 
279—86 
segmented horizontal, 270-— 
271 
simple, 260—63 
3-D, 266-69 
two-way horizontal, 271-76 
vertical, 276—300 
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BARGRAPH (simple bar graph) 
program, 260—66 

BARSIN3D (three-dimensional 
bar graph) program, 267— 
269 


INDEX 


Baseball Graphics (Davenport), 
252, 382 
Baseball’s Pennant Races 
(Davenport), 252 
BASIC 
commands for horizontal 
lines, 110 
commands for vertical lines, 
11] 
detours around trouble 
codes, 78-79 
differences, TRS-80 vs. 
Apple, 445—46 
differences, TRS-80 vs. IBM- 
Epson, 442 
printing commands, 30-31 
typography in, 235-59 
Basketball tournament diagram 
with line-graphic 
characters, 371-75 
Batting averages 
ladder graph, 356-57 
line graph, 335-36 
Bialzik, Jerry, 76-77 
Binary dot codes, 80—98 
Binary sum, 87 
Bit image 
complex diagrams, 382—84 
graphics, 46—48 
screen dumps, 98-107 
BLACKCAT program, 149—50 
Black-white reversals, 101 
dot codes, 86, 87—89 
Block and line graphic 
characters, diagrams with, 
368—80 
Bold alphabet, 221-22 
Boldface printing 
control codes, 36—37 


TRS-80 vs. Apple, 448 
TRS-80 vs. IBM-Epson, 444 
Boothe, Bob, 76 
Borders, 181—90 
Boston Globe, 403 
Boston Red Sox 
individual graphs of team’s 
best hitters, 408—10 
offense, 269 
offense-defense graph, 272-— 
273 
runs scored and allowed 
(1901-1983), 405-8 
BRUSHB (data codes for Brush 
letter B) program, 239—45 
Buffer, space and operation, 
control codes, 43-44 


Cardinals. See St. Louis 
Cardinals 
Carriage returns 
TRS-80 vs. Apple, 448 
TRS-80 vs. IBM-Epson, 444- 
445 
Cell frequency, 355 
CENTABLE (column-centering 
table) program, 388-92 
Cervantes, J. Anthony, 36 
Characters 
custom, control codes, 44 
dot-matrix printer, 27-30 
Chicago White Sox 
decade display, 411, 414 
runs scored and runs allowed 
(1901-1960), 273-75, 331 
Churchill, Winston, 171—72 
Circular forms, 122-24 
Coding sheets, numbers and 
letters, 212-15 
Column-centering table 
program, 388—92 
Complex math-generated 
figures, 130-33 
Condensed alphabet, 218 


Control codes, 42—44 
graphic-mode, 48—56 
printer, 32—42 

Conversions 
dot codes, 92—98 
programs, 304 

Coordinates, polar, 124-30 

CUBETINT (drawing with 

shading levels) program, 
161-69, 173 

Curved lines, 118-21 

Curves, and lines, 108-21 

Custom characters, control 

codes, 44 


DAGWOOD program, 144-45, 
150, 177 

Data point symbols, line 
graphs, 312—15 

alphabetic characters as, 320— 

322 

DBLHEXER (conversion of 
decimal to double-hex 
codes) program, 94-95 

DECBORDS (randomly 
selected dot patterns for 
borders) program, 183-84, 
192, 193, 194, 199, 202 

DENNIS (cartoon drawing) 
program, 156, 160, 177, 
380, 421-22 

Density, print, 443 

control codes, 35-36 

Designs and forms, 
mathematical, 122-33 

Detours in BASIC, around 
trouble codes, 78—79 

Detroit Tigers, daily game log, 
392—96 

DHEXPRNT (assignment and 
printing of double-hex 
codes) program, 95-97 

Diagnostic aids, trouble codes, 
72—75 
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Diagrams with block and line 
graphic characters, 368-80 
DIP switches, control codes, 43 
Direct-positioning command, 
printhead, 58—60 
Dot codes 
binary, 80—98 
TRS-80 vs. Apple, 446—47 
TRS-80 vs. IBM-Epson, 442- 
443 
Dot-matrix printers 
compared to other printers, 
92—25 
three families of, 25-30 
Dot pattern, repeating, 52-54 
Dotplot-80 programs, 36 
DOTPRINT program, 47 
Dot-style typefaces, 255-59 
Double-hex codes, 94—97 
Drafting tapes, 179-80 
Drawing 
simple line, 133-55 
textured, 155-78 
DUMPSIZE (varying size of 
screen dumps) program, 
103-5 


Electrosensitive printers, 23— 
24 
Elongated printing, 443-44 
TRS-80 vs. Apple, 448 
TRS-80 vs. IBM-Epson, 443- 
444 
ENLARGER program, 174-77 
Entering, graphic mode, 48-52 
EPSTOAPL (dot code 
conversion from Epson to 
Apple), 92—93, 150, 187 
Errors, standard, means with, 
279-85 
Exiting, graphic mode, 48-52 


Figures, complex math- 
generated, 130-33 
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FINALIST program, 411 

FINEDRAW (ultra-hi-res 
drawing) program, 205-11, 
228, 238, 242-43 

Floating bar graph, vertical, 
286-97 

Forms and designs, 
mathematical, 122-33 

FOTOGRAF program, 168-— 
173, 176, 178, 381 

FREQDIST (frequency 
distribution) program, 276— 
279, 284, 285 

Frequency distributions, 276— 
279 

FUNCJAZZ (plotting 
concurrent math functions) 
program, 119-20, 121, 124 


GAMEGRAM/DAT (data for 
baseball game diagram) 
program, 383—84 

GAMELOG (Detroit Tigers’ 
first 43 games of 1984) 
program, 392—96 

G clef symbol (FINEDRAW) 
program, 205-11 

GRABLE program, 396-98 

Graph(s) 

range, 322-35 
rough overviews, 400—402 
and table combinations, 392 

Graphic characters, block and 
line, diagrams with, 368— 
380 

Graphic inserts, tables, 392—96 

Graphic mode 

control codes, 48—56 
entering and exiting, 48-52, 
443, 447 

Graphics, future, 416-19 

Graphics characters, 28—30 

GRID7X7 (for making seven- 
by-seven coding sheets) 
program, 138, 144 


GRUMP (graphic screen dump) 
program, 104, 360 


HALOWEEN (jack-o’-lantern 
drawing) program, 134-42, 
150 
Hard copy, microcomputers as 
producers of, 22—25 
Hex dump, 72-73 
Hinrichs, Delmer, 130, 132 
Histogram, frequency 
distribution, 276—79 
HOLLYWRD (Hollywood 
Lights typeface) program, 
256-59 
Horizontal bar graphs, 260—76 
Horizontal lines, 109-10 
Horizontal positioning, 443 
TRS-80 vs. Apple, 448 
TRS-80 vs. IBM-Epson, 443 
Horizontal tabbing, 57 
control codes, 40—42 


IBM-Epson 
checklist for converting TRS- 
80 programs to, 442—45 
dot codes, 80—84 
Illness and stress, scatterplot, 
348-5] 
Impact printer, 24—25 
Informal Gothic typeface, 252— 
255 
Ink-jet printers, 23-24 
Inserts, graphic, 392—96 


Jack-o’-lantern drawing, 134— 
142, 150 


Kalinowski, Francis, 84, 97-98, 
173 

Karsh, Yousuf, 172-73 

Kater, David A., 76, 77, 129, 
132, 211, 419 

Keller, Mike, 99-100, 160, 161, 
419 


Ladder graphs, 356—60 
Lautzenheiser, Robert, 403 
Letters 
coding sheets, 212-15 
and numbers, 212-—35 
Letter-segment selection, 252— 
255 
Lien, David, 76 
Line(s) 
and curves, 108-21 
oblique, 116-17 
slanting, 115-17 
and textures combined, 168-— 
177 
Line and block graphic 
characters, diagrams with, 
368—80 
Line drawings, simple, 133-55 
LINEDRAW (universal line 
drawing) program, 150—56, 
161, 168, 193, 205-11, 238, 
242—43, 380, 381, 382 
Lined tables, 385—88 
Line feeds 
control codes, 37—40 
TRS-80 vs. Apple, 448 
TRS-80 vs. IBM-Epson, 444-— 
445 
LINEGRAF (plotting of line 
graphs with or without data 
points) program, 305- 
314 
Line graphs 
alphabetic characters as data 
point symbols, 320—22 
diagram, 371—80 
multiple, 315—20 
program, 305-14 
Line-matrix printer, 24 
Logos, 21] 


Macworld, 418 
MADHOUSE (architectural 
drawing) program, 375-79 


INDEX 457 


Main axis, horizontal bar graph, 
scaling, 263-66 

Manual polishing, graphics, 40— 
58 

Maps, 380-82, 423-27 

Mathematical forms and 
designs, 122-33 

Mathematical functions, 
plotting concurrent, 119— 
120, 121, 124 

Math-generated figures, 
complex, 130—33 

Means, with standard errors, 
bar graph, 279-86 

Microcomputer Graphics: 
Techniques and 
Applications (Hearn and 
Baker), 106 

Microcomputers, as producers 
of hard copy, 22—25 

MINIPRNT subroutine (for 
miniature screen dump) 
program, 99—100 

MIRACLES (decorative 
borders and patterns) 
program, 185—90, 192, 193, 
202 

Montages, 415-17 


MSEGRAPH (bar graph of 


means and standard errors) 
program, 279-286 
Multigraphs, 408—15 
Multiple-line graphs, 315—20 
MULTLING (multiple-line 
graph) program, 315-20 
Murder and auto theft, rank- 
order correlation, 351-53 
Mutual funds graph, 267 


National League 
earned run averages, 401-2 
season series summaries 
(1979), 415 
Near-normal-size alphabet, 215— 
222 
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NETWORK program, 130 
Neuman, Jeffrey, 396 
Nine-pin alphabet, 222-23 
Numbers 
coding sheets, 212-15 
and letters, 212-35 
NUMS5X11/STR 
(perpendicular five-by- 
eleven numbers stored in 
strings) program, 432-33 


Oblique lines, 115-17 

OPTICART (Epson-to-Tandy 
conversion of 
SYMMETRY) program, 
132-33 


PEARSONR (correlation 
scatterplot) program, 339, 
342-51 

PENGUIN program, 137—45, 
150 

PERP5X5/DAT (perpendicular 
five-by-five capitals and 
numbers) program, 429 

PERPSX7/DAT (perpendicular 
five-by-seven capital 
letters) program, 430-31 

PERP5SX11/DAT (perpen- 
dicular five-by-eleven 
condensed characters) 
program, 431-32 

PERP7X10/DAT 
(perpendicular bold seven- 
by-ten capitals and 
numbers) program, 434-35 

PERP7X13/DAT 
(perpendicular seven-by- 
thirteen bold full character 
set) program, 440-41 

PERP716S/DAT (perpendicular 
seven-by-sixteen serif 
capitals) program, 436—37 

PERP8X18/DAT 
(perpendicular eight-by- 


eighteen bold capitals and 
numbers) program, 437 
Perpendiculars, spelling with, 
229-35 
PERPSERF/DAT 
(perpendicular seven-by- 
eleven serif capitals and 
numbers) program, 435—36 
Pictograms, 300—302 
true, 302-4 
PICTOGRM (pictogram with 
partial figures) program, 
301-3, 381 
Pictures, drawing, 133-78 
PIECHART (exploded pie 
chart) program, 361—66, 
415 
Pie charts, 360—67 
Pin configurations 
TRS-80 vs. Apple, 446—47 
TRS-80 vs. IBM-Epson, 442— 
443 
Pitch. See Print density 
Pixel, 99 
Plotting, precision, 402—4 
PNTRANGE (range, point-and- 
range, and rank-and-range 
graphs) program, 322-37, 
396, 397, 400, 411] 
Point-and-range graphs, 322- 
337 
Polar coordinates, 124-30 
POLARRAY program, 126-30, 
36] 
POSITION (direct-positioning) 
program, 59—60, 66 
Positioning, horizontal, 443 
Precision plotting, 402-4 
Print buffer, space and 
operation, control codes, 
43—44 
Print density, 443 
control codes, 35-36 
TRS-80 vs. Apple, 447-48 
TRS-80 vs. IBM-Epson, 443 


Printer 
control codes, 32—42 
graphics, future, 416-19 
‘Printer as a Paintbrush, The” 
(Keller), 160 
Printhead, positioning, 56-68 
Printing 
BASIC commands, 30-31 
boldface, 36—37, 444, 448 
elongated, 443-44 
samples, 28—29 
speed control codes, 43 
PRNTDRVR/SUB (Boothe’s 
printer driver) program, 76 
Proportional spacing command, 
printhead, 67 


RABBITS program, 144—45, 
150 

Range graph program, 322—37 

Rank-and-range graph program, 
322-37 

Rank correlations, 351—56 

RANKPLOT (rank-order 
correlation scatterplot) 
program, 351-56 

Red Sox. See Boston Red Sox 

Remedies, trouble codes, 75— 
78 

REPBLANK (repeat-blank 
positioning) program, 64-— 
66 

Repeat-blank positioning, 
printhead, 61—66 

Repeating, dot pattern, 52—54 

Repeat printing, TRS-80 vs. 
Apple, 449 

Reverse line feeds, control 


codes, 39-40 


St. Louis Cardinals, time-series 
graph, 396-97 

Scaling, main axis, horizontal 
bar graph, 263—66 
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Scatterplots, 338-56 
Screen 
bit-image dumps, 98—107 
tints, textures, and, 190-204 

SEGBARS (segmented 
horizontal bar graph) 
program, 270-71 

Segmented horizontal bar 
graph, 270-71 

Serif alphabet, 220 

SHADINGS (15 different 
densities) program, 194— 
204 

Simple bar graph, 260-63 

Slanting lines, 115-17 

SLOPES (oblique lines) 
program, 116—17 

Sloping lines, 115-17 

Smallest alphabet, 215 

Smith, Alan D., 129 

Speed, printing, control codes, 


Spelling 
with perpendiculars, 229-35 
upright-oriented words, 226— 

228 

SPELLUPS (spelling of 
upright-oriented words) 
program, 225-28 

Spotlighting, 156—60 

SPOTLITE (subroutines for 
shading levels) program, 
157-60, 194 

Standard errors, means with, 
279-85 

Statistical tapes, 180-81 

Stock, price-and-volume plot, 
290-97 

Stock market, and Super Bowls, 
338-48 

STRAUS (letter segments) 
program, 252-55 

Straus Printing Co., 252 

Stress and illness, scatterplot, 
348-51 
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Super Bowls, and stock market, 
338-48 

SYMBLGRF (symbol graph) 
program, 300-301 

Symbol graph, 301-2 

Symbols, 204-11 

line graph data points, 312 
SYMMETRY program, 132 


Tabbing, horizontal, control 
codes, 40—42 
TABBYCAT program, 149-50 
Table-and-graph combinations, 
392 
Tables, 384—85 
all-ranks, 396—98 
column-centered, 388-92 
and graph combinations, 392 
graphic inserts, 392—96 
lined, 385-88 
TABMATH] (sine curve 
drawing) program, 4] 
TABMATH2 (sine and cosine 
curve) program, 42 
Tandem bar-and-line graphs, 
335-37 
Tapes 
drafting, 179-80 
statistical, 180-81 
TEMPBARS (floating bar graph 
of daily temperature 
ranges) program, 286, 287— 
290, 291 
Temperature, floating bar graph 
of daily ranges, 287-90 
Textured drawings, 155-68 
Textures, screen, and tints, 190— 
204 
Thermal printers, 23 
Thomas, Susan J., 129 
3-D bar graph, 266—69 
Tigers. See Detroit Tigers 
Tints, screen, and textures, 190— 
204 


TOTMPOLE (ladder graph) 
program, 356—60 
TRISWEEP (three-pass 
homemade letters) 
program, 235-38 
TRNYGRAM (tournament 
diagram with line-graphic 
characters) program, 371- 
375 
Trouble codes, 68—79 
TRS-80 
checklist for converting to 
Apple programs, 445—49 
checklist for converting to 
IBM-Epson programs, 442— 
445 
dot codes, 86—87 
TRSTOEPS (mirror-image 
conversion of 78-bit dot 
codes) program, 92—93, 
150, 187 
True pictograms, 302—4 
Two-way bar graphs, 271-76 
TWOWAYBG (two-way 
horizontal bar graph) 
program, 272—74, 392 
TYPARRAY (alphabetic array) 
program, 246-51, 303 
Type, dot-matrix printer, 27-30 
Typefaces 
dot style, 255-59 
Hollywood Lights, 256—59 
Informal Gothic, 252—55 
Typography, in BASIC, 235-59 


ULTHIRES (ultra-high- 
resolution vertical lines) 
program, 112—14, 202 

Ultra-high resolution 

symbols, 205-11 

vertical lines with, 112-15 
Underlining 

TRS-80 vs. Apple, 448 

TRS-80 vs. IBM-Epson, 444 


UPDN5X7/DAT (upside-down 
five-by-seven capital 
letters) program, 431 

Upright words, spelling 
program, 227—28 

UPRT5X7/DAT (upright five- 
by-seven capital letters) 
program, 429-30 

UIPRT9X26/DHX (upright 9-pin 
alphabet, double-hex) 
program, 437—40 

UPRTITAL/DAT (upright italic 
full character set) program, 
433-34 

USAMAP (map of U.S.) 
program, 380, 381, 423-27 


Vertical bar graphs, 276—300 
Vertical floating-bar graphs, 
286-96 
Vertical lines, 110—12 
with ultra-high resolution, 
112-15 
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WALLSTOK (price-and-volume 
stock plot) program, 290— 
297 

Weather log, 391 

WHITECAT program, 146-48, 
150, 151, 208, 238, 382 

WHITEDOG program, 150 

White Sox. See Chicago White 
Sox 

Whole-character programming, 
238—44 

Williams, Ted, batting average 
line graphs, 335-36 

Word-spelling programs, 223-— 
235 

World Series of 1982, 410-13 

WRDCRAFT (spelling for 
perpendiculars) program, 
230-35, 297, 319, 403 
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XYCIRCLE (drawing circles or 
ellipses) program, 122-23 


S$ T6295 
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produce letter-quality documents 
custom-design type fonts 

create high-quality graphic images, borders, 
and much more! 


lf you are tired of watching a sharp-looking graphic on 
your computer screen turn into a heap of jagged lines 
and inaccurately aligned graphs when you print it out, 
Graphics for the Dot-Matrix Printer is the book for you— 
a definitive guide to programming your printer to create 
business graphs and charts, custom type fonts, pie 
charts, maps, mathematical shapes, artwork, decorative 
elements such as borders and trims... indeed, all kinds 
of high-resolution graphics. 


With Graphics for the Dot-Matrix Printer you can relieve 
the frustration of dealing with graphics software that cre- 
ates printed images by ‘‘dumping” them directly from the 
computer screen. This method doesn’t take advantage of 
the fact that the printer has a much higher resolution 
Capacity than a video monitor. With John Warner Daven- 
port’s clear explanations and easy-to-follow BASIC rou- 
tines for all of the major brands of dot-matrix printers 
available for the IBM PC and all Apple and Radio Shack 
computers, you'll learn how to generate crisp, realistic, 
and accurate images you could not get otherwise. With 
over 150 computer-generated graphics created by the 
author, this book is an invaluable and one-of-a-kind com- 
panion for performing miracles you’ll never see on your 
computer screen. 


Computer Book Division 
Simon & Schuster, Inc. 
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